Changeset 72 for trunk


Ignore:
Timestamp:
Mar 6, 2016, 12:10:38 AM (8 years ago)
Author:
chronos
Message:
  • Modified: Built with FPC 3.0.0. Fixed various compiler messages.
Location:
trunk
Files:
34 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r70 r72  
    55  Width = 860
    66  Caption = 'LazFuck'
    7   ClientHeight = 557
     7  ClientHeight = 558
    88  ClientWidth = 860
    99  Menu = MainMenu1
    … …  
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '1.5'
     14  LCLVersion = '1.7'
    1515  WindowState = wsMaximized
    1616  object StatusBarMain: TStatusBar
    1717    Left = 0
    18     Height = 29
    19     Top = 528
     18    Height = 24
     19    Top = 534
    2020    Width = 860
    2121    Panels = <   
    … …  
    130130  object PageControlRight: TPageControl
    131131    Left = 467
    132     Height = 502
     132    Height = 508
    133133    Top = 26
    134134    Width = 393
    … …  
    140140    object TabSheetDebug: TTabSheet
    141141      Caption = 'Debug'
    142       ClientHeight = 496
    143       ClientWidth = 315
     142      ClientHeight = 504
     143      ClientWidth = 313
    144144      object PanelInput: TPanel
    145145        Left = 0
    146146        Height = 64
    147147        Top = 0
    148         Width = 315
     148        Width = 313
    149149        Align = alTop
    150150        BevelOuter = bvNone
    … …  
    156156        Height = 5
    157157        Top = 64
    158         Width = 315
     158        Width = 313
    159159        Align = alTop
    160160        ResizeAnchor = akTop
    … …  
    164164        Height = 259
    165165        Top = 69
    166         Width = 315
     166        Width = 313
    167167        Align = alTop
    168168        BevelOuter = bvNone
    … …  
    174174        Height = 5
    175175        Top = 328
    176         Width = 315
     176        Width = 313
    177177        Align = alTop
    178178        ResizeAnchor = akTop
    … …  
    182182        Height = 86
    183183        Top = 333
    184         Width = 315
     184        Width = 313
    185185        Align = alTop
    186186        BevelOuter = bvNone
    … …  
    192192        Height = 5
    193193        Top = 419
    194         Width = 315
     194        Width = 313
    195195        Align = alTop
    196196        ResizeAnchor = akTop
    … …  
    198198      object PanelMemory: TPanel
    199199        Left = 0
    200         Height = 72
     200        Height = 80
    201201        Top = 424
    202         Width = 315
     202        Width = 313
    203203        Align = alClient
    204204        BevelOuter = bvNone
    … …  
    209209  object Splitter1: TSplitter
    210210    Left = 462
    211     Height = 502
     211    Height = 508
    212212    Top = 26
    213213    Width = 5
    … …  
    217217  object PanelLeft: TPanel
    218218    Left = 0
    219     Height = 502
     219    Height = 508
    220220    Top = 26
    221221    Width = 462
    222222    Align = alClient
    223223    BevelOuter = bvNone
    224     ClientHeight = 502
     224    ClientHeight = 508
    225225    ClientWidth = 462
    226226    TabOrder = 4
    227227    object PageControlMain: TPageControl
    228228      Left = 0
    229       Height = 379
     229      Height = 385
    230230      Top = 0
    231231      Width = 462
    … …  
    245245      Left = 0
    246246      Height = 118
    247       Top = 384
     247      Top = 390
    248248      Width = 462
    249249      ActivePage = TabSheetMessages
    … …  
    260260      Left = 0
    261261      Height = 5
    262       Top = 379
     262      Top = 385
    263263      Width = 462
    264264      Align = alBottom
    … …  
    18911891      E7FFEAEAEAFFB5B0AAFF887459FFC6BDB1008F7D65FF735D3EFF735D3EFF735D
    18921892      3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D3EFF735D
    1893       3EFF735D3EFF8F7D65FFC6BDB100FF00FF00FF00FF00FF00FF00FF00FF00FF00
    1894       FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
    1895       FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
    1896       FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
    1897       FF00FF00FF00FF00FF00FF00FF00FF00FF00D6B5A5FFD6B5A5FFD6B5A5FFD6B5
     1893      3EFF735D3EFF8F7D65FFC6BDB1002A351A002A351A002A351A002A351A002A35
     1894      1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35
     1895      1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35
     1896      1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35
     1897      1A002A351A002A351A002A351A002A351A00D6B5A5FFD6B5A5FFD6B5A5FFD6B5
    18981898      A5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6ADA5FFC6AD
    1899       A5FFC6ADA5FFFF00FF00FF00FF00D6B5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     1899      A5FFC6ADA5FF2A351A002A351A00D6B5A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    19001900      FFFFFFF7F7FFFFF7F7FFFFF7F7FFFFF7F7FFFFF7F7FFFFEFE7FFFFEFE7FFFFEF
    1901       E7FFFFEFE7FF634A31FFFF00FF00D6B5A5FFFFFFFFFFD69C84FFD69484FFC694
     1901      E7FFFFEFE7FF634A31FF2A351A00D6B5A5FFFFFFFFFFD69C84FFD69484FFC694
    19021902      73FFD68C73FFD68C63FFC68463FFC67B52FFC67342FFC66B42FFC66B42FFD67B
    1903       42FFFFEFE7FF634A31FFFF00FF00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFDE
     1903      42FFFFEFE7FF634A31FF2A351A00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFDE
    19041904      D6FFFFD6C6FFFFCEB5FFFFCEB5FFFFC6A5FFFFC6A5FFFFB594FFFFB584FFE77B
    1905       42FFFFEFE7FF634A31FFFF00FF00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFEF
     1905      42FFFFEFE7FF634A31FF2A351A00D6B5A5FFFFFFFFFFC69473FFFFDED6FFFFEF
    19061906      E7FFFFEFE7FFFFEFE7FFFFC6A5FFFFC6A5FFFFB594FFFFB594FFF79C73FFE77B
    1907       42FFFFEFE7FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFD6
     1907      42FFFFEFE7FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFD6
    19081908      C6FFFFCEB5FFFFC6A5FFFFC6A5FFFFB594FFF7A584FFF79C73FFF79C73FFE773
    1909       42FFFFEFE7FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFEF
     1909      42FFFFEFE7FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFD6C6FFFFEF
    19101910      E7FFFFEFE7FFFFEFE7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFE78C63FFE773
    1911       42FFFFE7D6FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFC6
     1911      42FFFFE7D6FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFC6
    19121912      A5FFFFC6A5FFFFB594FFF7A584FFF7A584FFF79C73FFE78C63FFE78463FFE773
    1913       42FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFEF
     1913      42FFFFDED6FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFCEB5FFFFEF
    19141914      E7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFFFD6C6FFFFD6C6FFD67B52FFE773
    1915       42FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFF7F7FFC69473FFFFC6A5FFF7B5
     1915      42FFFFDED6FF634A31FF2A351A00C6ADA5FFFFF7F7FFC69473FFFFC6A5FFF7B5
    19161916      94FFF7A584FFF79C73FFF79C73FFE78C63FFE78463FFD67B52FFD67352FFE773
    1917       42FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFEFE7FFD69484FFE7A584FFF7A5
     1917      42FFFFDED6FF634A31FF2A351A00C6ADA5FFFFEFE7FFD69484FFE7A584FFF7A5
    19181918      84FFF79C73FFF79C73FFE78C63FFE78463FFE78452FFE78442FFE77B42FFE784
    1919       52FFFFDED6FF634A31FFFF00FF00C6ADA5FFFFEFE7FFFFEFE7FFFFEFE7FFFFEF
     1919      52FFFFDED6FF634A31FF2A351A00C6ADA5FFFFEFE7FFFFEFE7FFFFEFE7FFFFEF
    19201920      E7FFFFEFE7FFFFEFE7FFFFEFE7FFFFE7D6FFFFDED6FFFFDED6FFFFDED6FFFFDE
    1921       D6FFFFDED6FF634A31FFFF00FF00FF00FF00634A31FF634A31FF634A31FF634A
     1921      D6FFFFDED6FF634A31FF2A351A002A351A00634A31FF634A31FF634A31FF634A
    19221922      31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A31FF634A
    1923       31FF634A31FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
    1924       FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
    1925       FF00FF00FF00FF00FF00FF00FF00
     1923      31FF634A31FF2A351A002A351A002A351A002A351A002A351A002A351A002A35
     1924      1A002A351A002A351A002A351A002A351A002A351A002A351A002A351A002A35
     1925      1A002A351A002A351A002A351A00
    19261926    }
    19271927  end

  • trunk/Forms/UFormMain.pas

    r70 r72  
    77uses
    88  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;
    1011
    1112type
    … …  
    171172
    172173resourcestring
    173   SProgramExited = 'Program exited';
    174174  SProgramStarted = 'Program started';
    175175  SProgramStopped = 'Program stopped';
    … …  
    245245  if Core.Project.Openned then
    246246    raise Exception.Create(SCloseProjectFirst);
    247   FormSourceCode.MemoSource.Lines.LoadFromFile(UTF8Decode(FileName));
     247  FormSourceCode.MemoSource.Lines.LoadFromFile(FileName);
    248248  Core.LastOpenedList.AddItem(FileName);
    249249  Core.Project.FileName := FileName;
    … …  
    609609  SaveDialog1.FileName := Core.Project.FileName;
    610610  if SaveDialog1.Execute then begin
    611     FormSourceCode.MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
     611    FormSourceCode.MemoSource.Lines.SaveToFile(SaveDialog1.FileName);
    612612    Core.Project.FileName := SaveDialog1.FileName;
    613613    Core.LastOpenedList.AddItem(SaveDialog1.FileName);
    … …  
    620620begin
    621621  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);
    623623    Core.Project.Modified := False;
    624624    UpdateInterface;

  • trunk/Forms/UFormMessages.pas

    r67 r72  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
     8  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
    99  ComCtrls;
    1010

  • trunk/Forms/UFormOptions.pas

    r70 r72  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   Spin, UTargetInterpretter, UTarget;
     9  Spin, UTarget;
    1010
    1111type

  • trunk/Forms/UFormTargetOptions.pas

    r50 r72  
    3737implementation
    3838
    39 resourcestring
    40   SCompilerOptions = 'Compiler options';
    41   SCompilerPath = 'Compiler path';
    42   SSelectDirectory = 'Select directory';
    43 
    4439{$R *.lfm}
    4540

  • trunk/Languages/LazFuckIDE.cs.po

    r69 r72  
    855855msgstr "NovÜ projekt"
    856856
    857 #: uformmain.sprogramexited
    858 msgctxt "uformmain.sprogramexited"
    859 msgid "Program exited"
    860 msgstr "Program ukončen"
    861 
    862857#: uformmain.sprogramstarted
    863858msgid "Program started"
    … …  
    951946msgstr "Nekonzistentní skoková tabulka"
    952947
    953 #: utargetinterpretter.smemorycelloutofrange
    954 msgctxt "utargetinterpretter.smemorycelloutofrange"
    955 msgid "Memory cell %s value out of range"
    956 msgstr "Hodnota paměťové buňky %s je mimo rozsah"
    957 
    958948#: utargetinterpretter.sprogramlowerlimit
    959949msgctxt "utargetinterpretter.sprogramlowerlimit"
    … …  
    970960msgstr "Program překročil horní omezení"
    971961
    972 #: utargetinterpretter.sreadinputerror
    973 msgctxt "utargetinterpretter.sreadinputerror"
    974 msgid "Read input error"
    975 msgstr "Chyba čtení vstupu"
    976 
    977962#: utargetinterpretter.sunsupportedcommand
    978963msgid "Unsupported command"
    979964msgstr "NepodporovanÃœ příkaz"
     965

  • trunk/Languages/LazFuckIDE.po

    r67 r72  
    842842msgstr ""
    843843
    844 #: uformmain.sprogramexited
    845 msgctxt "uformmain.sprogramexited"
    846 msgid "Program exited"
    847 msgstr ""
    848 
    849844#: uformmain.sprogramstarted
    850845msgid "Program started"
    … …  
    938933msgstr ""
    939934
    940 #: utargetinterpretter.smemorycelloutofrange
    941 msgctxt "utargetinterpretter.smemorycelloutofrange"
    942 msgid "Memory cell %s value out of range"
    943 msgstr ""
    944 
    945935#: utargetinterpretter.sprogramlowerlimit
    946936msgctxt "utargetinterpretter.sprogramlowerlimit"
    … …  
    957947msgstr ""
    958948
    959 #: utargetinterpretter.sreadinputerror
    960 msgctxt "utargetinterpretter.sreadinputerror"
    961 msgid "Read input error"
    962 msgstr ""
    963 
    964949#: utargetinterpretter.sunsupportedcommand
    965950msgid "Unsupported command"

  • trunk/LazFuckIDE.lpi

    r71 r72  
    256256      </Options>
    257257    </Linking>
     258    <Other>
     259      <CompilerMessages>
     260        <IgnoredMessages idx5024="True"/>
     261      </CompilerMessages>
     262    </Other>
    258263  </CompilerOptions>
    259264  <Debugging>

  • trunk/Packages/Common/Common.lpk

    r61 r72  
    44    <PathDelim Value="\"/>
    55    <Name Value="Common"/>
     6    <Type Value="RunAndDesignTime"/>
    67    <AddToProjectUsesSection Value="True"/>
    78    <Author Value="Chronos (robie@centrum.cz)"/>
    … …  
    1213        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1314      </SearchPaths>
     15      <Other>
     16        <CompilerMessages>
     17          <IgnoredMessages idx5024="True"/>
     18        </CompilerMessages>
     19      </Other>
    1420    </CompilerOptions>
    1521    <Description Value="Various libraries"/>
    … …  
    110116      <OutDir Value="Languages"/>
    111117    </i18n>
    112     <Type Value="RunAndDesignTime"/>
    113118    <RequiredPkgs Count="2">
    114119      <Item1>

  • trunk/Packages/Common/Common.pas

    r61 r72  
    55unit Common;
    66
     7{$warn 5023 off : no warning about unused units}
    78interface
    89

  • trunk/Packages/Common/UApplicationInfo.pas

    r59 r72  
    66
    77uses
    8   SysUtils, Registry, Classes, Forms, URegistry;
     8  SysUtils, Classes, Forms, URegistry;
    99
    1010type

  • trunk/Packages/Common/UCommon.pas

    r59 r72  
    88  {$IFDEF Windows}Windows,{$ENDIF}
    99  Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf,
    10   FileUtil; //, ShFolder, ShellAPI;
     10  FileUtil, LazFileUtils; //, ShFolder, ShellAPI;
    1111
    1212type
    … …  
    9191  I: Integer;
    9292begin
     93  Result := '';
    9394  for I := 1 to Length(Source) do begin
    9495    Result := Result + LowerCase(IntToHex(Ord(Source[I]), 2));
    … …  
    105106  Path := IncludeTrailingPathDelimiter(APath);
    106107
    107   Find := FindFirst(UTF8Decode(Path + AFileSpec), faAnyFile xor faDirectory, SearchRec);
     108  Find := FindFirst(Path + AFileSpec, faAnyFile xor faDirectory, SearchRec);
    108109  while Find = 0 do begin
    109     DeleteFileUTF8(Path + UTF8Encode(SearchRec.Name));
     110    DeleteFileUTF8(Path + SearchRec.Name);
    110111
    111112    Find := SysUtils.FindNext(SearchRec);
    … …  
    416417
    417418procedure OpenWebPage(URL: string);
    418 var
    419   Process: TProcess;
    420   Browser, Params: string;
    421419begin
    422420  OpenURL(URL);
    423   {try
    424     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   finally
    433     Process.Free;
    434   end;}
    435421end;
    436422

  • trunk/Packages/Common/UDebugLog.pas

    r59 r72  
    66
    77uses
    8   Classes, SysUtils, FileUtil, SpecializedList, SyncObjs;
     8  Classes, SysUtils, FileUtil, SpecializedList, SyncObjs, LazFileUtils;
    99
    1010type
    … …  
    104104    if ExtractFileDir(FileName) <> '' then
    105105      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);
    108108    LogFile.Seek(0, soFromEnd);
    109109    Text := FormatDateTime('hh:nn:ss.zzz', Now) + ': ' + Text + LineEnding;

  • trunk/Packages/Common/UFindFile.pas

    r59 r72  
    2424
    2525uses
    26   SysUtils, Classes, Graphics, Controls, Forms, Dialogs, FileCtrl;
     26  SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
    2727
    2828type
    … …  
    116116  if ffaAnyFile in FileAttr then Attr := Attr + faAnyFile;
    117117
    118   if SysUtils.FindFirst(UTF8Decode(inPath + FileMask), Attr, Rec) = 0 then
     118  if SysUtils.FindFirst(inPath + FileMask, Attr, Rec) = 0 then
    119119  try
    120120    repeat
    … …  
    127127  If not InSubFolders then Exit;
    128128
    129   if SysUtils.FindFirst(UTF8Decode(inPath + '*.*'), faDirectory, Rec) = 0 then
     129  if SysUtils.FindFirst(inPath + '*.*', faDirectory, Rec) = 0 then
    130130  try
    131131    repeat

  • trunk/Packages/Common/ULastOpenedList.pas

    r59 r72  
    139139    OpenKey(Context.Key, True);
    140140    for I := 0 to Items.Count - 1 do
    141       WriteString('File' + IntToStr(I), UTF8Decode(Items[I]));
     141      WriteString('File' + IntToStr(I), Items[I]);
    142142  finally
    143143    Free;

  • trunk/Packages/Common/UListViewSort.pas

    r59 r72  
    119119var
    120120  I: Integer;
    121   NewColumn: TGridColumn;
    122121begin
    123122  with FStringGrid1 do begin
    124123    Columns.Clear;
    125124    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;
    127126    for I := 0 to ListView.Columns.Count - 1 do begin
    128127      Columns[I].Width := ListView.Columns[I].Width;

  • trunk/Packages/Common/UScaleDPI.pas

    r61 r72  
    2727    function ScaleX(Size: Integer; FromDPI: Integer): Integer;
    2828    function ScaleY(Size: Integer; FromDPI: Integer): Integer;
    29     constructor Create(AOwner: TComponent);
     29    constructor Create(AOwner: TComponent); override;
    3030  published
    3131    property AutoDetect: Boolean read FAutoDetect write SetAutoDetect;

  • trunk/Packages/Common/UURI.pas

    r59 r72  
    8989function LeftCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean;
    9090var
    91   I, J: Integer;
     91  I: Integer;
    9292  Matched: Boolean;
    9393begin
    … …  
    113113function RightCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean;
    114114var
    115   I, J: Integer;
     115  I: Integer;
    116116  Matched: Boolean;
    117117begin
    … …  
    202202
    203203procedure TURI.SetAsString(Value: string);
    204 var
    205   HostAddr: string;
    206   HostPort: string;
    207204begin
    208205  LeftCutString(Value, Scheme, ':');

  • trunk/Packages/Common/UXMLUtils.pas

    r54 r72  
    1010
    1111function XMLTimeToDateTime(XMLDateTime: string): TDateTime;
    12 function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;
     12function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string;
    1313
    1414
    … …  
    3535function LeftCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean;
    3636var
    37   I, J: Integer;
     37  I: Integer;
    3838  Matched: Boolean;
    3939begin
    … …  
    106106end;
    107107
    108 function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;
     108function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string;
    109109const
    110110  Neg: array[Boolean] of string =  ('+', '-');

  • trunk/Packages/CoolTranslator/CoolTranslator.pas

    r54 r72  
    33 }
    44
    5 unit CoolTranslator; 
     5unit CoolTranslator;
    66
     7{$warn 5023 off : no warning about unused units}
    78interface
    89
    … …  
    1213implementation
    1314
    14 procedure Register; 
     15procedure Register;
    1516begin
    16   RegisterUnit('UCoolTranslator', @UCoolTranslator.Register); 
    17 end; 
     17  RegisterUnit('UCoolTranslator', @UCoolTranslator.Register);
     18end;
    1819
    1920initialization
    20   RegisterPackage('CoolTranslator', @Register); 
     21  RegisterPackage('CoolTranslator', @Register);
    2122end.

  • trunk/Packages/CoolTranslator/UCoolTranslator.pas

    r54 r72  
    66
    77uses
    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;
    1011
    1112type
    … …  
    190191  PropInfo: PPropInfo;
    191192  PropList: PPropList;
    192   Excludes: TComponentExcludes;
    193193begin
    194194  Count := GetTypeData(Component.ClassInfo)^.PropCount;
    … …  
    223223var
    224224  PropType: PTypeInfo;
    225   Parent: TObject;
    226225  Obj: TObject;
    227226  I: Integer;
    … …  
    244243          if (UpperCase(PropType.Name) = 'TTRANSLATESTRING') then
    245244          //if not IsExcluded(Component, PropInfo^.Name) then
    246               SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, GetWideStrProp(Component, PropInfo)));
     245              SetStrProp(Component, PropInfo, TranslateText(PropInfo^.Name, GetStrProp(Component, PropInfo)));
    247246        end;
    248247        tkClass: begin
    … …  
    382381  T: string;
    383382begin
     383  T := '';
     384
    384385  // Win32 user may decide to override locale with LANG variable.
    385386  Lang := GetEnvironmentVariableUTF8('LANG');
    … …  
    396397  end;
    397398  if Lang = '' then
    398     LCLGetLanguageIDs(Lang, T);
     399    LazGetLanguageIDs(Lang, T);
    399400
    400401  if Assigned(Language) and (Language.Code = '') and Assigned(FOnAutomaticLanguage) then begin
    … …  
    414415function TCoolTranslator.FindLocaleFileName(LCExt: string): string;
    415416var
    416   T: string;
    417   I: Integer;
    418417  Lang: string;
    419418begin

  • trunk/Packages/TemplateGenerics/Additional/UBinarySerializer.pas

    r54 r72  
    6565  StringLength: Longint;
    6666begin
     67  StringLength  := 0;
    6768  FStream.ReadBuffer(StringLength, SizeOf(StringLength));
    6869  Result := ReadString(StringLength);
    … …  
    9495function TBinarySerializer.ReadByte: Byte;
    9596begin
     97  Result := 0;
    9698  FStream.ReadBuffer(Result, SizeOf(Byte));
    9799end;
    … …  
    99101function TBinarySerializer.ReadCardinal: Cardinal;
    100102begin
     103  Result := 0;
    101104  FStream.ReadBuffer(Result, SizeOf(Cardinal));
    102105  if SwapData then Result := SwapEndian(Result);
    … …  
    105108function TBinarySerializer.ReadInt64: Int64;
    106109begin
     110  Result := 0;
    107111  FStream.ReadBuffer(Result, SizeOf(Int64));
    108112  if SwapData then Result := SwapEndian(Result);
    … …  
    121125  Count: Byte;
    122126begin
     127  Count := 0;
    123128  FStream.ReadBuffer(Count, 1);
    124129  Result := ReadString(Count);
    … …  
    206211function TBinarySerializer.ReadDouble: Double;
    207212begin
     213  Result := 0;
    208214  FStream.ReadBuffer(Result, SizeOf(Double));
    209215end;
    … …  
    211217function TBinarySerializer.ReadSingle: Single;
    212218begin
     219  Result := 0;
    213220  FStream.ReadBuffer(Result, SizeOf(Single));
    214221end;
    … …  
    216223function TBinarySerializer.ReadWord: Word;
    217224begin
     225  Result := 0;
    218226  FStream.ReadBuffer(Result, SizeOf(Word));
    219227  if SwapData then Result := SwapEndian(Result);
    … …  
    262270procedure TBinarySerializer.WriteByte(Data: Byte);
    263271begin
     272  Data := 0;
    264273  FStream.WriteBuffer(Data, SizeOf(Byte));
    265274end;

  • trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc

    r54 r72  
    4949    function Implode(RowSeparator, ColSeparator: string; Converter: TGMatrixToStringConverter): string;
    5050    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;
    5353    procedure Insert(Index: TGMatrixIndex; Item: TGMatrixItem);
    5454    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"?>
    22<CONFIG>
    33  <Package Version="4">
    44    <PathDelim Value="\"/>
    55    <Name Value="TemplateGenerics"/>
     6    <Type Value="RunAndDesignTime"/>
    67    <AddToProjectUsesSection Value="True"/>
    78    <Author Value="Chronos (robie@centrum.cz)"/>
    … …  
    1617      <CodeGeneration>
    1718        <Optimizations>
     19          <OptimizationLevel Value="3"/>
    1820          <VariablesInRegisters Value="True"/>
    19           <OptimizationLevel Value="3"/>
    2021        </Optimizations>
    2122      </CodeGeneration>
    2223      <Other>
    2324        <CompilerMessages>
    24           <UseMsgFile Value="True"/>
     25          <IgnoredMessages idx5024="True"/>
    2526        </CompilerMessages>
    26         <CompilerPath Value="$(CompPath)"/>
    2727      </Other>
    2828    </CompilerOptions>
    … …  
    139139      </Item27>
    140140    </Files>
    141     <Type Value="RunAndDesignTime"/>
    142141    <RequiredPkgs Count="2">
    143142      <Item1>

  • trunk/Packages/TemplateGenerics/TemplateGenerics.pas

    r54 r72  
    55unit TemplateGenerics;
    66
     7{$warn 5023 off : no warning about unused units}
    78interface
    89

  • trunk/Target/UTargetC.pas

    r66 r72  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UTarget, UBFTarget, Process, Dialogs;
     8  Classes, SysUtils, FileUtil, UTarget, UBFTarget, Process, Dialogs,
     9  LazFileUtils;
    910
    1011type
    … …  
    4647
    4748procedure TTargetC.Compile;
    48 var
    49   Sum: Integer;
    5049begin
    5150  inherited;

  • trunk/Target/UTargetDelphi.pas

    r66 r72  
    3939
    4040procedure TTargetDelphi.Compile;
    41 var
    42   Sum: Integer;
    4341begin
    4442  inherited;

  • trunk/Target/UTargetInterpretter.pas

    r70 r72  
    66
    77uses
    8   Classes, SysUtils, Dialogs, Forms, StrUtils, UTarget, Registry, URegistry,
    9   UBFTarget;
     8  Classes, SysUtils, Dialogs, Forms, UTarget, UBFTarget;
    109
    1110type
    … …  
    8483  SProgramLowerLimit = 'Program run over lower limit';
    8584  SProgramUpperLimit = 'Program run over upper limit';
    86   SReadInputError = 'Read input error';
    8785  SJumpTableInsistent = 'Jump table is inconsistent';
    8886  SJumpTableColision = 'Jump table colision';
    89   SMemoryCellOutOfRange = 'Memory cell %s value out of range';
    9087  SProgramNotRunning = 'Program not running';
    9188  SUnsupportedCommand = 'Unsupported command';
    … …  
    328325var
    329326  Step: TDebugStep;
    330   StepIndex: Integer;
    331   Nesting: Integer;
    332327begin
    333328  if State = rsPaused then begin
    … …  
    350345var
    351346  Step: TDebugStep;
    352   StepIndex: Integer;
    353   Nesting: Integer;
    354347begin
    355348  if State = rsPaused then begin

  • trunk/Target/UTargetJava.pas

    r66 r72  
    4545
    4646procedure TTargetJava.Compile;
    47 var
    48   Sum: Integer;
    4947begin
    5048  inherited;

  • trunk/Target/UTargetPHP.pas

    r66 r72  
    4545
    4646procedure TTargetPHP.Compile;
    47 var
    48   Sum: Integer;
    4947begin
    5048  inherited;

  • trunk/UCore.pas

    r70 r72  
    77uses
    88  Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList, UProject,
    9   UCoolTranslator, UTarget, URegistry, Registry, XMLConf, Graphics, UScaleDPI;
     9  UCoolTranslator, UTarget, URegistry, Registry, Graphics, UScaleDPI;
    1010
    1111type
    … …  
    7373
    7474procedure TCore.LoadFromRegistry(Root: HKEY; Key: string);
    75 var
    76   TargetName: string;
    7775begin
    7876  with TRegistryEx.Create do

  • trunk/UTarget.pas

    r70 r72  
    77uses
    88  Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList, Dialogs,
    9   FileUtil, Process, Menus;
     9  FileUtil, Process, Menus, LazFileUtils;
    1010
    1111type
    … …  
    339339function TTarget.GetExecutionPosition: Integer;
    340340begin
    341 
     341  Result := 0;
    342342end;
    343343
    … …  
    416416  try
    417417    Text := FTargetCode;
    418     SaveToFile(UTF8Decode(CompiledFile));
     418    SaveToFile(CompiledFile);
    419419  finally
    420420    Free;
    … …  
    538538function TTarget.SourceReadNext: Char;
    539539begin
    540 //  while FProgramIndex;
     540  Result := ' ';
    541541end;
    542542
Note: See TracChangeset for help on using the changeset viewer.