erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-11-03 09:37:47 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

Merge pull request #13081 from keymanapp/chore/developer/handle-forward-slash-in-paths-in-package-editor

Browse source 
chore(developer): handle forward slashes in paths in package editor
This commit is contained in:
Marc Durdin 2025-01-31 11:51:02 +07:00 • committed by GitHub
commit 60b00e8645
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
developer/src/tike/child/UfrmPackageEditor.pas
View file

@ -319,7 +319,7 @@ type
procedure UpdateStartMenuPrograms;
procedure FillFileList(combo: TComboBox; obj: TObject; FileType: TKMFileType = ftOther);
procedure UpdateImagePreviews;
procedure AddFile(FileName: WideString);
procedure AddFile(FileName: string);
procedure SourceChanged(Sender: TObject);
procedure MovePackageToSource;
function MoveSourceToPackage: Boolean;
@ -381,6 +381,7 @@ implementation
uses
System.Math,
System.StrUtils,
Vcl.Clipbrd,
Vcl.Imaging.GifImg,
@ -708,7 +709,7 @@ begin
mtConfirmation, mbOkCancel, 0) = mrOk;
end;
procedure TfrmPackageEditor.AddFile(FileName: WideString);
procedure TfrmPackageEditor.AddFile(FileName: string);
var
f: TPackageContentFile;
ki: TKeyboardInfo;
@ -771,7 +772,7 @@ begin
end;
pack.Files.Add(f);
lbFiles.ItemIndex := lbFiles.Items.AddObject(ExtractFileName(FileName), f);
lbFiles.ItemIndex := lbFiles.Items.AddObject(ExtractFileName(FileName.Replace('/','\',[rfReplaceAll])), f);
lbFilesClick(lbFiles);
UpdateWelcomeFile;
UpdateReadme;
@ -1315,7 +1316,7 @@ begin
lbFiles.Clear;
for i := 0 to pack.Files.Count - 1 do
lbFiles.Items.AddObject(ExtractFileName(pack.Files[i].FileName), pack.Files[i]);
lbFiles.Items.AddObject(ExtractFileName(ReplaceStr(pack.Files[i].FileName,'/','\')), pack.Files[i]);
UpdateOutPath;
UpdateWelcomeFile;