Changeset 187


Ignore:
Timestamp:
Jul 11, 2018, 3:49:23 PM (6 years ago)
Author:
chronos
Message:
  • Modified: Reordered items in Tools menu.
  • Added: Icon to Document check.
Location:
trunk
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormImportSources.lfm

    r174 r187  
    1212  OnShow = FormShow
    1313  Position = poScreenCenter
    14   LCLVersion = '1.8.0.6'
     14  LCLVersion = '1.8.2.0'
    1515  object ToolBar1: TToolBar
    1616    Left = 0
    … …  
    3030    end
    3131    object ToolButton2: TToolButton
    32       Left = 24
     32      Left = 30
    3333      Top = 2
    3434      Action = AModify
    3535    end
    3636    object ToolButton3: TToolButton
    37       Left = 47
     37      Left = 59
    3838      Top = 2
    3939      Action = ARemove
    4040    end
    4141    object ToolButton4: TToolButton
    42       Left = 70
     42      Left = 88
    4343      Top = 2
    4444      Action = AProcess

  • trunk/Forms/UFormMain.lfm

    r184 r187  
    418418    object ADocumentCheck: TAction
    419419      Caption = 'Document check'
     420      ImageIndex = 20
    420421      OnExecute = ADocumentCheckExecute
    421422    end
    … …  
    484485    object MenuItem16: TMenuItem
    485486      Caption = 'Tools'
     487      object MenuItem18: TMenuItem
     488        Action = ASettings
     489      end
     490      object MenuItem2: TMenuItem
     491        Caption = '-'
     492      end
    486493      object MenuItem17: TMenuItem
    487494        Action = AImport
    … …  
    495502      object MenuItem3: TMenuItem
    496503        Action = ADocumentCheck
    497       end
    498       object MenuItem2: TMenuItem
    499         Caption = '-'
    500       end
    501       object MenuItem18: TMenuItem
    502         Action = ASettings
    503504      end
    504505    end

  • trunk/Packages/Common/UCommon.pas

    r186 r187  
    7373function LoadFileToStr(const FileName: TFileName): AnsiString;
    7474procedure SearchFiles(AList: TStrings; Dir: string;
    75   FilterMethod: TFilterMethodMethod);
     75  FilterMethod: TFilterMethodMethod = nil);
    7676function GetStringPart(var Text: string; Separator: string): string;
    7777function PosFromIndex(SubStr: string; Text: string;
    … …  
    528528
    529529procedure SearchFiles(AList: TStrings; Dir: string;
    530   FilterMethod: TFilterMethodMethod);
     530  FilterMethod: TFilterMethodMethod = nil);
    531531var
    532532  SR: TSearchRec;
    … …  
    536536    try
    537537      repeat
    538         if (SR.Name = '.') or (SR.Name = '..') or not FilterMethod(SR.Name) or
    539           not FilterMethod(Copy(Dir, 3, Length(Dir)) + SR.Name) then Continue;
     538        if (SR.Name = '.') or (SR.Name = '..') or (Assigned(FilterMethod) and (not FilterMethod(SR.Name) or
     539          not FilterMethod(Copy(Dir, 3, Length(Dir)) + SR.Name))) then Continue;
    540540        AList.Add(Dir + SR.Name);
    541541        if (SR.Attr and faDirectory) <> 0 then

  • trunk/UCore.lfm

    r181 r187  
    3636    top = 420
    3737    Bitmap = {
    38       4C69140000001000000010000000000000000000000000000000000000000000
     38      4C69150000001000000010000000000000000000000000000000000000000000
    3939      000070A970FF006400FF006200FF70A670FF0000000000000000000000000000
    4040      0000000000000000000000000000000000000000000000000000000000000000
    … …  
    675675      58FFFFCD5AFFFFC044FFFFE0ACFF00000000C7C7EBFF1123C2FF1143D3FF1149
    676676      D6FF1143D1FF1133D2FF2121B5FF000000000000000000000000000000000000
     677      0000000000000000000000000000000000000000000000000000000000000000
     678      0000000000000000000000000000000000000000000000000000000000000000
     679      0000000000000000000000000000000000000000000000000000000000000000
     680      00000000000000000000000000000000000000000000000000FF000000FF0000
     681      00FF000000FF000000FF000000FF000000FF000000FF000000FF000000000000
     682      00000000000000000000000000000000000000000000000000FFFFFFFFFFFFFF
     683      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF0000
     684      00000000000000000000000000000000000000000000000000FFFFFFFFFFFFFF
     685      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFBDBDBDFF0000
     686      00FF0000000000000000000000000000000000000000000000FFFFFFFFFFFFFF
     687      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF0000
     688      00FF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
     689      FFFFFF0000FFFF0000FFFF0000FFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     690      FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
     691      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     692      FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
     693      FFFFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFFFFFFFFFFFF
     694      FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
     695      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     696      FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
     697      FFFFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFFFFFFFFFFFF
     698      FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
     699      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     700      FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
     701      FFFFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFFFFFFFFFFFF
     702      FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
     703      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     704      FFFF000000FF00000000000000000000000000000000000000FFFFFFFFFFFFFF
     705      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     706      FFFF000000FF00000000000000000000000000000000000000FF000000FF0000
     707      00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
     708      00FF000000FF0000000000000000000000000000000000000000000000000000
    677709      0000000000000000000000000000000000000000000000000000000000000000
    678710      0000000000000000000000000000
Note: See TracChangeset for help on using the changeset viewer.