FIX: Mainly cosmetic modifications that makes configuration frams looks better when translated to other languages.

FIX: In the startup splash screen, the Double Commander logo was not centered in the panel which was annoying. Now it is.
FIX: In the "Favorite Tabs" configuration frame, text in drop box are now loaded with "ParseLineToList" from string ressources in "ulang.pas" file so this way, it will be translated for other languages.
FIX: In the "Favorite Tabs" configuration frame, modify the anchors and auto size properties of various components so it will allow all required room for other langauges when it's translated.
FIX: In the "File panels" sub-configuration frame of "Colors" configuration, change the achord of the "btnResetToDCDefault" so there is room when it's translated in other language.
FIX: In the "Folder tabs" configuration frame, change to a combo drop box the option "Action to do when double click on a tab" so it is now below the other options. This solve text in Japaneese what when over it.
FIX: In the "Folder tabs" configuration frame, text for the "Action to do when double click on a tab" is now loaded with "ParseLineToList" from string ressources in "ulang.pas" file so this way, it will be translated for other languages.
FIX: In the "Directory Hotlist" configuration frame, text of combo boxes for configuring the sort column are now loaded with "ParseLineToList" from string ressources in "ulang.pas" file so this way, it will be translated for other languages.
FIX: In the "Toolbar" configuration frame, set the autosize property for the "btnSuggestionTooltip" so when translated in other language with longer name it will still fit.
This commit is contained in:
Denis Bisson 2016-02-14 16:22:26 +00:00
commit ec8d014f5f
19 changed files with 690 additions and 588 deletions

View file

@ -1062,6 +1062,7 @@ end;"/>
<Unit117>
<Filename Value="filesources\ufilesourcelistoperation.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uFileSourceListOperation"/>
</Unit117>
<Unit118>
<Filename Value="filesources\ufilesourcemoveoperation.pas"/>
@ -1504,7 +1505,9 @@ end;"/>
<Unit210>
<Filename Value="fstartingsplash.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmStartingSplash"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit210>
<Unit211>
<Filename Value="frames\foptionsdirectoryhotlist.pas"/>

View file

@ -191,7 +191,7 @@ begin
if not CommandLineParams.NoSplash then
begin
// We may now remove the starting splash screen, mot of the application has been started now
// We may now remove the starting splash screen, most of the application has been started now
frmStartingSplash.Close;
frmStartingSplash.Release;
end;

View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Configuration of HotDir
Copyright (C) 2009-2015 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2009-2016 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -30,7 +30,7 @@ uses
{$IFDEF MSWINDOWS}
uTotalCommander,
{$ENDIF}
SysUtils, Classes, Controls, Forms, StdCtrls, Buttons, EditBtn, ExtCtrls,
SysUtils, Classes, Controls, Forms, StdCtrls, Buttons, ExtCtrls,
Menus, Dialogs, ComCtrls, uHotDir, types, fOptionsFrame, uFile;
type
@ -200,7 +200,7 @@ type
class function GetIconIndex: Integer; override;
class function GetTitle: String; override;
destructor Destroy; override;
function CanWeClose(var WillNeedUpdateWindowView:boolean): boolean; override;
function CanWeClose(var {%H-}WillNeedUpdateWindowView:boolean): boolean; override;
procedure SubmitToAddOrConfigToHotDirDlg(paramActionDispatcher: integer; paramPath,paramTarget:string; paramOptionalIndex: integer);
end;
@ -427,7 +427,8 @@ var
var
Index, ActionDispatcher: integer;
EditSearchOptionToOffer,EditSearchOptionReturned:TEditSearchDialogOption;
EditSearchOptionToOffer: TEditSearchDialogOption;
EditSearchOptionReturned: TEditSearchDialogOption = [];
begin
with Sender as TComponent do ActionDispatcher:=tag;
@ -2027,6 +2028,8 @@ procedure TfrmOptionsDirectoryHotlist.Init;
begin
pnlBottom.Constraints.MinHeight := pnlBottom.Height;
ParseLineToList(rsOptAddFromMainPanel, rgWhereToAdd.Items);
ParseLineToList(rsHotDirForceSortingOrderChoices, cbSortHotDirPath.Items);
ParseLineToList(rsHotDirForceSortingOrderChoices, cbSortHotDirTarget.Items);
end;
{ TODO -oDB : Would be nice if directory does not exist to offer immediately to re-configure it. }

View file

@ -26,8 +26,6 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
ClientHeight = 572
ClientWidth = 568
Color = clForm
Constraints.MinHeight = 200
Constraints.MinWidth = 548
ParentColor = False
TabOrder = 0
object pnlClient: TPanel
@ -41,6 +39,7 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
Top = 6
Width = 556
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 418
ClientWidth = 556
@ -48,13 +47,13 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
object tvFavoriteTabs: TTreeView
AnchorSideLeft.Control = pnlClient
AnchorSideTop.Control = pnlClient
AnchorSideRight.Control = gbFavoriteTabsOtherOptions
AnchorSideRight.Control = pnlButtons
AnchorSideBottom.Control = pnlClient
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 418
Top = 0
Width = 330
Width = 401
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6
DefaultItemHeight = 18
@ -78,21 +77,21 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoHotTrack, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot]
end
object pnlButtons: TPanel
AnchorSideLeft.Control = gbFavoriteTabsOtherOptions
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlClient
AnchorSideRight.Control = pnlClient
AnchorSideRight.Side = asrBottom
Left = 336
Height = 192
Left = 407
Height = 249
Top = 0
Width = 220
Anchors = [akTop, akLeft, akRight]
Width = 149
Anchors = [akTop, akRight]
AutoSize = True
BevelOuter = bvNone
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 192
ClientWidth = 220
ClientHeight = 249
ClientWidth = 149
Color = clForm
ParentColor = False
TabOrder = 1
@ -106,8 +105,9 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
Left = 6
Height = 25
Top = 37
Width = 208
Width = 137
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Insert...'
OnClick = btnActionClick
@ -123,8 +123,9 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
Left = 6
Height = 25
Top = 99
Width = 208
Width = 137
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Delete...'
OnClick = btnActionClick
@ -140,8 +141,9 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
Left = 6
Height = 25
Top = 161
Width = 208
Width = 137
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Import/Export'
OnClick = btnActionClick
@ -157,8 +159,9 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
Left = 6
Height = 25
Top = 68
Width = 208
Width = 137
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Add...'
OnClick = btnActionClick
@ -174,8 +177,9 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
Left = 6
Height = 25
Top = 130
Width = 208
Width = 137
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Sort...'
OnClick = btnActionClick
@ -190,43 +194,44 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
Left = 6
Height = 25
Top = 6
Width = 208
Width = 137
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Rename'
OnClick = btnRenameClick
TabOrder = 0
end
end
object gbFavoriteTabsOtherOptions: TGroupBox
AnchorSideTop.Control = pnlButtons
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlClient
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 336
Height = 51
Top = 196
Width = 220
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 4
Caption = 'Other options'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 31
ClientWidth = 216
Constraints.MinWidth = 220
TabOrder = 2
object cbFullExpandTree: TCheckBox
AnchorSideLeft.Control = gbFavoriteTabsOtherOptions
AnchorSideTop.Control = gbFavoriteTabsOtherOptions
object gbFavoriteTabsOtherOptions: TGroupBox
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnImportExport
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 6
Width = 121
Caption = 'Always expand tree'
OnChange = cbFullExpandTreeChange
TabOrder = 0
Height = 51
Top = 192
Width = 137
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Other options'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 31
ClientWidth = 133
TabOrder = 6
object cbFullExpandTree: TCheckBox
AnchorSideLeft.Control = gbFavoriteTabsOtherOptions
AnchorSideTop.Control = gbFavoriteTabsOtherOptions
Left = 6
Height = 19
Top = 6
Width = 121
Caption = 'Always expand tree'
OnChange = cbFullExpandTreeChange
TabOrder = 0
end
end
end
end
@ -252,7 +257,7 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblTargetPanelRightSavedTabs
AnchorSideRight.Side = asrBottom
Left = 109
Left = 159
Height = 15
Top = 10
Width = 187
@ -264,7 +269,7 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
AnchorSideTop.Control = cbTargetPanelRightSavedTabs
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbTargetPanelRightSavedTabs
Left = 101
Left = 151
Height = 15
Top = 39
Width = 195
@ -277,7 +282,7 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
AnchorSideTop.Control = cbExistingTabsToKeep
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbExistingTabsToKeep
Left = 186
Left = 236
Height = 15
Top = 68
Width = 110
@ -293,10 +298,10 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbTargetPanelLeftSavedTabs
AnchorSideRight.Side = asrBottom
Left = 300
Left = 350
Height = 23
Top = 64
Width = 120
Width = 192
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
ItemHeight = 15
@ -321,10 +326,10 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbTargetPanelLeftSavedTabs
AnchorSideRight.Side = asrBottom
Left = 300
Left = 350
Height = 23
Top = 35
Width = 120
Width = 192
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
ItemHeight = 15
@ -346,13 +351,16 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
Tag = 1
AnchorSideLeft.Control = gpSavedTabsRestorationAction
AnchorSideTop.Control = gpSavedTabsRestorationAction
AnchorSideRight.Control = gpSavedTabsRestorationAction
AnchorSideRight.Side = asrBottom
Left = 300
Left = 350
Height = 23
Top = 6
Width = 120
BorderSpacing.Left = 300
Width = 192
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 350
BorderSpacing.Top = 6
BorderSpacing.Right = 10
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
@ -375,10 +383,10 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbTargetPanelLeftSavedTabs
AnchorSideRight.Side = asrBottom
Left = 300
Left = 350
Height = 23
Top = 93
Width = 120
Width = 192
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
ItemHeight = 15
@ -396,7 +404,7 @@ inherited frmOptionsFavoriteTabs: TfrmOptionsFavoriteTabs
AnchorSideTop.Control = cbSaveDirHistory
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbExistingTabsToKeep
Left = 213
Left = 263
Height = 15
Top = 97
Width = 83

View file

@ -36,10 +36,12 @@ type
TfrmOptionsFavoriteTabs = class(TOptionsEditor)
btnRename: TBitBtn;
cbExistingTabsToKeep: TComboBox;
cbFullExpandTree: TCheckBox;
cbSaveDirHistory: TComboBox;
cbTargetPanelLeftSavedTabs: TComboBox;
cbTargetPanelRightSavedTabs: TComboBox;
gbFavoriteTabs: TGroupBox;
gbFavoriteTabsOtherOptions: TGroupBox;
gpSavedTabsRestorationAction: TGroupBox;
lblExistingTabsToKeep: TLabel;
lblSaveDirHistory: TLabel;
@ -66,8 +68,6 @@ type
btnImportExport: TBitBtn;
btnAdd: TBitBtn;
btnSort: TBitBtn;
gbFavoriteTabsOtherOptions: TGroupBox;
cbFullExpandTree: TCheckBox;
pmFavoriteTabsTestMenu: TPopupMenu;
miFavoriteTabsTestMenu: TMenuItem;
pmTreeView: TPopupMenu;
@ -136,6 +136,7 @@ type
procedure miCutSelectionClick(Sender: TObject);
procedure miPasteSelectionClick(Sender: TObject);
protected
procedure Init; override;
procedure Load; override;
function Save: TOptionsEditorSaveFlags; override;
private
@ -162,8 +163,17 @@ uses
Graphics, LCLType, LCLProc, LCLIntf,
//DC
uGlobs, uLng, uDCUtils, uDebug, fmain, uShowMsg, DCOSUtils, fOptions,
uComponentsSignature;
DCStrUtils, uGlobs, uLng, uDCUtils, uDebug, fmain, uShowMsg, DCOSUtils,
fOptions, uComponentsSignature;
{ TfrmOptionsFavoriteTabs.Init }
procedure TfrmOptionsFavoriteTabs.Init;
begin
ParseLineToList(rsFavTabsPanelSideSelection, cbTargetPanelLeftSavedTabs.Items);
ParseLineToList(rsFavTabsPanelSideSelection, cbTargetPanelRightSavedTabs.Items);
ParseLineToList(rsFavTabsPanelSideSelection, cbExistingTabsToKeep.Items);
ParseLineToList(rsFavTabsSaveDirHistory, cbSaveDirHistory.Items);
end;
{ TfrmOptionsFavoriteTabs.Load }
procedure TfrmOptionsFavoriteTabs.Load;

View file

@ -438,13 +438,13 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
end
object lblInactivePanelBrightness: TLabel[28]
AnchorSideLeft.Control = cbbUseFrameCursor
AnchorSideTop.Control = cbbUseFrameCursor
AnchorSideTop.Control = btnResetToDCDefault
AnchorSideTop.Side = asrBottom
Left = 433
Height = 15
Top = 77
Top = 94
Width = 172
BorderSpacing.Top = 20
BorderSpacing.Top = 6
Caption = '&Brightness level of inactive panel'
FocusControl = tbInactivePanelBrightness
ParentColor = False
@ -457,7 +457,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
AnchorSideRight.Side = asrBottom
Left = 433
Height = 26
Top = 98
Top = 115
Width = 377
Max = 100
OnChange = tbInactivePanelBrightnessChange
@ -730,10 +730,11 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
AnchorSideRight.Side = asrBottom
Left = 683
Height = 25
Top = 57
Top = 63
Width = 127
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Reset to DC default'
OnClick = btnResetToDCDefaultClick
TabOrder = 29

View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
File panels colors options page
Copyright (C) 2006-2015 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2006-2016 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -140,11 +140,11 @@ implementation
uses
//Lazarus, Free-Pascal, etc.
Types, Forms,
Forms,
//DC
uSampleForConfigFileSource, fOptions, uShowMsg, uComponentsSignature,
uFileFunctions, DCOSUtils, fMain, uFileSystemFileSource, uLng, uGlobs,
uFileFunctions, DCOSUtils, fMain, uLng, uGlobs,
uDCUtils;
{ TfrmOptionsFilePanelsColors }

View file

@ -1,19 +1,19 @@
inherited frmOptionsTabs: TfrmOptionsTabs
Height = 418
Width = 720
ClientHeight = 418
ClientWidth = 720
DesignLeft = 383
DesignTop = 373
Height = 492
Width = 731
ClientHeight = 492
ClientWidth = 731
DesignLeft = 147
DesignTop = 342
object gbTabs: TGroupBox[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 405
Height = 434
Top = 6
Width = 708
Width = 719
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
@ -22,8 +22,8 @@ inherited frmOptionsTabs: TfrmOptionsTabs
BorderSpacing.Bottom = 6
Caption = 'Folder tabs headers'
ChildSizing.TopBottomSpacing = 6
ClientHeight = 385
ClientWidth = 704
ClientHeight = 414
ClientWidth = 715
TabOrder = 0
object lblChar: TLabel
AnchorSideLeft.Control = edtTabsLimitLength
@ -227,36 +227,6 @@ inherited frmOptionsTabs: TfrmOptionsTabs
Caption = 'Reuse existing tab when possible'
TabOrder = 9
end
object rgTabsActionOnDoubleClick: TRadioGroup
AnchorSideLeft.Control = gbTabs
AnchorSideTop.Control = gbTabs
Left = 400
Height = 108
Top = 6
Width = 175
AutoFill = True
AutoSize = True
BorderSpacing.Left = 400
Caption = 'What to do after double click:'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 88
ClientWidth = 171
ItemIndex = 0
Items.Strings = (
'Nothing'
'Close tab'
'Access Favorite Tabs'
'Tabs popup menu'
)
TabOrder = 16
end
object cbTabsConfirmCloseLocked: TCheckBox
AnchorSideLeft.Control = cbTabsAlwaysVisible
AnchorSideTop.Control = cbTabsLimitOption
@ -281,5 +251,42 @@ inherited frmOptionsTabs: TfrmOptionsTabs
Caption = 'Keep renamed name when unlocking a tab'
TabOrder = 12
end
object lblTabsActionOnDoubleClick: TLabel
AnchorSideLeft.Control = cbTabsAlwaysVisible
AnchorSideTop.Control = cbTabsActionOnDoubleClick
AnchorSideTop.Side = asrCenter
Left = 12
Height = 15
Top = 389
Width = 214
Caption = 'Action to do when double click on a tab:'
ParentColor = False
end
object cbTabsActionOnDoubleClick: TComboBox
AnchorSideLeft.Control = lblTabsActionOnDoubleClick
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbTabsPosition
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbTabs
AnchorSideRight.Side = asrBottom
Left = 232
Height = 23
Top = 385
Width = 477
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 15
Items.Strings = (
'Do nothing'
'Close tab'
'Access Favorite Tabs'
'Tabs popup menu'
)
Style = csDropDownList
TabOrder = 16
end
end
end

View file

@ -13,6 +13,6 @@ TFRMOPTIONSTABS.CBTABSOPENNEARCURRENT.CAPTION=Open &new tabs near current tab
TFRMOPTIONSTABS.CBTABSCLOSEDUPLICATEWHENCLOSING.CAPTION=Close duplicate tabs when closing application
TFRMOPTIONSTABS.CBTABSSHOWDRIVELETTER.CAPTION=Always show drive letter in tab title
TFRMOPTIONSTABS.CBTABSREUSETABWHENPOSSIBLE.CAPTION=Reuse existing tab when possible
TFRMOPTIONSTABS.RGTABSACTIONONDOUBLECLICK.CAPTION=What to do after double click:
TFRMOPTIONSTABS.CBTABSCONFIRMCLOSELOCKED.CAPTION=Confirm close locked tabs
TFRMOPTIONSTABS.CBKEEPRENAMEDNAMEBACKTONORMAL.CAPTION=Keep renamed name when unlocking a tab
TFRMOPTIONSTABS.LBLTABSACTIONONDOUBLECLICK.CAPTION=Action to do when double click on a tab:

View file

@ -44,8 +44,10 @@ type
cbTabsOpenNearCurrent: TCheckBox;
cbTabsShowCloseButton: TCheckBox;
cmbTabsPosition: TComboBox;
cbTabsActionOnDoubleClick: TComboBox;
edtTabsLimitLength: TEdit;
gbTabs: TGroupBox;
lblTabsActionOnDoubleClick: TLabel;
lblChar: TLabel;
lblTabsPosition: TLabel;
cbKeepRenamedNameBackToNormal: TCheckBox;
@ -53,7 +55,6 @@ type
cbTabsReuseTabWhenPossible: TCheckBox;
cbTabsShowDriveLetter: TCheckBox;
cbTabsCloseDuplicateWhenClosing: TCheckBox;
rgTabsActionOnDoubleClick: TRadioGroup;
private
FPageControl: TPageControl; // For checking Tabs capabilities
FLastLoadedOptionSignature: dword;
@ -79,6 +80,7 @@ uses
procedure TfrmOptionsTabs.Init;
begin
ParseLineToList(rsOptTabsPosition, cmbTabsPosition.Items);
ParseLineToList(rsTabsActionOnDoubleClickChoices, cbTabsActionOnDoubleClick.Items);
FPageControl := TPageControl.Create(Self);
end;
@ -109,8 +111,8 @@ begin
cbKeepRenamedNameBackToNormal.Checked := tb_keep_renamed_when_back_normal in gDirTabOptions;
cbTabsActivateOnClick.Checked := tb_activate_panel_on_click in gDirTabOptions;
cbTabsShowDriveLetter.Checked := tb_show_drive_letter in gDirTabOptions;
rgTabsActionOnDoubleClick.ItemIndex := Integer(gDirTabActionOnDoubleClick);
rgTabsActionOnDoubleClick.Refresh;
cbTabsActionOnDoubleClick.ItemIndex := Integer(gDirTabActionOnDoubleClick);
cbTabsActionOnDoubleClick.Refresh;
cbTabsMultiLines.Visible := (nbcMultiline in FPageControl.GetCapabilities);
if cbTabsMultiLines.Visible then
@ -166,7 +168,7 @@ begin
if cbTabsShowCloseButton.Checked then
gDirTabOptions := gDirTabOptions + [tb_show_close_button];
gDirTabActionOnDoubleClick := TTabsOptionsDoubleClick(rgTabsActionOnDoubleClick.ItemIndex);
gDirTabActionOnDoubleClick := TTabsOptionsDoubleClick(cbTabsActionOnDoubleClick);
gDirTabLimit := StrToIntDef(edtTabsLimitLength.Text, 32);

View file

@ -100,6 +100,10 @@ procedure TfrmOptionsTabsExtra.Init;
begin
FPageControl := TPageControl.Create(Self);
ParseLineToList(rsOptFavoriteTabsWhereToAddInList, rgWhereToAdd.Items);
ParseLineToList(rsFavTabsPanelSideSelection,cbDefaultTargetPanelLeftSaved.Items);
ParseLineToList(rsFavTabsPanelSideSelection,cbDefaultTargetPanelRightSaved.Items);
ParseLineToList(rsFavTabsPanelSideSelection,cbDefaultExistingTabsToKeep.Items);
ParseLineToList(rsFavTabsSaveDirHistory,cbDefaultSaveDirHistory.Items);
end;
class function TfrmOptionsTabsExtra.GetIconIndex: integer;

View file

@ -12,14 +12,14 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 87
Top = 99
Height = 80
Top = 92
Width = 507
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Command for running a command in terminal and close after:'
ClientHeight = 68
ClientHeight = 60
ClientWidth = 503
TabOrder = 1
object ledtRunInTermCloseCmd: TLabeledEdit
@ -27,7 +27,7 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
AnchorSideRight.Control = gbRunInTerminalClose
AnchorSideRight.Side = asrBottom
Left = 86
Height = 27
Height = 23
Top = 4
Width = 413
Anchors = [akTop, akLeft, akRight]
@ -36,10 +36,10 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = ledtRunInTermCloseCmd
EditLabel.AnchorSideBottom.Side = asrBottom
EditLabel.Left = 9
EditLabel.Height = 17
EditLabel.Top = 9
EditLabel.Width = 73
EditLabel.Left = 22
EditLabel.Height = 15
EditLabel.Top = 8
EditLabel.Width = 60
EditLabel.Caption = 'Command:'
EditLabel.ParentColor = False
LabelPosition = lpLeft
@ -52,9 +52,9 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
AnchorSideRight.Control = ledtRunInTermCloseCmd
AnchorSideRight.Side = asrBottom
Left = 86
Height = 27
Hint = '{command} should normally present here to releft the command to be run in terminal'
Top = 35
Height = 23
Hint = '{command} should normally be present here to reflect the command to be run in terminal'
Top = 31
Width = 413
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
@ -62,10 +62,10 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = ledtRunInTermCloseParams
EditLabel.AnchorSideBottom.Side = asrBottom
EditLabel.Left = 0
EditLabel.Height = 17
EditLabel.Top = 40
EditLabel.Width = 83
EditLabel.Left = 21
EditLabel.Height = 15
EditLabel.Top = 35
EditLabel.Width = 62
EditLabel.Caption = 'Parameters:'
EditLabel.ParentColor = False
LabelPosition = lpLeft
@ -78,14 +78,14 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 87
Height = 80
Top = 6
Width = 507
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Command for running a command in terminal and stay open:'
ClientHeight = 68
ClientHeight = 60
ClientWidth = 503
TabOrder = 0
object ledtRunInTermStayOpenCmd: TLabeledEdit
@ -93,7 +93,7 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
AnchorSideRight.Control = gbRunInTerminalStayOpen
AnchorSideRight.Side = asrBottom
Left = 86
Height = 27
Height = 23
Top = 4
Width = 413
Anchors = [akTop, akLeft, akRight]
@ -102,10 +102,10 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = ledtRunInTermStayOpenCmd
EditLabel.AnchorSideBottom.Side = asrBottom
EditLabel.Left = 9
EditLabel.Height = 17
EditLabel.Top = 9
EditLabel.Width = 73
EditLabel.Left = 22
EditLabel.Height = 15
EditLabel.Top = 8
EditLabel.Width = 60
EditLabel.Caption = 'Command:'
EditLabel.ParentColor = False
LabelPosition = lpLeft
@ -118,9 +118,9 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
AnchorSideRight.Control = ledtRunInTermStayOpenCmd
AnchorSideRight.Side = asrBottom
Left = 86
Height = 27
Hint = '{command} should normally present here to releft the command to be run in terminal'
Top = 35
Height = 23
Hint = '{command} should normally be present here to reflect the command to be run in terminal'
Top = 31
Width = 413
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
@ -128,10 +128,10 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = ledtRunInTermStayOpenParams
EditLabel.AnchorSideBottom.Side = asrBottom
EditLabel.Left = 0
EditLabel.Height = 17
EditLabel.Top = 40
EditLabel.Width = 83
EditLabel.Left = 21
EditLabel.Height = 15
EditLabel.Top = 35
EditLabel.Width = 62
EditLabel.Caption = 'Parameters:'
EditLabel.ParentColor = False
LabelPosition = lpLeft
@ -145,14 +145,14 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 87
Top = 192
Height = 80
Top = 178
Width = 507
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Command for just running terminal:'
ClientHeight = 68
ClientHeight = 60
ClientWidth = 503
TabOrder = 2
object ledtRunTermCmd: TLabeledEdit
@ -160,7 +160,7 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
AnchorSideRight.Control = gbJustRunTerminal
AnchorSideRight.Side = asrBottom
Left = 86
Height = 27
Height = 23
Top = 4
Width = 413
Anchors = [akTop, akLeft, akRight]
@ -169,10 +169,10 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = ledtRunTermCmd
EditLabel.AnchorSideBottom.Side = asrBottom
EditLabel.Left = 9
EditLabel.Height = 17
EditLabel.Top = 9
EditLabel.Width = 73
EditLabel.Left = 22
EditLabel.Height = 15
EditLabel.Top = 8
EditLabel.Width = 60
EditLabel.Caption = 'Command:'
EditLabel.ParentColor = False
LabelPosition = lpLeft
@ -185,9 +185,9 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
AnchorSideRight.Control = ledtRunTermCmd
AnchorSideRight.Side = asrBottom
Left = 86
Height = 27
Hint = '{command} should normally present here to releft the command to be run in terminal'
Top = 35
Height = 23
Hint = '{command} should normally be present here to reflect the command to be run in terminal'
Top = 31
Width = 413
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
@ -195,10 +195,10 @@ inherited frmOptionsTerminal: TfrmOptionsTerminal
EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = ledtRunTermParams
EditLabel.AnchorSideBottom.Side = asrBottom
EditLabel.Left = 0
EditLabel.Height = 17
EditLabel.Top = 40
EditLabel.Width = 83
EditLabel.Left = 21
EditLabel.Height = 15
EditLabel.Top = 35
EditLabel.Width = 62
EditLabel.Caption = 'Parameters:'
EditLabel.ParentColor = False
LabelPosition = lpLeft

View file

@ -1,12 +1,12 @@
TFRMOPTIONSTERMINAL.GBRUNINTERMINALCLOSE.CAPTION=Command for running a command in terminal and close after:
TFRMOPTIONSTERMINAL.LEDTRUNINTERMCLOSECMD.EDITLABEL.CAPTION=Command:
TFRMOPTIONSTERMINAL.LEDTRUNINTERMCLOSEPARAMS.HINT={command} should normally present here to releft the command to be run in terminal
TFRMOPTIONSTERMINAL.LEDTRUNINTERMCLOSEPARAMS.HINT={command} should normally be present here to reflect the command to be run in terminal
TFRMOPTIONSTERMINAL.LEDTRUNINTERMCLOSEPARAMS.EDITLABEL.CAPTION=Parameters:
TFRMOPTIONSTERMINAL.GBRUNINTERMINALSTAYOPEN.CAPTION=Command for running a command in terminal and stay open:
TFRMOPTIONSTERMINAL.LEDTRUNINTERMSTAYOPENCMD.EDITLABEL.CAPTION=Command:
TFRMOPTIONSTERMINAL.LEDTRUNINTERMSTAYOPENPARAMS.HINT={command} should normally present here to releft the command to be run in terminal
TFRMOPTIONSTERMINAL.LEDTRUNINTERMSTAYOPENPARAMS.HINT={command} should normally be present here to reflect the command to be run in terminal
TFRMOPTIONSTERMINAL.LEDTRUNINTERMSTAYOPENPARAMS.EDITLABEL.CAPTION=Parameters:
TFRMOPTIONSTERMINAL.GBJUSTRUNTERMINAL.CAPTION=Command for just running terminal:
TFRMOPTIONSTERMINAL.LEDTRUNTERMCMD.EDITLABEL.CAPTION=Command:
TFRMOPTIONSTERMINAL.LEDTRUNTERMPARAMS.HINT={command} should normally present here to releft the command to be run in terminal
TFRMOPTIONSTERMINAL.LEDTRUNTERMPARAMS.HINT={command} should normally be present here to reflect the command to be run in terminal
TFRMOPTIONSTERMINAL.LEDTRUNTERMPARAMS.EDITLABEL.CAPTION=Parameters:

View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Terminal options page
Copyright (C) 2006-2015 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2006-2016 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -52,7 +52,7 @@ type
public
class function GetIconIndex: Integer; override;
class function GetTitle: String; override;
function CanWeClose(var WillNeedUpdateWindowView: boolean): boolean; override;
function CanWeClose(var {%H-}WillNeedUpdateWindowView: boolean): boolean; override;
end;
implementation

View file

@ -12,7 +12,7 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 105
Height = 101
Top = 0
Width = 838
Anchors = [akTop, akLeft, akRight]
@ -22,7 +22,7 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
Caption = 'Appearance'
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 4
ClientHeight = 86
ClientHeight = 81
ClientWidth = 834
TabOrder = 0
object lblBarSize: TLabel
@ -30,9 +30,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideTop.Control = trbBarSize
AnchorSideTop.Side = asrCenter
Left = 8
Height = 17
Top = 19
Width = 56
Height = 15
Top = 20
Width = 42
Caption = '&Bar size:'
FocusControl = trbBarSize
ParentColor = False
@ -42,7 +42,7 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = trbBarSize
AnchorSideTop.Side = asrCenter
Left = 66
Left = 52
Height = 1
Top = 27
Width = 1
@ -53,7 +53,7 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Control = lblBarSizeValue
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbGroupBox
Left = 70
Left = 56
Height = 46
Top = 4
Width = 150
@ -72,10 +72,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = trbIconSize
AnchorSideTop.Side = asrCenter
Left = 235
Height = 17
Top = 19
Width = 61
Left = 221
Height = 15
Top = 20
Width = 48
BorderSpacing.Left = 15
Caption = 'Icon si&ze:'
FocusControl = trbIconSize
@ -86,7 +86,7 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = trbIconSize
AnchorSideTop.Side = asrCenter
Left = 298
Left = 271
Height = 1
Top = 27
Width = 1
@ -98,7 +98,7 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbGroupBox
AnchorSideBottom.Side = asrBottom
Left = 302
Left = 275
Height = 46
Top = 4
Width = 150
@ -119,9 +119,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideTop.Control = trbIconSize
AnchorSideTop.Side = asrBottom
Left = 8
Height = 24
Height = 19
Top = 58
Width = 108
Width = 83
BorderSpacing.Top = 8
Caption = '&Flat buttons'
Checked = True
@ -133,10 +133,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Control = cbFlatButtons
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbFlatButtons
Left = 128
Height = 24
Left = 103
Height = 19
Top = 58
Width = 227
Width = 177
BorderSpacing.Left = 12
Caption = 'Report errors with commands'
OnChange = GenericSomethingChanged
@ -150,15 +150,15 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlEditToolbar
Left = 6
Height = 29
Top = 229
Height = 25
Top = 248
Width = 838
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 2
BorderSpacing.Bottom = 2
BevelOuter = bvNone
ClientHeight = 29
ClientHeight = 25
ClientWidth = 838
TabOrder = 1
object pnlToolbarButtons: TPanel
@ -166,10 +166,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = pnlFullToolbarButtons
AnchorSideBottom.Side = asrBottom
Left = 205
Height = 29
Left = 209
Height = 25
Top = 0
Width = 428
Width = 420
AutoSize = True
BevelOuter = bvNone
ChildSizing.HorizontalSpacing = 8
@ -179,44 +179,44 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
ChildSizing.ShrinkVertical = crsHomogenousChildResize
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 1
ClientHeight = 29
ClientWidth = 428
ClientHeight = 25
ClientWidth = 420
TabOrder = 0
object btnInsertButton: TButton
Left = 0
Height = 29
Height = 25
Top = 0
Width = 130
Width = 119
AutoSize = True
Caption = '&Insert new button'
OnClick = btnInsertButtonClick
TabOrder = 0
end
object btnCloneButton: TButton
Left = 138
Height = 29
Left = 127
Height = 25
Top = 0
Width = 99
Width = 96
AutoSize = True
Caption = 'C&lone button'
OnClick = btnCloneButtonClick
TabOrder = 1
end
object btnDeleteButton: TButton
Left = 245
Height = 29
Left = 231
Height = 25
Top = 0
Width = 56
Width = 59
AutoSize = True
Caption = '&Delete'
OnClick = btnDeleteButtonClick
TabOrder = 2
end
object btnOther: TButton
Left = 366
Height = 29
Left = 355
Height = 25
Top = 0
Width = 62
Width = 65
AutoSize = True
BorderSpacing.Left = 65
Caption = 'Other...'
@ -232,14 +232,14 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 307
Top = 260
Height = 292
Top = 275
Width = 838
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Bottom = 6
BevelOuter = bvNone
ClientHeight = 307
ClientHeight = 292
ClientWidth = 838
TabOrder = 2
object rgToolItemType: TRadioGroup
@ -248,9 +248,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideBottom.Control = pnlEditToolbar
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 307
Height = 292
Top = 0
Width = 5
Width = 81
Anchors = [akTop, akLeft, akBottom]
AutoFill = True
AutoSize = True
@ -273,10 +273,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlEditToolbar
AnchorSideBottom.Side = asrBottom
Left = 11
Height = 307
Left = 87
Height = 292
Top = 0
Width = 821
Width = 745
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
@ -285,14 +285,14 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
ChildSizing.VerticalSpacing = 10
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 307
ClientWidth = 821
ClientHeight = 292
ClientWidth = 745
TabOrder = 1
object lblIconFile: TLabel
Left = 0
Height = 17
Height = 15
Top = 6
Width = 83
Width = 62
Alignment = taRightJustify
Caption = 'Ico&n:'
FocusControl = edtIconFileName
@ -305,10 +305,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideTop.Control = lblIconFile
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnOpenIcon
Left = 85
Height = 27
Top = 1
Width = 672
Left = 64
Height = 23
Top = 2
Width = 617
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 2
MaxLength = 259
@ -321,9 +321,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Control = btnRelativeIconFileName
AnchorSideBottom.Control = edtIconFileName
AnchorSideBottom.Side = asrBottom
Left = 757
Height = 27
Top = 1
Left = 681
Height = 23
Top = 2
Width = 32
Anchors = [akTop, akRight, akBottom]
Caption = '>>'
@ -334,9 +334,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
object lblToolTip: TLabel
AnchorSideTop.Side = asrCenter
Left = 0
Height = 17
Top = 33
Width = 83
Height = 15
Top = 31
Width = 62
Alignment = taRightJustify
Caption = '&Tooltip:'
FocusControl = edtToolTip
@ -349,10 +349,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideTop.Control = lblToolTip
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnSuggestionTooltip
Left = 85
Height = 27
Top = 28
Width = 660
Left = 64
Height = 23
Top = 27
Width = 602
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 2
MaxLength = 259
@ -362,9 +362,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
object lblInternalCommand: TLabel
AnchorSideTop.Side = asrCenter
Left = 0
Height = 17
Top = 60
Width = 83
Height = 15
Top = 56
Width = 62
Alignment = taRightJustify
Caption = 'Co&mmand:'
FocusControl = cbInternalCommand
@ -377,15 +377,15 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideTop.Control = lblInternalCommand
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnOpenCmdDlg
Left = 85
Height = 31
Top = 53
Width = 649
Left = 64
Height = 23
Top = 52
Width = 585
HelpType = htKeyword
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 2
DropDownCount = 20
ItemHeight = 0
ItemHeight = 15
OnSelect = cbInternalCommandSelect
Style = csDropDownList
TabOrder = 3
@ -394,8 +394,8 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
object lblInternalParameters: TLabel
Left = 0
Height = 100
Top = 87
Width = 83
Top = 81
Width = 62
Alignment = taRightJustify
Caption = '&Parameters:'
Constraints.MinHeight = 100
@ -411,11 +411,11 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lblInternalParameters
AnchorSideBottom.Side = asrBottom
Left = 85
Left = 64
Height = 100
Hint = 'Enter command parameters, each in a separate line. Press F1 to see help on parameters.'
Top = 87
Width = 736
Top = 81
Width = 681
HelpType = htKeyword
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 2
@ -429,9 +429,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
object lblExternalCommand: TLabel
AnchorSideTop.Side = asrCenter
Left = 0
Height = 17
Top = 197
Width = 83
Height = 15
Top = 191
Width = 62
Alignment = taRightJustify
Caption = 'Comman&d:'
FocusControl = edtExternalCommand
@ -444,10 +444,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideTop.Control = lblExternalCommand
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnOpenFile
Left = 85
Height = 27
Top = 192
Width = 672
Left = 64
Height = 23
Top = 187
Width = 617
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 2
MaxLength = 259
@ -459,9 +459,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Control = btnRelativeExternalCommand
AnchorSideBottom.Control = edtExternalCommand
AnchorSideBottom.Side = asrBottom
Left = 757
Height = 27
Top = 192
Left = 681
Height = 23
Top = 187
Width = 32
Anchors = [akTop, akRight, akBottom]
BorderSpacing.InnerBorder = 4
@ -473,9 +473,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
object lblExternalParameters: TLabel
AnchorSideTop.Side = asrCenter
Left = 0
Height = 17
Top = 224
Width = 83
Height = 15
Top = 216
Width = 62
Alignment = taRightJustify
Caption = 'Parameter&s:'
FocusControl = edtExternalParameters
@ -488,10 +488,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideTop.Control = lblExternalParameters
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnParametersHelper
Left = 85
Height = 27
Top = 219
Width = 704
Left = 64
Height = 23
Top = 212
Width = 649
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 2
MaxLength = 259
@ -501,9 +501,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
object lblStartPath: TLabel
AnchorSideTop.Side = asrCenter
Left = 0
Height = 17
Top = 251
Width = 83
Height = 15
Top = 241
Width = 62
Alignment = taRightJustify
Caption = 'Start pat&h:'
FocusControl = edtStartPath
@ -516,10 +516,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideTop.Control = lblStartPath
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnStartPath
Left = 85
Height = 27
Top = 246
Width = 672
Left = 64
Height = 23
Top = 237
Width = 617
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 2
MaxLength = 259
@ -529,9 +529,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
object lblHotkey: TLabel
AnchorSideTop.Side = asrCenter
Left = 0
Height = 17
Top = 278
Width = 83
Height = 15
Top = 266
Width = 62
Alignment = taRightJustify
Caption = 'Hot key:'
ParentColor = False
@ -541,9 +541,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Control = lblHotkey
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblHotkey
Left = 85
Left = 64
Height = 1
Top = 278
Top = 266
Width = 1
BorderSpacing.Left = 2
BorderSpacing.Right = 10
@ -555,10 +555,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblHotkey
AnchorSideTop.Side = asrCenter
Left = 96
Height = 29
Top = 272
Width = 88
Left = 75
Height = 25
Top = 261
Width = 85
AutoSize = True
BorderSpacing.Left = 2
Caption = 'Edit hot&key'
@ -571,10 +571,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblHotkey
AnchorSideTop.Side = asrCenter
Left = 186
Height = 29
Top = 272
Width = 115
Left = 162
Height = 25
Top = 261
Width = 108
AutoSize = True
BorderSpacing.Left = 2
Caption = 'Remove hotke&y'
@ -588,9 +588,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edtExternalCommand
AnchorSideBottom.Side = asrBottom
Left = 789
Height = 27
Top = 192
Left = 713
Height = 23
Top = 187
Width = 32
Anchors = [akTop, akRight, akBottom]
Glyph.Data = {
@ -638,9 +638,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edtIconFileName
AnchorSideBottom.Side = asrBottom
Left = 789
Height = 27
Top = 1
Left = 713
Height = 23
Top = 2
Width = 32
Anchors = [akTop, akRight, akBottom]
Glyph.Data = {
@ -687,9 +687,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Control = btnRelativeStartPath
AnchorSideBottom.Control = edtStartPath
AnchorSideBottom.Side = asrBottom
Left = 757
Height = 27
Top = 246
Left = 681
Height = 23
Top = 237
Width = 32
Anchors = [akTop, akRight, akBottom]
BorderSpacing.InnerBorder = 4
@ -704,9 +704,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edtStartPath
AnchorSideBottom.Side = asrBottom
Left = 789
Height = 27
Top = 246
Left = 713
Height = 23
Top = 237
Width = 32
Anchors = [akTop, akRight, akBottom]
Glyph.Data = {
@ -754,11 +754,12 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Control = lblHelpOnInternalCommand
AnchorSideBottom.Control = cbInternalCommand
AnchorSideBottom.Side = asrBottom
Left = 737
Height = 31
Top = 53
Width = 50
Left = 652
Height = 23
Top = 52
Width = 65
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 3
BorderSpacing.InnerBorder = 4
Caption = 'Select'
@ -772,10 +773,10 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Control = pnlEditControls
AnchorSideRight.Side = asrBottom
Cursor = crHandPoint
Left = 790
Height = 17
Top = 60
Width = 31
Left = 720
Height = 15
Top = 56
Width = 25
Anchors = [akTop, akRight]
BorderSpacing.Left = 3
Caption = 'Help'
@ -791,11 +792,11 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edtToolTip
AnchorSideBottom.Side = asrBottom
Left = 748
Height = 27
Left = 669
Height = 23
Hint = 'Have DC suggest the tooltip based on button type, command and parameters'
Top = 28
Width = 73
Top = 27
Width = 76
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 3
@ -811,9 +812,9 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Control = pnlEditControls
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 789
Left = 713
Height = 23
Top = 221
Top = 212
Width = 32
Anchors = [akTop, akRight]
Glyph.Data = {
@ -865,8 +866,8 @@ inherited frmOptionsToolbar: TfrmOptionsToolbar
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlFullToolbarButtons
Left = 6
Height = 120
Top = 107
Height = 143
Top = 103
Width = 838
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2

View file

@ -197,21 +197,21 @@ type
procedure miAddAllCmdsClick(Sender: TObject);
procedure miInsertButtonClick(Sender: TObject);
procedure miSrcRplClick(Sender: TObject);
procedure ToolbarDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ToolbarDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure ToolbarDragOver(Sender, Source: TObject; {%H-}X, {%H-}Y: Integer;
{%H-}State: TDragState; var Accept: Boolean);
procedure ToolbarDragDrop(Sender, Source: TObject; {%H-}X, {%H-}Y: Integer);
function ToolbarLoadButtonGlyph(ToolItem: TKASToolItem; iIconSize: Integer;
clBackColor: TColor): TBitmap;
procedure ToolbarToolButtonClick(Sender: TObject);
procedure ToolbarToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure ToolbarToolButtonDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean; NumberOfButton: Integer);
procedure ToolbarToolButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ToolbarToolButtonDragDrop(Sender, Source: TObject; {%H-}X, {%H-}Y: Integer);
procedure ToolbarToolButtonDragOver(Sender, Source: TObject; {%H-}X, {%H-}Y: Integer;
{%H-}State: TDragState; var Accept: Boolean; {%H-}NumberOfButton: Integer);
procedure ToolbarToolButtonMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; X, Y: Integer);
procedure ToolbarToolButtonMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer; NumberOfButton: Integer);
procedure ToolbarToolButtonMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ToolbarToolButtonMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure btnOpenIconClick(Sender: TObject);
function ToolbarToolItemShortcutsHint(ToolItem: TKASNormalItem): String;
procedure rgToolItemTypeSelectionChanged(Sender: TObject);
@ -297,7 +297,6 @@ const
MASK_FLUSHORNOT_EXISTING = $80;
ACTION_FLUSH_EXISTING = $80;
MASK_IMPORT_DESTIONATION = $30;
ACTION_ERASEEXISTING = $80;
{ TfrmOptionsToolbar }
@ -691,7 +690,7 @@ end;
{ TfrmOptionsToolbar.btnOpenCmdDlgClick }
procedure TfrmOptionsToolbar.btnOpenCmdDlgClick(Sender: TObject);
var
WantedCommand:String;
WantedCommand: String = '';
IndexMaybe:longint;
begin
if cbInternalCommand.ItemIndex=-1 then
@ -1517,8 +1516,11 @@ end;
procedure TfrmOptionsToolbar.miAddAllCmdsClick(Sender: TObject);
var
IndexCommand: integer;
FlagCategoryTitle:boolean;
sCmdName,sHintName,sHotKey,sCategory:string;
FlagCategoryTitle: boolean = False;
sCmdName: string = '';
sHintName: string = '';
sHotKey: string = '';
sCategory: string = '';
ToolBar: TKASToolBar;
CategorySubToolBar: TKASToolBar = nil;
LocalKASMenuItem: TKASMenuItem;

View file

@ -1,14 +1,15 @@
object frmStartingSplash: TfrmStartingSplash
Left = 544
Height = 298
Top = 503
Width = 217
Left = 120
Height = 314
Top = 207
Width = 256
Anchors = []
AutoSize = True
BorderIcons = []
BorderStyle = bsNone
Caption = 'Double Commander'
ClientHeight = 298
ClientWidth = 217
ClientHeight = 314
ClientWidth = 256
Color = 15396089
FormStyle = fsSplash
Icon.Data = {
@ -1017,205 +1018,34 @@ object frmStartingSplash: TfrmStartingSplash
}
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.2.2.0'
LCLVersion = '1.4.4.0'
object pnlInfo: TPanel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Owner
AnchorSideTop.Side = asrCenter
Left = 11
Height = 283
Top = 8
Width = 195
Top = 11
Width = 196
AutoSize = True
BorderSpacing.Around = 8
BorderSpacing.Around = 11
BevelInner = bvRaised
BevelOuter = bvLowered
BevelWidth = 2
ChildSizing.VerticalSpacing = 4
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 283
ClientWidth = 195
ClientWidth = 196
TabOrder = 0
object pnlLogo: TPanel
Left = 59
Height = 72
Top = 20
Width = 72
BorderSpacing.Top = 20
BorderSpacing.Bottom = 8
BorderSpacing.CellAlignHorizontal = ccaCenter
BevelInner = bvRaised
BevelOuter = bvLowered
BevelWidth = 2
ClientHeight = 72
ClientWidth = 72
TabOrder = 0
object imgLogo: TImage
Left = 4
Height = 64
Top = 4
Width = 64
Align = alClient
Center = True
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963F511000089504E47
0D0A1A0A0000000D4948445200000040000000400806000000AA6971DE000000
017352474200AECE1CE900000006624B474400FF00FF00FFA0BDA79300000009
7048597300000B1300000B1301009A9C180000000774494D4507DA021112343B
F8979BBE000011754944415478DADD9B79905D559DC73FE7DC7BDFD24BBAD39D
3D241D9640020414102C4046CA5229401C71199771CA1A7416D19A9A19A79CC2
3F8471299491C1D1D2A15C81128D5A52AC53208B16191C9180C8960D1224E94E
27E974F7DBEF727EBFF9E3DED7FD3A74BFEEA483C0DCAA5B6F3BEFDCF3FB9EDF
FEFB1D6873A92AFF5FAE996831330D36C6B4FED1BCDEE937C64CA16B5600000F
08803C901751CF5AA3AFB75D37C6C44023BBDDA14098E90857D5A231A60758B8
77F0C08A91DD7B97D66A8DE2C3BF7A6231869941505EF6A379F9903F05E166F1
92858D0DA79F38BAEAA48191C58B7B770383C0412032667223CD21C4FBC04260
0038EE1F2EF9E415FD94CE59B36E4D61755F1038455140D31724FB22235C9B00
A8A06A50145533051955455BDF4F3C3F7D159D44B229B72AA046419AD31826A7
555426E748D7A324899A3D2315F7DC737B4ACBCF3CF3A1AFDE74F50F45E4596B
ED2010021863A600605575A13166DD2DDFFAD97B5F7AE0BE2B3F70C986DC9A1E
341CDA6DA2F238A2922E42155130B9226A6DBAC08C46D17401A293C4AAA68B97
560054106D8ECFFEAF9344A828922172E85C2E8E496AF50C7445267E4B3F7BC5
4EFC8E4E3A962CA5B864098F6D19E67F9FDEFBD4B5777CEBEAAE62F028306C8C
8955750A0005E0B8DB7E72FFFB776CBCF9EA2B3F7601D1738FA1C68282A84C2E
36DB0991960793EEBAA8A0A228267B4D7728DD451091740745D3B16A5A884BE7
C4804AF3790691942B9C4EEEB6A4AC82A84ECCD91C27D926A1E0C4915BD0A3C9
CAB5E6D6BB9E7CEEBB8F6EFC7BCF9ADF1B63C68D31D8A6CC00C5F1B1CAEA5F7E
E3C68F5FF9A1B388B76E56635FF7CA1F632D61A964823DDBF5ED672C5BBFE917
F79F6B8C599429F814804C17148777ED5EF9E7672F5E69CA073198D73BF553AE
FAD898E94F4AFCE26BDFFD04D00714547502000572BFBFFBA1F5EBD7AF32EEC0
E084401A32017F1DBA029ACA29886054F1C23AF9FAC163A37AB26C4209DE70C3
0DC50B2EB860477F7F7F978BE3BC7571DEF33D5CE220AC93D42AB8B103C8C161
BCE15D2C2CED070CCED84CD65E233A40158962B4A3133D6680DCC0B1E417F651
5CB49862FFA25439FA3EA28A09821AC6C443434357F9F57ADD747676F6E6F3F9
0ECDE526D0F301E8A5600CD6AEC3F7031255F68D1C441E7F88DE179FC536AA18
15F4D5E40E154C90C35BB21CFFBC3FA377DD29F47477E15B9B01ABD3B9C11D00
BEEF17FC294ECB0C62EF9CC3390740FF822EB8F032709730B6FB45F4819FB2A0
3A8EBE1A0A338E70679DCBB20BDF4EEFD265586B271C0AE7DCA4B7370D5D4D50
FCB93CE76513A8A2C6D0B7E6781A1FFB2C639B1F26F8DD031424CE7485BEA29A
9D3846561F4FEFA5EF61F989EB9038CECC9ECEBA99875E7E2B22871BFD254982
0FF49FF516AAEBDE48E317DF215FDAFFCABABBD6D2F8B38B38E5DD9723714C12
86F38A5EEDA13B7D24B788D0D1D949E1C39FE6C09AD3B04D4D7594AFC47AE43F
7405A75CF61E3449E6B5E609005A3FB42A8DC3B99BFFF5AD65F9BB3FCAC1B567
A2224795ED136BE9FAD015ACDE703A9224539E7BA46B9E108136DAF2B02F1387
2C7EC7E5ECC3B070CB63B8A3A01C9DE7D3F9D79F66D9EA01E2383EAA5CE58B88
F13CAF03C0063E82A7C66002CFC7B918750E1599369930B3985AFADF7939FBC7
46E81DDE354F4023F4D20FB274D5EA299A7D2ED91F630C412E87F53CD41892D4
92A9C69111278848CE6CDAB4C90E0F0FBFE1A4D34E5DF7C2CDB75D79C6A29173
EB62A9E73AA167116EF9712C5CB90AAF73019EE7CF59C3AB2A61AD4A74F3F578
61E3081CA1F4F7D28673D8F0171F250EC359896F6E92029AC48C0C0EB26FDB56
AA2FEE42460E62460F52E8E961F771E77C79C5DAFEFF2E97CB5BFCF3CE3B4F80
2D406E308A2BBD12D29324485442CB83E8EE27897FE71316BB195A7B0ECBCE38
0F5C3CABA931C650E8EA66FF85EFA3FF9E1FA273B3B853E45E8B5DAC7AC7BB48
A2684EC4FB41C081B1315EFAD98F31DBB7A1F53A8890270554150AF900EB7243
175F7CF173C088DF120C99FDCE4E666D4C6ACF552DBE0AB63ACA9ACD77B27FFB
E3D8F3DF45F7CA01C4256D17A622AC39F534869E594FC78BDB0E2B9E50111A17
7F80EEAECE39E92607ECBAE74E2AF7DE85278A1A8B41119B725BF3D18A215FC8
4993E62966B024A6ED129DF5E92B0FD37DCFF7D8FBCC13F841D07671C6189238
2677FE45187187B5FFB5E5AB597BEA8659895755C439B6FCC75768DC7737BEB5
60BD36C02A6B4F5C559BD60F98EBE5A9B0F4E19F33F4DB5FE3FBFEAC20F4AC58
C5E8CA13A6786A6D159F4BC8BFF9ADB35A2655A55A6FB0F5BA2F100CED066BE7
AA9FCCBC00500CD65AFA1EBF9FBD2FEE4C7DF07656411CC1F917A173D0E00608
7BFAE93E615D5BCBA39A263B76DFFA03BCD19194F823B0E2763E262A5061C12F
7F44AD566BBB5322C2E2E52B483ABAE714DD554F7F33FDDDDD6DF58BE7FB6C79
F8D778DB9E9997EB3D2F0014C84575CACF3E91C6DA22D3DEAA8A18835BB21233
8B18489063C1C0713897CC389F8850191BC3BBF776F0BCF9394247C39BCA3FFE
10E3A79C49CEB40D2929AF389EC2F63FA0DECCB8BB7C919EFE45842D41CE748E
D681271FC73897E522F4D504C0D01355D9B3F5297AD79EDC5ED1AD5883710978
C18C392CEDEE41B24873C627FA0195C71F25DF525778553940AC47D71FB790AC
59DB9E53F2391A0B971054CB33CABF5BB4141521690364BD56A330F847D47A73
B62CAF2800184BA1B49F4A1CD32E99EC594354E83C04009DB42DAA84411ED74C
36CE6056E37D7BD318C5D879275F8E0E008036EA181562D7C61A00B19F4BC359
E790895B5282C2107A1692B489F88C31D477EE40CA65D40FC09A1488EC566B53
636A4CB34E97BDD75716005471CE913899D17C19CFC3292423C3B824233E71A9
A57082346A18CF6FCB01188346118D7D4368904B95A0B12836F505AC07D6C378
1EF801C6F3534B619AC0BC52001883384792CC1CB2AA7368A3463C368A388713
C93841D33478BD8688A40AB00D0061B54A343E0E418064142936DD706B338EF0
52403C1F633DF0739820C02B16302D8EDB3C0150D4254814E2A2104CEA21CE04
40248ADB3784AB551027290788A63546716818D3D8F62C9D03C7B575820A2B8E
A15229A1F9425AB7C4A46175C6F54A260E4DD1C8B802CFC3063E7D2DBEC36101
6068C6EE0E091B4818E2C206124548771F4EB5AD5B6CACC19447D3FFBAB4F0A1
2E739444D124A4806067516E1D1BDE806BD453229B79846639BE09064D4052D6
579B7245AEA32B158F2301409308693490B03149781C236148BC7A7D2A7B6DB4
77A31E523C308826719A656AEEBE6B569D159EDF9289EACC1C902F1691638EC5
0C0F4D94D155D2DE82664F82D0AC5899C9DB18A25A6D6A52742E6C2E7184544A
486914298F219571A45A46EB15A45E85D2412AA79EDF369456559228C40EBE98
EA02972A3E9AAEB2086A2CC9CEADD85982266934E8BEE83254252DC989A0EA52
CE1487B8044D92543C9338BDE3080943246E4CC902D8765A5D5D8256CB687914
ADA6444BAD8234AA6858471A0D340A29AF389EDC09A7CC1ABB7BCF6ECE185B5F
E60334DF6B691CC27AFBF4781CD377FE5B5385A79A02A16912455D5A88D44CC1
AA7399D94D1097207132C555B1D3C5A3AA9212582921D512522F23F52A1AD6D0
A891DAEB3844E3084D62920BDF8749A2B679783586FCE65FA5B6BBD94FD32CE1
B6DCA63C4EEDC07E3CCF6B3B5F71D500C1056F87A6CFD09208553D24D3AD69C7
491310DA8A804BA056416A25B45E411B55B4D140C30634094F22344E3049447D
F971D853CF4145DA174FEA35ECAEADD3D4AF5B3301293794EED8885FEC680F68
92B0E6AA2F60962C9F0AE6840FA1531E937289BECCBCDA431724B50A52AF40A3
86366A681442DC8038425D9C56649C0371D4BB16A29FFA4A0A5A3BD6F73C4677
EEC0AB8CCFC9ADB60FDC4EA334FB582F89597ECD7568239AE2274C4A550B7761
A6345ECD08006115C23A12A54413479942895197803890847AA183EADF7E39DD
F9594A54A1F5E9BAEB87734F89F93EB55FDE411004B396B7166F78030337DE32
4B44903536CD9A105145C354B199388224CA884EC00946047509F5FE95C49FBB
897CFF524CE6FCB4BBC3271E21B7FDA939E7ECB01EA53B7F425028CC3A771285
F49DF64606FEEB16BC053D6D4A7266AAEE995E07282431B838DB7197B2B713AC
8B8815062FFF47DC3F7D738A3BD97E3703B8E3A654F91D4EE27578905DDFFE77
FC4261160FDC20E2E85FB79E33EE7C908EF77D18899239B7F5F859EB681D68B8
3811AB554CA3868D631227943BFA48161D43E584337067BF93EE7C0E49662F8C
A4A5B61CC3B7DD44CF0B4FE3FCFC61C6A901C9EDB7125EF25E724B576415A5F6
7E8603CEFEFC9738F05757B0EFE73FE6C06F1EA1B6631B321EA66D7D808411D6
78215037C6A8B9F9E69B0B2B56ACB8B7A3A3A3AF323276CC325BE945A09CEF26
E85B42B158C40222EEB08AA7D65A6A2FEEC07EF99369A4279AF51666BD449239
3F5939ACD9DBD73A4E4449D69CC4FAEFFC94A85A3DACE77B9E47B1B31327C2D8
F838E5A79FA251AEE0E5028A6B4FDA8161AC5C2E5FEF8F8C8CD80D1B36BC2997
CB157B7B7B9B4DADA627435CC5212DEC36E7C246A5827EFDB3A9DE9847B8E56D
7F86E7AFFE0C277FF1064A6363735E8388502DA789978E5C8ECEB3DE34C92C22
27349374D6A6DE944EB8A322A655911C6EE381F53C3C6B31D75E49502DCDBFBB
CE0F881EBC8767BF7D3D9D3DBD47B4AE66F528BB4D935611517FBAB2F2BC6AF9
5184FBD2DF111C18E468B54818DF27FAD177D852AD72FABF5EC3D8C18347ED30
87DFACBE98793686068502B55DDB906F7E8E60642FD2260D75A40997C6C61FF0
44699C933EF72554E4A8344BF887B2D4E165C1D2F8DFF33C0EFEFA1EBA6FB916
C164C473F4AF5C9EC67D77B2F9F78FB1EEEBDFA773C54A92AC43EC48D60E60E7
C301F98E4EC68776137EF1132CB8F5AB737774E69981F68687D8FAE14B79EEDA
6BB07E404767E71130544AF39C1A259B20D92CE91839811D7FA0BCE96EFA7F77
2F0E9BC9FB2BDD23D8E2EF8BA37AFB4FD8FCF083F4BFFF23AC7CD7E514571C03
71441C4573E60AFF50E2D3EEDC34B1636DAAD573BE4FB55CA65C29C353FFC3C2
077F8C19DD8F6011EB672EA6F027BD34F53275EC20FB6FFC3AC3FF791D85B3CF
65E9DF7C8AFE934EA66BC1021211DCCB2B4C0A98894ED18E8E8EA8542A7D5EA1
9703074ECF0D3E776971740F188B28D8A19D24A5118A95125DE307208A70D643
3D0FDC6BE70C95C9E5A93FF65B9EFFCD23BCD0D58DE95B44D0D74F61E531E4FA
FA09A308CF0F745F1898B3FEF99377C5B5DAF65AADF670EB89919EFD3B5EB870
FC6B9FDAB878412E48F63C6F347138254D604A56C0902CE426B3A54EB3A32F4D
0F4F264E92A4AF9A75AC1F9927D89C5315DCB4E3B465CED6F9B235389706B00E
8ACB97B04906F67C7FF0D1CB80678C31A16DD188C982D5ABF7FCFCE978B0B8A8
DFE0E750CFCF2A2E66EA3D21E7E6357E8C40B3DA80C1F8505F7A2CEFBFFEDFBE
075452B275D20A00613EE70F5DFA8D1BAFF9C6DD2F49EEF4F3D2AA8A01632D86
26107A88AEB31908AF45240C9208413E50F7A6B7B1A9BAF0C9B7BDE76D8FA8EA
28904C9C1A6BF1AA3A513DF1BEDB7E75C9DDD75C73D527FEF22DC5BE3D4FE097
4690B0813A87CB8A186931A37960213B5425D9692F6DF6F9B58EC958B2E5BB66
5A7CEA7720B4FE3639D7D4CF2DA230B186C9FF193FD0C8A929AC3D991D1D03FA
CCEEEA533F7DE6F6AB80A78121634C34E5D458068455D51E63CCC0F667779E71
C3BF5C77857B69C7590B6C985BB9BC9BBC6F303A29BBDACCE5A3538EBC35534F
D27A3E509838E6D63C77A8ADC7E1267215538FC071E8B896A4C644AE0F404DCB
7B78693422ACC72C583DB0EDF2CF7C7CE3C51FB9649331662BE991B9B0797872
BA93A31628AAEA6263CCF29D8363AB6EDF78FFCAD20B7F5C58E8ECE8A854EBFD
BDBD5DA3D552AD1A27499C2E6B9A63A86D4CF8DC98F7E5838DC1E6F3B99CF1BD
FE5A2DECF7BC433D2FD5247671B198DF7BEC9A657BDEF2C18B77AEEC2BEE0646
5575D418330EC4D39E1C6D7578B236321F28909E1DB6A467893BB3EF22A00AC4
7F1ACF674A062B007A80E234952DC9D6546A595F98AD3731C6C8B440CF00C274
E3BC6C114ADA9C29AF82F66B6E8E9DE1D90A24D9FAB4D5D19BCE3BFC3F18A85F
E1469E4F0B0000000049454E44AE426082
}
Proportional = True
end
end
object lblTitle: TLabel
Left = 40
AnchorSideLeft.Control = pnlInfo
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = imgLogo
AnchorSideTop.Side = asrBottom
Left = 43
Height = 15
Top = 100
Top = 96
Width = 111
BorderSpacing.Left = 40
BorderSpacing.Right = 40
BorderSpacing.Top = 6
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Double Commander'
Font.Color = clRed
@ -1223,78 +1053,300 @@ object frmStartingSplash: TfrmStartingSplash
ParentColor = False
ParentFont = False
end
object lblVersion: TLabel
Left = 40
Height = 15
Top = 119
Width = 39
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Version'
ParentColor = False
object pnlVersionInfos: TPanel
AnchorSideLeft.Control = pnlInfo
AnchorSideTop.Control = lblTitle
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlInfo
AnchorSideBottom.Side = asrBottom
Left = 24
Height = 168
Top = 111
Width = 104
AutoSize = True
BorderSpacing.Left = 20
BorderSpacing.Right = 20
BevelOuter = bvNone
ChildSizing.TopBottomSpacing = 10
ClientHeight = 168
ClientWidth = 104
TabOrder = 0
object lblVersion: TLabel
AnchorSideLeft.Control = pnlVersionInfos
AnchorSideTop.Control = pnlVersionInfos
Left = 0
Height = 15
Top = 10
Width = 38
BorderSpacing.Top = 4
BorderSpacing.Right = 10
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Version'
ParentColor = False
end
object lblRevision: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblVersion
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 29
Width = 44
BorderSpacing.Top = 4
BorderSpacing.Right = 10
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Revision'
ParentColor = False
end
object lblBuild: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblRevision
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 48
Width = 27
BorderSpacing.Top = 4
BorderSpacing.Right = 10
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Build'
ParentColor = False
end
object lblLazarusVer: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblBuild
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 67
Width = 39
BorderSpacing.Top = 4
BorderSpacing.Right = 10
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Lazarus'
ParentColor = False
end
object lblFreePascalVer: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblLazarusVer
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 86
Width = 58
BorderSpacing.Top = 4
BorderSpacing.Right = 10
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Free Pascal'
ParentColor = False
end
object lblPlatform: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblFreePascalVer
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 105
Width = 46
BorderSpacing.Top = 4
BorderSpacing.Right = 10
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Platform'
ParentColor = False
end
object lblOperatingSystem: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblPlatform
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 124
Width = 94
BorderSpacing.Top = 4
BorderSpacing.Right = 10
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Operating System'
ParentColor = False
end
object lblWidgetsetVer: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblOperatingSystem
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 143
Width = 69
BorderSpacing.Top = 4
BorderSpacing.Right = 10
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'WidgetsetVer'
ParentColor = False
end
end
object lblRevision: TLabel
Left = 40
Height = 15
Top = 138
Width = 44
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Revision'
ParentColor = False
end
object lblBuild: TLabel
Left = 40
Height = 15
Top = 157
Width = 27
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Build'
ParentColor = False
end
object lblLazarusVer: TLabel
Left = 40
Height = 15
Top = 176
Width = 39
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Lazarus'
ParentColor = False
end
object lblFreePascalVer: TLabel
Left = 40
Height = 15
Top = 195
Width = 58
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Free Pascal'
ParentColor = False
end
object lblPlatform: TLabel
Left = 40
Height = 15
Top = 214
Width = 46
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Platform'
ParentColor = False
end
object lblOperatingSystem: TLabel
Left = 40
Height = 15
Top = 233
Width = 94
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Operating System'
ParentColor = False
end
object lblWidgetsetVer: TLabel
Left = 40
Height = 15
Top = 252
Width = 70
BorderSpacing.Bottom = 12
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'WidgetsetVer'
ParentColor = False
object imgLogo: TImage
AnchorSideLeft.Control = pnlInfo
AnchorSideTop.Control = pnlInfo
AnchorSideRight.Control = pnlInfo
AnchorSideRight.Side = asrBottom
Left = 66
Height = 64
Top = 26
Width = 64
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 62
BorderSpacing.Top = 22
BorderSpacing.Right = 62
Center = True
OnClick = imgLogoClick
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963F511000089504E47
0D0A1A0A0000000D4948445200000040000000400806000000AA6971DE000000
017352474200AECE1CE900000006624B474400FF00FF00FFA0BDA79300000009
7048597300000B1300000B1301009A9C180000000774494D4507DA021112343B
F8979BBE000011754944415478DADD9B79905D559DC73FE7DC7BDFD24BBAD39D
3D241D9640020414102C4046CA5229401C71199771CA1A7416D19A9A19A79CC2
3F8471299491C1D1D2A15C81128D5A52AC53208B16191C9180C8960D1224E94E
27E974F7DBEF727EBFF9E3DED7FD3A74BFEEA483C0DCAA5B6F3BEFDCF3FB9EDF
FEFB1D6873A92AFF5FAE996831330D36C6B4FED1BCDEE937C64CA16B5600000F
08803C901751CF5AA3AFB75D37C6C44023BBDDA14098E90857D5A231A60758B8
77F0C08A91DD7B97D66A8DE2C3BF7A6231869941505EF6A379F9903F05E166F1
92858D0DA79F38BAEAA48191C58B7B770383C0412032667223CD21C4FBC04260
0038EE1F2EF9E415FD94CE59B36E4D61755F1038455140D31724FB22235C9B00
A8A06A50145533051955455BDF4F3C3F7D159D44B229B72AA046419AD31826A7
555426E748D7A324899A3D2315F7DC737B4ACBCF3CF3A1AFDE74F50F45E4596B
ED2010021863A600605575A13166DD2DDFFAD97B5F7AE0BE2B3F70C986DC9A1E
341CDA6DA2F238A2922E42155130B9226A6DBAC08C46D17401A293C4AAA68B97
560054106D8ECFFEAF9344A828922172E85C2E8E496AF50C7445267E4B3F7BC5
4EFC8E4E3A962CA5B864098F6D19E67F9FDEFBD4B5777CEBEAAE62F028306C8C
8955750A0005E0B8DB7E72FFFB776CBCF9EA2B3F7601D1738FA1C68282A84C2E
36DB0991960793EEBAA8A0A228267B4D7728DD451091740745D3B16A5A884BE7
C4804AF3790691942B9C4EEEB6A4AC82A84ECCD91C27D926A1E0C4915BD0A3C9
CAB5E6D6BB9E7CEEBB8F6EFC7BCF9ADF1B63C68D31D8A6CC00C5F1B1CAEA5F7E
E3C68F5FF9A1B388B76E56635FF7CA1F632D61A964823DDBF5ED672C5BBFE917
F79F6B8C599429F814804C17148777ED5EF9E7672F5E69CA073198D73BF553AE
FAD898E94F4AFCE26BDFFD04D00714547502000572BFBFFBA1F5EBD7AF32EEC0
E084401A32017F1DBA029ACA29886054F1C23AF9FAC163A37AB26C4209DE70C3
0DC50B2EB860477F7F7F978BE3BC7571DEF33D5CE220AC93D42AB8B103C8C161
BCE15D2C2CED070CCED84CD65E233A40158962B4A3133D6680DCC0B1E417F651
5CB49862FFA25439FA3EA28A09821AC6C443434357F9F57ADD747676F6E6F3F9
0ECDE526D0F301E8A5600CD6AEC3F7031255F68D1C441E7F88DE179FC536AA18
15F4D5E40E154C90C35BB21CFFBC3FA377DD29F47477E15B9B01ABD3B9C11D00
BEEF17FC294ECB0C62EF9CC3390740FF822EB8F032709730B6FB45F4819FB2A0
3A8EBE1A0A338E70679DCBB20BDF4EEFD265586B271C0AE7DCA4B7370D5D4D50
FCB93CE76513A8A2C6D0B7E6781A1FFB2C639B1F26F8DD031424CE7485BEA29A
9D3846561F4FEFA5EF61F989EB9038CECC9ECEBA99875E7E2B22871BFD254982
0FF49FF516AAEBDE48E317DF215FDAFFCABABBD6D2F8B38B38E5DD9723714C12
86F38A5EEDA13B7D24B788D0D1D949E1C39FE6C09AD3B04D4D7594AFC47AE43F
7405A75CF61E3449E6B5E609005A3FB42A8DC3B99BFFF5AD65F9BB3FCAC1B567
A2224795ED136BE9FAD015ACDE703A9224539E7BA46B9E108136DAF2B02F1387
2C7EC7E5ECC3B070CB63B8A3A01C9DE7D3F9D79F66D9EA01E2383EAA5CE58B88
F13CAF03C0063E82A7C66002CFC7B918750E1599369930B3985AFADF7939FBC7
46E81DDE354F4023F4D20FB274D5EA299A7D2ED91F630C412E87F53CD41892D4
92A9C69111278848CE6CDAB4C90E0F0FBFE1A4D34E5DF7C2CDB75D79C6A29173
EB62A9E73AA167116EF9712C5CB90AAF73019EE7CF59C3AB2A61AD4A74F3F578
61E3081CA1F4F7D28673D8F0171F250EC359896F6E92029AC48C0C0EB26FDB56
AA2FEE42460E62460F52E8E961F771E77C79C5DAFEFF2E97CB5BFCF3CE3B4F80
2D406E308A2BBD12D29324485442CB83E8EE27897FE71316BB195A7B0ECBCE38
0F5C3CABA931C650E8EA66FF85EFA3FF9E1FA273B3B853E45E8B5DAC7AC7BB48
A2684EC4FB41C081B1315EFAD98F31DBB7A1F53A8890270554150AF900EB7243
175F7CF173C088DF120C99FDCE4E666D4C6ACF552DBE0AB63ACA9ACD77B27FFB
E3D8F3DF45F7CA01C4256D17A622AC39F534869E594FC78BDB0E2B9E50111A17
7F80EEAECE39E92607ECBAE74E2AF7DE85278A1A8B41119B725BF3D18A215FC8
4993E62966B024A6ED129DF5E92B0FD37DCFF7D8FBCC13F841D07671C6189238
2677FE45187187B5FFB5E5AB597BEA8659895755C439B6FCC75768DC7737BEB5
60BD36C02A6B4F5C559BD60F98EBE5A9B0F4E19F33F4DB5FE3FBFEAC20F4AC58
C5E8CA13A6786A6D159F4BC8BFF9ADB35A2655A55A6FB0F5BA2F100CED066BE7
AA9FCCBC00500CD65AFA1EBF9FBD2FEE4C7DF07656411CC1F917A173D0E00608
7BFAE93E615D5BCBA39A263B76DFFA03BCD19194F823B0E2763E262A5061C12F
7F44AD566BBB5322C2E2E52B483ABAE714DD554F7F33FDDDDD6DF58BE7FB6C79
F8D778DB9E9997EB3D2F0014C84575CACF3E91C6DA22D3DEAA8A18835BB21233
8B18489063C1C0713897CC389F8850191BC3BBF776F0BCF9394247C39BCA3FFE
10E3A79C49CEB40D2929AF389EC2F63FA0DECCB8BB7C919EFE45842D41CE748E
D681271FC73897E522F4D504C0D01355D9B3F5297AD79EDC5ED1AD5883710978
C18C392CEDEE41B24873C627FA0195C71F25DF525778553940AC47D71FB790AC
59DB9E53F2391A0B971054CB33CABF5BB4141521690364BD56A330F847D47A73
B62CAF2800184BA1B49F4A1CD32E99EC594354E83C04009DB42DAA84411ED74C
36CE6056E37D7BD318C5D879275F8E0E008036EA181562D7C61A00B19F4BC359
E790895B5282C2107A1692B489F88C31D477EE40CA65D40FC09A1488EC566B53
636A4CB34E97BDD75716005471CE913899D17C19CFC3292423C3B824233E71A9
A57082346A18CF6FCB01188346118D7D4368904B95A0B12836F505AC07D6C378
1EF801C6F3534B619AC0BC52001883384792CC1CB2AA7368A3463C368A388713
C93841D33478BD8688A40AB00D0061B54A343E0E418064142936DD706B338EF0
52403C1F633DF0739820C02B16302D8EDB3C0150D4254814E2A2104CEA21CE04
40248ADB3784AB551027290788A63546716818D3D8F62C9D03C7B575820A2B8E
A15229A1F9425AB7C4A46175C6F54A260E4DD1C8B802CFC3063E7D2DBEC36101
6068C6EE0E091B4818E2C206124548771F4EB5AD5B6CACC19447D3FFBAB4F0A1
2E739444D124A4806067516E1D1BDE806BD453229B79846639BE09064D4052D6
579B7245AEA32B158F2301409308693490B03149781C236148BC7A7D2A7B6DB4
77A31E523C308826719A656AEEBE6B569D159EDF9289EACC1C902F1691638EC5
0C0F4D94D155D2DE82664F82D0AC5899C9DB18A25A6D6A52742E6C2E7184544A
486914298F219571A45A46EB15A45E85D2412AA79EDF369456559228C40EBE98
EA02972A3E9AAEB2086A2CC9CEADD85982266934E8BEE83254252DC989A0EA52
CE1487B8044D92543C9338BDE3080943246E4CC902D8765A5D5D8256CB687914
ADA6444BAD8234AA6858471A0D340A29AF389EDC09A7CC1ABB7BCF6ECE185B5F
E60334DF6B691CC27AFBF4781CD377FE5B5385A79A02A16912455D5A88D44CC1
AA7399D94D1097207132C555B1D3C5A3AA9212582921D512522F23F52A1AD6D0
A891DAEB3844E3084D62920BDF8749A2B679783586FCE65FA5B6BBD94FD32CE1
B6DCA63C4EEDC07E3CCF6B3B5F71D500C1056F87A6CFD09208553D24D3AD69C7
491310DA8A804BA056416A25B45E411B55B4D140C30634094F22344E3049447D
F971D853CF4145DA174FEA35ECAEADD3D4AF5B3301293794EED8885FEC680F68
92B0E6AA2F60962C9F0AE6840FA1531E937289BECCBCDA431724B50A52AF40A3
86366A681442DC8038425D9C56649C0371D4BB16A29FFA4A0A5A3BD6F73C4677
EEC0AB8CCFC9ADB60FDC4EA334FB582F89597ECD7568239AE2274C4A550B7761
A6345ECD08006115C23A12A54413479942895197803890847AA183EADF7E39DD
F9594A54A1F5E9BAEB87734F89F93EB55FDE411004B396B7166F78030337DE32
4B44903536CD9A105145C354B199388224CA884EC00946047509F5FE95C49FBB
897CFF524CE6FCB4BBC3271E21B7FDA939E7ECB01EA53B7F425028CC3A771285
F49DF64606FEEB16BC053D6D4A7266AAEE995E07282431B838DB7197B2B713AC
8B8815062FFF47DC3F7D738A3BD97E3703B8E3A654F91D4EE27578905DDFFE77
FC4261160FDC20E2E85FB79E33EE7C908EF77D18899239B7F5F859EB681D68B8
3811AB554CA3868D631227943BFA48161D43E584337067BF93EE7C0E49662F8C
A4A5B61CC3B7DD44CF0B4FE3FCFC61C6A901C9EDB7125EF25E724B576415A5F6
7E8603CEFEFC9738F05757B0EFE73FE6C06F1EA1B6631B321EA66D7D808411D6
78215037C6A8B9F9E69B0B2B56ACB8B7A3A3A3AF323276CC325BE945A09CEF26
E85B42B158C40222EEB08AA7D65A6A2FEEC07EF99369A4279AF51666BD449239
3F5939ACD9DBD73A4E4449D69CC4FAEFFC94A85A3DACE77B9E47B1B31327C2D8
F838E5A79FA251AEE0E5028A6B4FDA8161AC5C2E5FEF8F8C8CD80D1B36BC2997
CB157B7B7B9B4DADA627435CC5212DEC36E7C246A5827EFDB3A9DE9847B8E56D
7F86E7AFFE0C277FF1064A6363735E8388502DA789978E5C8ECEB3DE34C92C22
27349374D6A6DE944EB8A322A655911C6EE381F53C3C6B31D75E49502DCDBFBB
CE0F881EBC8767BF7D3D9D3DBD47B4AE66F528BB4D935611517FBAB2F2BC6AF9
5184FBD2DF111C18E468B54818DF27FAD177D852AD72FABF5EC3D8C18347ED30
87DFACBE98793686068502B55DDB906F7E8E60642FD2260D75A40997C6C61FF0
44699C933EF72554E4A8344BF887B2D4E165C1D2F8DFF33C0EFEFA1EBA6FB916
C164C473F4AF5C9EC67D77B2F9F78FB1EEEBDFA773C54A92AC43EC48D60E60E7
C301F98E4EC68776137EF1132CB8F5AB737774E69981F68687D8FAE14B79EEDA
6BB07E404767E71130544AF39C1A259B20D92CE91839811D7FA0BCE96EFA7F77
2F0E9BC9FB2BDD23D8E2EF8BA37AFB4FD8FCF083F4BFFF23AC7CD7E514571C03
71441C4573E60AFF50E2D3EEDC34B1636DAAD573BE4FB55CA65C29C353FFC3C2
077F8C19DD8F6011EB672EA6F027BD34F53275EC20FB6FFC3AC3FF791D85B3CF
65E9DF7C8AFE934EA66BC1021211DCCB2B4C0A98894ED18E8E8EA8542A7D5EA1
9703074ECF0D3E776971740F188B28D8A19D24A5118A95125DE307208A70D643
3D0FDC6BE70C95C9E5A93FF65B9EFFCD23BCD0D58DE95B44D0D74F61E531E4FA
FA09A308CF0F745F1898B3FEF99377C5B5DAF65AADF670EB89919EFD3B5EB870
FC6B9FDAB878412E48F63C6F347138254D604A56C0902CE426B3A54EB3A32F4D
0F4F264E92A4AF9A75AC1F9927D89C5315DCB4E3B465CED6F9B235389706B00E
8ACB97B04906F67C7FF0D1CB80678C31A16DD188C982D5ABF7FCFCE978B0B8A8
DFE0E750CFCF2A2E66EA3D21E7E6357E8C40B3DA80C1F8505F7A2CEFBFFEDFBE
075452B275D20A00613EE70F5DFA8D1BAFF9C6DD2F49EEF4F3D2AA8A01632D86
26107A88AEB31908AF45240C9208413E50F7A6B7B1A9BAF0C9B7BDE76D8FA8EA
28904C9C1A6BF1AA3A513DF1BEDB7E75C9DDD75C73D527FEF22DC5BE3D4FE097
4690B0813A87CB8A186931A37960213B5425D9692F6DF6F9B58EC958B2E5BB66
5A7CEA7720B4FE3639D7D4CF2DA230B186C9FF193FD0C8A929AC3D991D1D03FA
CCEEEA533F7DE6F6AB80A78121634C34E5D458068455D51E63CCC0F667779E71
C3BF5C77857B69C7590B6C985BB9BC9BBC6F303A29BBDACCE5A3538EBC35534F
D27A3E509838E6D63C77A8ADC7E1267215538FC071E8B896A4C644AE0F404DCB
7B78693422ACC72C583DB0EDF2CF7C7CE3C51FB9649331662BE991B9B0797872
BA93A31628AAEA6263CCF29D8363AB6EDF78FFCAD20B7F5C58E8ECE8A854EBFD
BDBD5DA3D552AD1A27499C2E6B9A63A86D4CF8DC98F7E5838DC1E6F3B99CF1BD
FE5A2DECF7BC433D2FD5247671B198DF7BEC9A657BDEF2C18B77AEEC2BEE0646
5575D418330EC4D39E1C6D7578B236321F28909E1DB6A467893BB3EF22A00AC4
7F1ACF674A062B007A80E234952DC9D6546A595F98AD3731C6C8B440CF00C274
E3BC6C114ADA9C29AF82F66B6E8E9DE1D90A24D9FAB4D5D19BCE3BFC3F18A85F
E1469E4F0B0000000049454E44AE426082
}
Proportional = True
end
end
end

View file

@ -23,9 +23,10 @@ type
lblTitle: TLabel;
lblVersion: TLabel;
lblWidgetsetVer: TLabel;
pnlVersionInfos: TPanel;
pnlInfo: TPanel;
pnlLogo: TPanel;
procedure FormCreate(Sender: TObject);
procedure imgLogoClick(Sender: TObject);
procedure pnlInfoClick(Sender: TObject);
private
{ private declarations }
@ -57,6 +58,11 @@ begin
lblWidgetsetVer.Caption := WSVersion;
end;
procedure TfrmStartingSplash.imgLogoClick(Sender: TObject);
begin
end;
procedure TfrmStartingSplash.pnlInfoClick(Sender: TObject);
begin

View file

@ -181,7 +181,6 @@ resourcestring
rsMsgHotDirDemoCommand = 'This will execute the following command:';
rsMsgHotDirDemoTarget = 'And inactive frame would change to the following path:';
rsMsgHotDirLocateHotlistFile = 'Locate ".hotlist" file to import';
rsMsgHotDirLocatePreviousSave = 'Select location and filename of previously saved Directory Hotlist file';
rsMsgHotDirWhereToSave = 'Enter location and filename where to save a Directory Hotlist file';
rsMsgHotDirRestoreWhat = 'Enter location and filename of Directory Hotlist to restore';
rsMsgHotDirImportall = 'Import all!';
@ -202,6 +201,7 @@ resourcestring
rsHotDirWarningAbortRestoreBackup = 'Warning! When restoring a .hotlist backup file, this will erase existing list to replace by the imported one.'+#$0A+#$0A+
'Are you sure you want to proceed?';
rsHotDirNothingToImport = 'Sorry, nothing detected to import!';
rsHotDirForceSortingOrderChoices = 'none;Name, a-z;Name, z-a;Ext, a-z;Ext, z-a;Size 9-0;Size 0-9;Date 9-0;Date 0-9';
//Special dir related
rsMsgSpecialDirUseDC = 'Use Double Commander special path...';
@ -252,6 +252,9 @@ resourcestring
rsMsgFavoriteTabsModifiedNoImport = 'Last Favorite Tabs modification have been saved yet. Do you want to save them prior to continue?';
rsMsgFavoriteTabsSimpleMode = 'Keep saving dir history with Favorite Tabs:';
rsMsgFavoriteTabsExtraMode = 'Default extra setting for save dir history for new Favorite Tabs:';
rsTabsActionOnDoubleClickChoices = 'Do nothing;Close tab;Access Favorite Tabs;Tabs popup menu';
rsFavTabsPanelSideSelection = 'Left;Right;Active;Inactive;Both;None';
rsFavTabsSaveDirHistory = 'No;Yes';
//Total Commander related message
rsMsgLocateTCExecutable = 'Locate TC executable file (totalcmd.exe or totalcmd64.exe)';