Changeset 72
- Timestamp:
- Mar 6, 2016, 12:10:38 AM (9 years ago)
- Location:
- trunk
- Files:
-
- 34 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r70 r72 5 5 Width = 860 6 6 Caption = 'LazFuck' 7 ClientHeight = 55 77 ClientHeight = 558 8 8 ClientWidth = 860 9 9 Menu = MainMenu1 … … 12 12 OnDestroy = FormDestroy 13 13 OnShow = FormShow 14 LCLVersion = '1. 5'14 LCLVersion = '1.7' 15 15 WindowState = wsMaximized 16 16 object StatusBarMain: TStatusBar 17 17 Left = 0 18 Height = 2 919 Top = 5 2818 Height = 24 19 Top = 534 20 20 Width = 860 21 21 Panels = < … … 130 130 object PageControlRight: TPageControl 131 131 Left = 467 132 Height = 50 2132 Height = 508 133 133 Top = 26 134 134 Width = 393 … … 140 140 object TabSheetDebug: TTabSheet 141 141 Caption = 'Debug' 142 ClientHeight = 496143 ClientWidth = 31 5142 ClientHeight = 504 143 ClientWidth = 313 144 144 object PanelInput: TPanel 145 145 Left = 0 146 146 Height = 64 147 147 Top = 0 148 Width = 31 5148 Width = 313 149 149 Align = alTop 150 150 BevelOuter = bvNone … … 156 156 Height = 5 157 157 Top = 64 158 Width = 31 5158 Width = 313 159 159 Align = alTop 160 160 ResizeAnchor = akTop … … 164 164 Height = 259 165 165 Top = 69 166 Width = 31 5166 Width = 313 167 167 Align = alTop 168 168 BevelOuter = bvNone … … 174 174 Height = 5 175 175 Top = 328 176 Width = 31 5176 Width = 313 177 177 Align = alTop 178 178 ResizeAnchor = akTop … … 182 182 Height = 86 183 183 Top = 333 184 Width = 31 5184 Width = 313 185 185 Align = alTop 186 186 BevelOuter = bvNone … … 192 192 Height = 5 193 193 Top = 419 194 Width = 31 5194 Width = 313 195 195 Align = alTop 196 196 ResizeAnchor = akTop … … 198 198 object PanelMemory: TPanel 199 199 Left = 0 200 Height = 72200 Height = 80 201 201 Top = 424 202 Width = 31 5202 Width = 313 203 203 Align = alClient 204 204 BevelOuter = bvNone … … 209 209 object Splitter1: TSplitter 210 210 Left = 462 211 Height = 50 2211 Height = 508 212 212 Top = 26 213 213 Width = 5 … … 217 217 object PanelLeft: TPanel 218 218 Left = 0 219 Height = 50 2219 Height = 508 220 220 Top = 26 221 221 Width = 462 222 222 Align = alClient 223 223 BevelOuter = bvNone 224 ClientHeight = 50 2224 ClientHeight = 508 225 225 ClientWidth = 462 226 226 TabOrder = 4 227 227 object PageControlMain: TPageControl 228 228 Left = 0 229 Height = 3 79229 Height = 385 230 230 Top = 0 231 231 Width = 462 … … 245 245 Left = 0 246 246 Height = 118 247 Top = 3 84247 Top = 390 248 248 Width = 462 249 249 ActivePage = TabSheetMessages … … 260 260 Left = 0 261 261 Height = 5 262 Top = 3 79262 Top = 385 263 263 Width = 462 264 264 Align = alBottom … … 1891 1891 E7FFEAEAEAFFB5B0AAFF887459FFC6BDB1008F7D65FF735D3EFF735D3EFF735D 1892 1892 3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D 1893 3EFF735D3EFF8F7D65FFC6BDB100 FF00FF00FF00FF00FF00FF00FF00FF00FF001894 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF001895 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF001896 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF001897 FF00FF00FF00FF00FF00FF00FF00FF00FF00D6B5A5FFD6B5A5FFD6B5A5FFD6B51893 3EFF735D3EFF8F7D65FFC6BDB1002A351A002A351A002A351A002A351A002A35 1894 1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35 1895 1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35 1896 1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35 1897 1A002A351A002A351A002A351A002A351A00D6B5A5FFD6B5A5FFD6B5A5FFD6B5 1898 1898 A5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6AD 1899 A5FFC6ADA5FF FF00FF00FF00FF00D6B5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1899 A5FFC6ADA5FF2A351A002A351A00D6B5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 1900 1900 FFFFFFF7F7FFFFF7F7FFFFF7F7FFFFF7F7FFFFF7F7FFFFEFE7FFFFEFE7FFFFEF 1901 E7FFFFEFE7FF634A31FF FF00FF00D6B5A5FFFFFFFFFFD69C84FFD69484FFC6941901 E7FFFFEFE7FF634A31FF2A351A00D6B5A5FFFFFFFFFFD69C84FFD69484FFC694 1902 1902 73FFD68C73FFD68C63FFC68463FFC67B52FFC67342FFC66B42FFC66B42FFD67B 1903 42FFFFEFE7FF634A31FF FF00FF00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFDE1903 42FFFFEFE7FF634A31FF2A351A00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFDE 1904 1904 D6FFFFD6C6FFFFCEB5FFFFCEB5FFFFC6A5FFFFC6A5FFFFB594FFFFB584FFE77B 1905 42FFFFEFE7FF634A31FF FF00FF00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFEF1905 42FFFFEFE7FF634A31FF2A351A00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFEF 1906 1906 E7FFFFEFE7FFFFEFE7FFFFC6A5FFFFC6A5FFFFB594FFFFB594FFF79C73FFE77B 1907 42FFFFEFE7FF634A31FF FF00FF00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFD61907 42FFFFEFE7FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFD6 1908 1908 C6FFFFCEB5FFFFC6A5FFFFC6A5FFFFB594FFF7A584FFF79C73FFF79C73FFE773 1909 42FFFFEFE7FF634A31FF FF00FF00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFEF1909 42FFFFEFE7FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFEF 1910 1910 E7FFFFEFE7FFFFEFE7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFE78C63FFE773 1911 42FFFFE7D6FF634A31FF FF00FF00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFC61911 42FFFFE7D6FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFC6 1912 1912 A5FFFFC6A5FFFFB594FFF7A584FFF7A584FFF79C73FFE78C63FFE78463FFE773 1913 42FFFFDED6FF634A31FF FF00FF00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFEF1913 42FFFFDED6FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFEF 1914 1914 E7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFFFD6C6FFFFD6C6FFD67B52FFE773 1915 42FFFFDED6FF634A31FF FF00FF00C6ADA5FFFFF7F7FFC69473FFFFC6A5FFF7B51915 42FFFFDED6FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFC6A5FFF7B5 1916 1916 94FFF7A584FFF79C73FFF79C73FFE78C63FFE78463FFD67B52FFD67352FFE773 1917 42FFFFDED6FF634A31FF FF00FF00C6ADA5FFFFEFE7FFD69484FFE7A584FFF7A51917 42FFFFDED6FF634A31FF2A351A00C6ADA5FFFFEFE7FFD69484FFE7A584FFF7A5 1918 1918 84FFF79C73FFF79C73FFE78C63FFE78463FFE78452FFE78442FFE77B42FFE784 1919 52FFFFDED6FF634A31FF FF00FF00C6ADA5FFFFEFE7FFFFEFE7FFFFEFE7FFFFEF1919 52FFFFDED6FF634A31FF2A351A00C6ADA5FFFFEFE7FFFFEFE7FFFFEFE7FFFFEF 1920 1920 E7FFFFEFE7FFFFEFE7FFFFEFE7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFFFDE 1921 D6FFFFDED6FF634A31FF FF00FF00FF00FF00634A31FF634A31FF634A31FF634A1921 D6FFFFDED6FF634A31FF2A351A002A351A00634A31FF634A31FF634A31FF634A 1922 1922 31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A 1923 31FF634A31FF FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF001924 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF001925 FF00FF00FF00FF00FF00FF00FF001923 31FF634A31FF2A351A002A351A002A351A002A351A002A351A002A351A002A35 1924 1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35 1925 1A002A351A002A351A002A351A00 1926 1926 } 1927 1927 end -
trunk/Forms/UFormMain.pas
r70 r72 7 7 uses 8 8 Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs, 9 Menus, ActnList, ComCtrls, ExtCtrls, UTarget, Registry, URegistry, Process; 9 Menus, ActnList, ComCtrls, ExtCtrls, UTarget, Registry, URegistry, Process, 10 LazFileUtils; 10 11 11 12 type … … 171 172 172 173 resourcestring 173 SProgramExited = 'Program exited';174 174 SProgramStarted = 'Program started'; 175 175 SProgramStopped = 'Program stopped'; … … 245 245 if Core.Project.Openned then 246 246 raise Exception.Create(SCloseProjectFirst); 247 FormSourceCode.MemoSource.Lines.LoadFromFile( UTF8Decode(FileName));247 FormSourceCode.MemoSource.Lines.LoadFromFile(FileName); 248 248 Core.LastOpenedList.AddItem(FileName); 249 249 Core.Project.FileName := FileName; … … 609 609 SaveDialog1.FileName := Core.Project.FileName; 610 610 if SaveDialog1.Execute then begin 611 FormSourceCode.MemoSource.Lines.SaveToFile( UTF8Decode(SaveDialog1.FileName));611 FormSourceCode.MemoSource.Lines.SaveToFile(SaveDialog1.FileName); 612 612 Core.Project.FileName := SaveDialog1.FileName; 613 613 Core.LastOpenedList.AddItem(SaveDialog1.FileName); … … 620 620 begin 621 621 if Core.Project.Modified and FileExistsUTF8(Core.Project.FileName) then begin 622 FormSourceCode.MemoSource.Lines.SaveToFile( UTF8Decode(Core.Project.FileName));622 FormSourceCode.MemoSource.Lines.SaveToFile(Core.Project.FileName); 623 623 Core.Project.Modified := False; 624 624 UpdateInterface; -
trunk/Forms/UFormMessages.pas
r67 r72 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 9 9 ComCtrls; 10 10 -
trunk/Forms/UFormOptions.pas
r70 r72 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 Spin, UTarget Interpretter, UTarget;9 Spin, UTarget; 10 10 11 11 type -
trunk/Forms/UFormTargetOptions.pas
r50 r72 37 37 implementation 38 38 39 resourcestring40 SCompilerOptions = 'Compiler options';41 SCompilerPath = 'Compiler path';42 SSelectDirectory = 'Select directory';43 44 39 {$R *.lfm} 45 40 -
trunk/Languages/LazFuckIDE.cs.po
r69 r72 855 855 msgstr "NovÃœ projekt" 856 856 857 #: uformmain.sprogramexited858 msgctxt "uformmain.sprogramexited"859 msgid "Program exited"860 msgstr "Program ukonÄen"861 862 857 #: uformmain.sprogramstarted 863 858 msgid "Program started" … … 951 946 msgstr "Nekonzistentnà skoková tabulka" 952 947 953 #: utargetinterpretter.smemorycelloutofrange954 msgctxt "utargetinterpretter.smemorycelloutofrange"955 msgid "Memory cell %s value out of range"956 msgstr "Hodnota pamÄÅ¥ové buÅky %s je mimo rozsah"957 958 948 #: utargetinterpretter.sprogramlowerlimit 959 949 msgctxt "utargetinterpretter.sprogramlowerlimit" … … 970 960 msgstr "Program pÅekroÄil hornà omezenÃ" 971 961 972 #: utargetinterpretter.sreadinputerror973 msgctxt "utargetinterpretter.sreadinputerror"974 msgid "Read input error"975 msgstr "Chyba Ätenà vstupu"976 977 962 #: utargetinterpretter.sunsupportedcommand 978 963 msgid "Unsupported command" 979 964 msgstr "NepodporovanÃœ pÅÃkaz" 965 -
trunk/Languages/LazFuckIDE.po
r67 r72 842 842 msgstr "" 843 843 844 #: uformmain.sprogramexited845 msgctxt "uformmain.sprogramexited"846 msgid "Program exited"847 msgstr ""848 849 844 #: uformmain.sprogramstarted 850 845 msgid "Program started" … … 938 933 msgstr "" 939 934 940 #: utargetinterpretter.smemorycelloutofrange941 msgctxt "utargetinterpretter.smemorycelloutofrange"942 msgid "Memory cell %s value out of range"943 msgstr ""944 945 935 #: utargetinterpretter.sprogramlowerlimit 946 936 msgctxt "utargetinterpretter.sprogramlowerlimit" … … 957 947 msgstr "" 958 948 959 #: utargetinterpretter.sreadinputerror960 msgctxt "utargetinterpretter.sreadinputerror"961 msgid "Read input error"962 msgstr ""963 964 949 #: utargetinterpretter.sunsupportedcommand 965 950 msgid "Unsupported command" -
trunk/LazFuckIDE.lpi
r71 r72 256 256 </Options> 257 257 </Linking> 258 <Other> 259 <CompilerMessages> 260 <IgnoredMessages idx5024="True"/> 261 </CompilerMessages> 262 </Other> 258 263 </CompilerOptions> 259 264 <Debugging> -
trunk/Packages/Common/Common.lpk
r61 r72 4 4 <PathDelim Value="\"/> 5 5 <Name Value="Common"/> 6 <Type Value="RunAndDesignTime"/> 6 7 <AddToProjectUsesSection Value="True"/> 7 8 <Author Value="Chronos (robie@centrum.cz)"/> … … 12 13 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> 13 14 </SearchPaths> 15 <Other> 16 <CompilerMessages> 17 <IgnoredMessages idx5024="True"/> 18 </CompilerMessages> 19 </Other> 14 20 </CompilerOptions> 15 21 <Description Value="Various libraries"/> … … 110 116 <OutDir Value="Languages"/> 111 117 </i18n> 112 <Type Value="RunAndDesignTime"/>113 118 <RequiredPkgs Count="2"> 114 119 <Item1> -
trunk/Packages/Common/Common.pas
r61 r72 5 5 unit Common; 6 6 7 {$warn 5023 off : no warning about unused units} 7 8 interface 8 9 -
trunk/Packages/Common/UApplicationInfo.pas
r59 r72 6 6 7 7 uses 8 SysUtils, Registry,Classes, Forms, URegistry;8 SysUtils, Classes, Forms, URegistry; 9 9 10 10 type -
trunk/Packages/Common/UCommon.pas
r59 r72 8 8 {$IFDEF Windows}Windows,{$ENDIF} 9 9 Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, 10 FileUtil ; //, ShFolder, ShellAPI;10 FileUtil, LazFileUtils; //, ShFolder, ShellAPI; 11 11 12 12 type … … 91 91 I: Integer; 92 92 begin 93 Result := ''; 93 94 for I := 1 to Length(Source) do begin 94 95 Result := Result + LowerCase(IntToHex(Ord(Source[I]), 2)); … … 105 106 Path := IncludeTrailingPathDelimiter(APath); 106 107 107 Find := FindFirst( UTF8Decode(Path + AFileSpec), faAnyFile xor faDirectory, SearchRec);108 Find := FindFirst(Path + AFileSpec, faAnyFile xor faDirectory, SearchRec); 108 109 while Find = 0 do begin 109 DeleteFileUTF8(Path + UTF8Encode(SearchRec.Name));110 DeleteFileUTF8(Path + SearchRec.Name); 110 111 111 112 Find := SysUtils.FindNext(SearchRec); … … 416 417 417 418 procedure OpenWebPage(URL: string); 418 var419 Process: TProcess;420 Browser, Params: string;421 419 begin 422 420 OpenURL(URL); 423 {try424 Process := TProcess.Create(nil);425 Browser := '';426 //FindDefaultBrowser(Browser, Params);427 //Process.Executable := Browser;428 //Process.Parameters.Add(Format(Params, [ApplicationInfo.HomePage]);429 Process.CommandLine := 'cmd.exe /c start ' + URL;430 Process.Options := [poNoConsole];431 Process.Execute;432 finally433 Process.Free;434 end;}435 421 end; 436 422 -
trunk/Packages/Common/UDebugLog.pas
r59 r72 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, SpecializedList, SyncObjs ;8 Classes, SysUtils, FileUtil, SpecializedList, SyncObjs, LazFileUtils; 9 9 10 10 type … … 104 104 if ExtractFileDir(FileName) <> '' then 105 105 ForceDirectoriesUTF8(ExtractFileDir(FileName)); 106 if FileExistsUTF8(FileName) then LogFile := TFileStream.Create( UTF8Decode(FileName), fmOpenWrite)107 else LogFile := TFileStream.Create( UTF8Decode(FileName), fmCreate);106 if FileExistsUTF8(FileName) then LogFile := TFileStream.Create(FileName, fmOpenWrite) 107 else LogFile := TFileStream.Create(FileName, fmCreate); 108 108 LogFile.Seek(0, soFromEnd); 109 109 Text := FormatDateTime('hh:nn:ss.zzz', Now) + ': ' + Text + LineEnding; -
trunk/Packages/Common/UFindFile.pas
r59 r72 24 24 25 25 uses 26 SysUtils, Classes, Graphics, Controls, Forms, Dialogs , FileCtrl;26 SysUtils, Classes, Graphics, Controls, Forms, Dialogs; 27 27 28 28 type … … 116 116 if ffaAnyFile in FileAttr then Attr := Attr + faAnyFile; 117 117 118 if SysUtils.FindFirst( UTF8Decode(inPath + FileMask), Attr, Rec) = 0 then118 if SysUtils.FindFirst(inPath + FileMask, Attr, Rec) = 0 then 119 119 try 120 120 repeat … … 127 127 If not InSubFolders then Exit; 128 128 129 if SysUtils.FindFirst( UTF8Decode(inPath + '*.*'), faDirectory, Rec) = 0 then129 if SysUtils.FindFirst(inPath + '*.*', faDirectory, Rec) = 0 then 130 130 try 131 131 repeat -
trunk/Packages/Common/ULastOpenedList.pas
r59 r72 139 139 OpenKey(Context.Key, True); 140 140 for I := 0 to Items.Count - 1 do 141 WriteString('File' + IntToStr(I), UTF8Decode(Items[I]));141 WriteString('File' + IntToStr(I), Items[I]); 142 142 finally 143 143 Free; -
trunk/Packages/Common/UListViewSort.pas
r59 r72 119 119 var 120 120 I: Integer; 121 NewColumn: TGridColumn;122 121 begin 123 122 with FStringGrid1 do begin 124 123 Columns.Clear; 125 124 while Columns.Count > ListView.Columns.Count do Columns.Delete(Columns.Count - 1); 126 while Columns.Count < ListView.Columns.Count do NewColumn :=Columns.Add;125 while Columns.Count < ListView.Columns.Count do Columns.Add; 127 126 for I := 0 to ListView.Columns.Count - 1 do begin 128 127 Columns[I].Width := ListView.Columns[I].Width; -
trunk/Packages/Common/UScaleDPI.pas
r61 r72 27 27 function ScaleX(Size: Integer; FromDPI: Integer): Integer; 28 28 function ScaleY(Size: Integer; FromDPI: Integer): Integer; 29 constructor Create(AOwner: TComponent); 29 constructor Create(AOwner: TComponent); override; 30 30 published 31 31 property AutoDetect: Boolean read FAutoDetect write SetAutoDetect; -
trunk/Packages/Common/UURI.pas
r59 r72 89 89 function LeftCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean; 90 90 var 91 I , J: Integer;91 I: Integer; 92 92 Matched: Boolean; 93 93 begin … … 113 113 function RightCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean; 114 114 var 115 I , J: Integer;115 I: Integer; 116 116 Matched: Boolean; 117 117 begin … … 202 202 203 203 procedure TURI.SetAsString(Value: string); 204 var205 HostAddr: string;206 HostPort: string;207 204 begin 208 205 LeftCutString(Value, Scheme, ':'); -
trunk/Packages/Common/UXMLUtils.pas
r54 r72 10 10 11 11 function XMLTimeToDateTime(XMLDateTime: string): TDateTime; 12 function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;12 function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string; 13 13 14 14 … … 35 35 function LeftCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean; 36 36 var 37 I , J: Integer;37 I: Integer; 38 38 Matched: Boolean; 39 39 begin … … 106 106 end; 107 107 108 function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;108 function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string; 109 109 const 110 110 Neg: array[Boolean] of string = ('+', '-'); -
trunk/Packages/CoolTranslator/CoolTranslator.pas
r54 r72 3 3 } 4 4 5 unit CoolTranslator; 5 unit CoolTranslator; 6 6 7 {$warn 5023 off : no warning about unused units} 7 8 interface 8 9 … … 12 13 implementation 13 14 14 procedure Register; 15 procedure Register; 15 16 begin 16 RegisterUnit('UCoolTranslator', @UCoolTranslator.Register); 17 end; 17 RegisterUnit('UCoolTranslator', @UCoolTranslator.Register); 18 end; 18 19 19 20 initialization 20 RegisterPackage('CoolTranslator', @Register); 21 RegisterPackage('CoolTranslator', @Register); 21 22 end. -
trunk/Packages/CoolTranslator/UCoolTranslator.pas
r54 r72 6 6 7 7 uses 8 Classes, SysUtils, Forms, StdCtrls, ExtCtrls, StrUtils, Controls, Contnrs, 9 Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType; 8 Classes, SysUtils, Forms, ExtCtrls, Controls, Contnrs, 9 Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType, 10 LazFileUtils, LazUTF8; 10 11 11 12 type … … 190 191 PropInfo: PPropInfo; 191 192 PropList: PPropList; 192 Excludes: TComponentExcludes;193 193 begin 194 194 Count := GetTypeData(Component.ClassInfo)^.PropCount; … … 223 223 var 224 224 PropType: PTypeInfo; 225 Parent: TObject;226 225 Obj: TObject; 227 226 I: Integer; … … 244 243 if (UpperCase(PropType.Name) = 'TTRANSLATESTRING') then 245 244 //if not IsExcluded(Component, PropInfo^.Name) then 246 SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, Get WideStrProp(Component, PropInfo)));245 SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, GetStrProp(Component, PropInfo))); 247 246 end; 248 247 tkClass: begin … … 382 381 T: string; 383 382 begin 383 T := ''; 384 384 385 // Win32 user may decide to override locale with LANG variable. 385 386 Lang := GetEnvironmentVariableUTF8('LANG'); … … 396 397 end; 397 398 if Lang = '' then 398 L CLGetLanguageIDs(Lang, T);399 LazGetLanguageIDs(Lang, T); 399 400 400 401 if Assigned(Language) and (Language.Code = '') and Assigned(FOnAutomaticLanguage) then begin … … 414 415 function TCoolTranslator.FindLocaleFileName(LCExt: string): string; 415 416 var 416 T: string;417 I: Integer;418 417 Lang: string; 419 418 begin -
trunk/Packages/TemplateGenerics/Additional/UBinarySerializer.pas
r54 r72 65 65 StringLength: Longint; 66 66 begin 67 StringLength := 0; 67 68 FStream.ReadBuffer(StringLength, SizeOf(StringLength)); 68 69 Result := ReadString(StringLength); … … 94 95 function TBinarySerializer.ReadByte: Byte; 95 96 begin 97 Result := 0; 96 98 FStream.ReadBuffer(Result, SizeOf(Byte)); 97 99 end; … … 99 101 function TBinarySerializer.ReadCardinal: Cardinal; 100 102 begin 103 Result := 0; 101 104 FStream.ReadBuffer(Result, SizeOf(Cardinal)); 102 105 if SwapData then Result := SwapEndian(Result); … … 105 108 function TBinarySerializer.ReadInt64: Int64; 106 109 begin 110 Result := 0; 107 111 FStream.ReadBuffer(Result, SizeOf(Int64)); 108 112 if SwapData then Result := SwapEndian(Result); … … 121 125 Count: Byte; 122 126 begin 127 Count := 0; 123 128 FStream.ReadBuffer(Count, 1); 124 129 Result := ReadString(Count); … … 206 211 function TBinarySerializer.ReadDouble: Double; 207 212 begin 213 Result := 0; 208 214 FStream.ReadBuffer(Result, SizeOf(Double)); 209 215 end; … … 211 217 function TBinarySerializer.ReadSingle: Single; 212 218 begin 219 Result := 0; 213 220 FStream.ReadBuffer(Result, SizeOf(Single)); 214 221 end; … … 216 223 function TBinarySerializer.ReadWord: Word; 217 224 begin 225 Result := 0; 218 226 FStream.ReadBuffer(Result, SizeOf(Word)); 219 227 if SwapData then Result := SwapEndian(Result); … … 262 270 procedure TBinarySerializer.WriteByte(Data: Byte); 263 271 begin 272 Data := 0; 264 273 FStream.WriteBuffer(Data, SizeOf(Byte)); 265 274 end; -
trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc
r54 r72 49 49 function Implode(RowSeparator, ColSeparator: string; Converter: TGMatrixToStringConverter): string; 50 50 procedure Explode(Text, Separator: string; Converter: TGMatrixFromStringConverter; SlicesCount: Integer = -1); 51 function IndexOf(Item: TGMatrixItem; Start: TGMatrixIndex = 0): TGMatrixIndex;52 function IndexOfList(List: TGMatrix; Start: TGMatrixIndex = 0): TGMatrixIndex;51 function IndexOf(Item: TGMatrixItem; Start: TGMatrixIndex): TGMatrixIndex; 52 function IndexOfList(List: TGMatrix; Start: TGMatrixIndex): TGMatrixIndex; 53 53 procedure Insert(Index: TGMatrixIndex; Item: TGMatrixItem); 54 54 procedure InsertList(Index: TGMatrixIndex; List: TGMatrix); -
trunk/Packages/TemplateGenerics/TemplateGenerics.lpk
r54 r72 1 <?xml version="1.0" ?>1 <?xml version="1.0" encoding="UTF-8"?> 2 2 <CONFIG> 3 3 <Package Version="4"> 4 4 <PathDelim Value="\"/> 5 5 <Name Value="TemplateGenerics"/> 6 <Type Value="RunAndDesignTime"/> 6 7 <AddToProjectUsesSection Value="True"/> 7 8 <Author Value="Chronos (robie@centrum.cz)"/> … … 16 17 <CodeGeneration> 17 18 <Optimizations> 19 <OptimizationLevel Value="3"/> 18 20 <VariablesInRegisters Value="True"/> 19 <OptimizationLevel Value="3"/>20 21 </Optimizations> 21 22 </CodeGeneration> 22 23 <Other> 23 24 <CompilerMessages> 24 < UseMsgFile Value="True"/>25 <IgnoredMessages idx5024="True"/> 25 26 </CompilerMessages> 26 <CompilerPath Value="$(CompPath)"/>27 27 </Other> 28 28 </CompilerOptions> … … 139 139 </Item27> 140 140 </Files> 141 <Type Value="RunAndDesignTime"/>142 141 <RequiredPkgs Count="2"> 143 142 <Item1> -
trunk/Packages/TemplateGenerics/TemplateGenerics.pas
r54 r72 5 5 unit TemplateGenerics; 6 6 7 {$warn 5023 off : no warning about unused units} 7 8 interface 8 9 -
trunk/Target/UTargetC.pas
r66 r72 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, UTarget, UBFTarget, Process, Dialogs; 8 Classes, SysUtils, FileUtil, UTarget, UBFTarget, Process, Dialogs, 9 LazFileUtils; 9 10 10 11 type … … 46 47 47 48 procedure TTargetC.Compile; 48 var49 Sum: Integer;50 49 begin 51 50 inherited; -
trunk/Target/UTargetDelphi.pas
r66 r72 39 39 40 40 procedure TTargetDelphi.Compile; 41 var42 Sum: Integer;43 41 begin 44 42 inherited; -
trunk/Target/UTargetInterpretter.pas
r70 r72 6 6 7 7 uses 8 Classes, SysUtils, Dialogs, Forms, StrUtils, UTarget, Registry, URegistry, 9 UBFTarget; 8 Classes, SysUtils, Dialogs, Forms, UTarget, UBFTarget; 10 9 11 10 type … … 84 83 SProgramLowerLimit = 'Program run over lower limit'; 85 84 SProgramUpperLimit = 'Program run over upper limit'; 86 SReadInputError = 'Read input error';87 85 SJumpTableInsistent = 'Jump table is inconsistent'; 88 86 SJumpTableColision = 'Jump table colision'; 89 SMemoryCellOutOfRange = 'Memory cell %s value out of range';90 87 SProgramNotRunning = 'Program not running'; 91 88 SUnsupportedCommand = 'Unsupported command'; … … 328 325 var 329 326 Step: TDebugStep; 330 StepIndex: Integer;331 Nesting: Integer;332 327 begin 333 328 if State = rsPaused then begin … … 350 345 var 351 346 Step: TDebugStep; 352 StepIndex: Integer;353 Nesting: Integer;354 347 begin 355 348 if State = rsPaused then begin -
trunk/Target/UTargetJava.pas
r66 r72 45 45 46 46 procedure TTargetJava.Compile; 47 var48 Sum: Integer;49 47 begin 50 48 inherited; -
trunk/Target/UTargetPHP.pas
r66 r72 45 45 46 46 procedure TTargetPHP.Compile; 47 var48 Sum: Integer;49 47 begin 50 48 inherited; -
trunk/UCore.pas
r70 r72 7 7 uses 8 8 Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList, UProject, 9 UCoolTranslator, UTarget, URegistry, Registry, XMLConf,Graphics, UScaleDPI;9 UCoolTranslator, UTarget, URegistry, Registry, Graphics, UScaleDPI; 10 10 11 11 type … … 73 73 74 74 procedure TCore.LoadFromRegistry(Root: HKEY; Key: string); 75 var76 TargetName: string;77 75 begin 78 76 with TRegistryEx.Create do -
trunk/UTarget.pas
r70 r72 7 7 uses 8 8 Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList, Dialogs, 9 FileUtil, Process, Menus ;9 FileUtil, Process, Menus, LazFileUtils; 10 10 11 11 type … … 339 339 function TTarget.GetExecutionPosition: Integer; 340 340 begin 341 341 Result := 0; 342 342 end; 343 343 … … 416 416 try 417 417 Text := FTargetCode; 418 SaveToFile( UTF8Decode(CompiledFile));418 SaveToFile(CompiledFile); 419 419 finally 420 420 Free; … … 538 538 function TTarget.SourceReadNext: Char; 539 539 begin 540 // while FProgramIndex;540 Result := ' '; 541 541 end; 542 542
Note:
See TracChangeset
for help on using the changeset viewer.