- Timestamp:
- Jun 12, 2023, 11:46:36 PM (18 months ago)
- Location:
- trunk
- Files:
-
- 1 added
- 7 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Core.lfm
r158 r159 8544 8544 end 8545 8545 object Translator: TTranslator 8546 POFilesFolder = 'Languages '8546 POFilesFolder = 'Languages;Packages/Common/Languages;Packages/VCard/Languages' 8547 8547 OnTranslate = TranslatorTranslate 8548 8548 Left = 115 -
trunk/Forms/FormCompareSideBySide.lfm
r155 r159 5 5 Width = 1191 6 6 Caption = 'Compare side by side' 7 ClientHeight = 85 87 ClientHeight = 854 8 8 ClientWidth = 1191 9 9 DesignTimePPI = 144 … … 18 18 object PanelLeft: TPanel 19 19 Left = 0 20 Height = 85 820 Height = 854 21 21 Top = 0 22 22 Width = 584 23 23 Align = alLeft 24 24 BevelOuter = bvNone 25 ClientHeight = 85 825 ClientHeight = 854 26 26 ClientWidth = 584 27 27 TabOrder = 0 28 28 object EditLeftFileName: TEdit 29 29 Left = 15 30 Height = 3330 Height = 43 31 31 Top = 11 32 32 Width = 523 … … 37 37 inline SynEditLeft: TSynEditEx 38 38 Left = 15 39 Height = 78 539 Height = 781 40 40 Top = 61 41 41 Width = 562 … … 48 48 ParentFont = False 49 49 TabOrder = 1 50 Gutter.Width = 7 350 Gutter.Width = 75 51 51 Gutter.MouseActions = <> 52 52 RightGutter.Width = 0 … … 503 503 end 504 504 object SynGutterLineNumber1: TSynGutterLineNumber 505 Width = 1 3505 Width = 15 506 506 MouseActions = <> 507 507 MarkupInfo.Background = clBtnFace … … 548 548 object Splitter1: TSplitter 549 549 Left = 584 550 Height = 85 8550 Height = 854 551 551 Top = 0 552 552 Width = 8 … … 554 554 object PanelRight: TPanel 555 555 Left = 592 556 Height = 85 8556 Height = 854 557 557 Top = 0 558 558 Width = 599 559 559 Align = alClient 560 560 BevelOuter = bvNone 561 ClientHeight = 85 8561 ClientHeight = 854 562 562 ClientWidth = 599 563 563 TabOrder = 2 564 564 object EditRightFileName: TEdit 565 565 Left = 12 566 Height = 33566 Height = 43 567 567 Top = 11 568 568 Width = 527 … … 573 573 inline SynEditRight: TSynEditEx 574 574 Left = 15 575 Height = 78 5575 Height = 781 576 576 Top = 61 577 577 Width = 571 … … 584 584 ParentFont = False 585 585 TabOrder = 1 586 Gutter.Width = 7 3586 Gutter.Width = 75 587 587 Gutter.MouseActions = <> 588 588 RightGutter.Width = 0 … … 1039 1039 end 1040 1040 object SynGutterLineNumber1: TSynGutterLineNumber 1041 Width = 1 31041 Width = 15 1042 1042 MouseActions = <> 1043 1043 MarkupInfo.Background = clBtnFace -
trunk/Forms/FormCompareSideBySide.pas
r151 r159 7 7 VCard, Diff, LCLType, LCLIntf, ComCtrls, Buttons, Menus, ActnList, SynEdit, 8 8 SynEditMiscClasses, SynHighlighterPosition, SynEditHighlighter, Common, 9 USynEditEx;9 SynEditEx; 10 10 11 11 type -
trunk/Forms/FormContacts.pas
r157 r159 384 384 begin 385 385 LoadFromRegistry(Context); 386 UpdateColumns;387 386 Core.Core.Translator.TranslateComponentRecursive(Self); 388 387 Core.Core.ThemeManager1.UseTheme(Self); 389 388 Core.Core.PersistentForm1.Load(Self); 389 UpdateColumns; 390 390 ReloadList; 391 391 UpdateInterface; -
trunk/Forms/FormExport.lfm
r158 r159 41 41 Top = 9 42 42 Width = 805 43 HorzScrollBar.Page = 52143 HorzScrollBar.Page = 473 44 44 VertScrollBar.Page = 225 45 45 Anchors = [akTop, akLeft, akRight, akBottom] … … 56 56 end 57 57 object ComboBoxOutputFormat: TComboBox 58 Left = 2 5658 Left = 208 59 59 Height = 42 60 60 Top = 76 … … 75 75 end 76 76 object EditOutputFile: TEdit 77 Left = 13977 Left = 208 78 78 Height = 43 79 79 Top = 24 80 Width = 53380 Width = 464 81 81 Anchors = [akTop, akLeft, akRight] 82 82 TabOrder = 1 -
trunk/Packages/Common/Translator.pas
r148 r159 48 48 procedure TranslateProperty(Component: TPersistent; PropInfo: PPropInfo); 49 49 function IsExcluded(Component: TPersistent; PropertyName: string): Boolean; 50 function GetLangFileDir : string;50 function GetLangFileDirs: TStrings; 51 51 public 52 52 ComponentExcludes: TComponentExcludesList; … … 71 71 end; 72 72 73 const 74 PoExt = '.po'; 75 73 76 procedure Register; 74 77 75 78 76 79 implementation 80 81 uses 82 Common; 77 83 78 84 procedure Register; … … 161 167 FileList: TStringList; 162 168 I: Integer; 169 J: Integer; 163 170 LocaleShort: string; 164 171 SearchMask: string; 172 LangDirs: TStrings; 165 173 begin 166 174 FPoFiles.Clear; … … 172 180 SearchMask := '*'; 173 181 if LocaleShort <> '' then SearchMask := SearchMask + '.' + LocaleShort; 174 SearchMask := SearchMask + '.po'; 175 FileList := FindAllFiles(GetLangFileDir, SearchMask); 176 for I := 0 to FileList.Count - 1 do begin 177 FileName := FileList[I]; 178 //FileName := FindLocaleFileName('.po'); 179 if FileExists(FileName) and ( 180 ((LocaleShort = '') and (Pos('.', FileName) = Pos('.po', FileName))) or 181 (LocaleShort <> '')) then FPoFiles.Add(TPOFile.Create(FileName)); 182 end; 182 SearchMask := SearchMask + PoExt; 183 LangDirs := GetLangFileDirs; 184 for J := 0 to LangDirs.Count - 1 do begin 185 FileList := FindAllFiles(LangDirs[J], SearchMask); 186 for I := 0 to FileList.Count - 1 do begin 187 FileName := FileList[I]; 188 //FileName := FindLocaleFileName('.po'); 189 if FileExists(FileName) and ( 190 ((LocaleShort = '') and (Pos('.', FileName) = Pos(PoExt, FileName))) or 191 (LocaleShort <> '')) then FPoFiles.Add(TPOFile.Create(FileName)); 192 end; 193 end; 194 LangDirs.Free; 183 195 finally 184 196 FileList.Free; … … 299 311 end; 300 312 301 function TTranslator.GetLangFileDir: string; 302 begin 303 Result := FPoFilesFolder; 304 if Copy(Result, 1, 1) <> DirectorySeparator then 305 Result := ExtractFileDir(Application.ExeName) + 306 DirectorySeparator + Result; 313 function TTranslator.GetLangFileDirs: TStrings; 314 var 315 I: Integer; 316 begin 317 Result := TStringList.Create; 318 Result.Delimiter := ';'; 319 Result.StrictDelimiter := True; 320 Result.DelimitedText := FPoFilesFolder; 321 322 for I := 0 to Result.Count - 1 do begin 323 Result[I] := StringReplace(Result[I], '/', DirectorySeparator, [rfReplaceAll]); 324 Result[I] := StringReplace(Result[I], '\', DirectorySeparator, [rfReplaceAll]); 325 if Copy(Result[I], 1, 1) <> DirectorySeparator then 326 Result[I] := ExtractFileDir(Application.ExeName) + 327 DirectorySeparator + Result[I]; 328 end; 307 329 end; 308 330 … … 371 393 var 372 394 I: Integer; 373 LangDir: string; 374 begin 375 LangDir := GetLangFileDir; 395 J: Integer; 396 LangDirs: TStrings; 397 begin 398 LangDirs := GetLangFileDirs; 376 399 Languages.SearchByCode('').Available := True; // Automatic 377 400 378 401 for I := 1 to Languages.Count - 1 do 379 402 with Languages[I] do begin 380 Available := FileExists(LangDir + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) + 381 '.' + Code + ExtensionSeparator + 'po') or (Code = 'en'); 382 end; 403 for J := 0 to LangDirs.Count - 1 do begin 404 if FileExists(LangDirs[J] + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) + 405 '.' + Code + PoExt) or (Code = 'en') then begin 406 Available := True; 407 Continue; 408 end; 409 end; 410 end; 411 LangDirs.Free; 383 412 end; 384 413 -
trunk/Packages/SynEditEx/SynEditEx.lpk
r128 r159 30 30 <Files> 31 31 <Item> 32 <Filename Value=" USynEditEx.pas"/>32 <Filename Value="SynEditEx.pas"/> 33 33 <HasRegisterProc Value="True"/> 34 <UnitName Value="USynEditEx"/> 34 <UnitName Value="SynEditEx"/> 35 </Item> 36 <Item> 37 <Filename Value="SynEditExPackage.pas"/> 38 <Type Value="Main Unit"/> 39 <UnitName Value="SynEditExPackage"/> 35 40 </Item> 36 41 </Files> -
trunk/Packages/SynEditEx/SynEditEx.pas
r158 r159 1 unit USynEditEx;1 unit SynEditEx; 2 2 3 3 interface … … 28 28 end; 29 29 30 31 30 { TSynEditEx } 32 31 … … 38 37 end; 39 38 40 41 39 end. 42 40
Note:
See TracChangeset
for help on using the changeset viewer.