Changeset 112


Ignore:
Timestamp:
Feb 2, 2018, 5:03:28 PM (7 years ago)
Author:
chronos
Message:
  • Modified: Code formatting corrections.
Location:
trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Components/Directories.pas

    r111 r112  
    1616uses
    1717  FileUtil, LCLIntf, LCLType, LCLProc, LazUTF8, SysUtils;
    18 
    19 var
    20   AppDataDir: string;
    21   src, dst: TSearchRec;
    22 
    23 
    24 function DirectoryExists(path: string): boolean;
    25 var
    26   f: TSearchRec;
    27 begin
    28   result := FindFirst(path, faDirectory, f) = 0;
    29   FindClose(f);
    30 end;
    3118
    3219function GetLocale: string;
    … …  
    7057
    7158procedure InitUnit;
     59var
     60  AppDataDir: string;
     61  src, dst: TSearchRec;
    7262begin
    7363  LocaleCode := '';

  • trunk/Direct.lfm

    r9 r112  
    11object DirectDlg: TDirectDlg
    22  Left = 188
     3  Height = 64
    34  Top = 198
     5  Width = 360
    46  BorderIcons = []
    57  BorderStyle = bsNone
    68  Caption = 'C-evo'
    7   ClientHeight = 64
    8   ClientWidth = 360
    99  Color = clBtnFace
    10   Font.Charset = DEFAULT_CHARSET
     10  DesignTimePPI = 125
    1111  Font.Color = clWindowText
    1212  Font.Height = -13
    1313  Font.Name = 'MS Sans Serif'
    14   Font.Style = []
    1514  FormStyle = fsStayOnTop
    1615  OnClose = FormClose
    … …  
    1817  OnPaint = FormPaint
    1918  OnShow = FormShow
    20   PixelsPerInch = 96
     19  LCLVersion = '1.8.0.6'
    2120end

  • trunk/Direct.pas

    r111 r112  
    107107      begin
    108108        Hide;
    109         background.Update
     109        background.Update;
    110110      end;
    111111    ntLoadError:
    … …  
    137137      begin
    138138        StartDlg.Hide;
    139         background.Update
     139        background.Update;
    140140      end;
    141141    ntStartGo, ntStartGoRefresh, ntStartGoRefreshMaps:

  • trunk/Start.lfm

    r12 r112  
    1010  ClientWidth = 556
    1111  Color = clBtnFace
     12  DesignTimePPI = 125
    1213  Font.Color = clWindowText
    1314  Font.Height = -13
    … …  
    2425  OnPaint = FormPaint
    2526  OnShow = FormShow
    26   LCLVersion = '1.6.2.0'
     27  LCLVersion = '1.8.0.6'
    2728  object StartBtn: TButtonA
    2829    Tag = 15104
    … …  
    195196    OnClick = ListClick
    196197    ParentFont = False
     198    ScrollWidth = 266
    197199    TabOrder = 0
    198200    TabStop = False
     201    TopIndex = -1
    199202    Visible = False
    200203  end

  • trunk/Start.pas

    r111 r112  
    18541854procedure TStartDlg.QuitBtnClick(Sender: TObject);
    18551855begin
    1856   Close
     1856  Close;
    18571857end;
    18581858
    … …  
    18961896  Shift: TShiftState; x, y: integer);
    18971897begin
    1898   Tracking := false
     1898  Tracking := false;
    18991899end;
    19001900
Note: See TracChangeset for help on using the changeset viewer.