mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Show tooltip options

Browse source
This commit is contained in:
Alexander Koblov 2010-01-20 17:52:50 +00:00
commit f258fb0db2
4 changed files with 57 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

43
src/foptions.lfm
View file

@ -3211,6 +3211,49 @@ object frmOptions: TfrmOptions
TabOrder = 2
end
end
object gbShowToolTip: TGroupBox
AnchorSideLeft.Control = pgMisc
AnchorSideTop.Control = gbExtended
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pgMisc
AnchorSideRight.Side = asrBottom
Left = 8
Height = 64
Top = 208
Width = 607
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 6
BorderSpacing.Right = 8
Caption = 'Show tool tip'
ChildSizing.LeftRightSpacing = 12
ChildSizing.TopBottomSpacing = 6
ClientHeight = 46
ClientWidth = 603
TabOrder = 2
object rbToolTipAllFiles: TRadioButton
AnchorSideLeft.Control = gbShowToolTip
AnchorSideTop.Control = gbShowToolTip
Left = 12
Height = 17
Top = 6
Width = 189
Caption = 'Show tool tip for all files in file panel'
TabOrder = 0
end
object rbToolTipOnlyLarge: TRadioButton
AnchorSideLeft.Control = gbShowToolTip
AnchorSideTop.Control = rbToolTipAllFiles
AnchorSideTop.Side = asrBottom
Left = 12
Height = 17
Top = 23
Width = 235
Caption = 'Show tool tip for files in file panel if truncated'
TabOrder = 1
end
end
end
object pgAutoRefresh: TPage
ClientWidth = 524

3
src/foptions.lrt
View file

@ -170,6 +170,9 @@ TFRMOPTIONS.CBGRIDHORZLINE.CAPTION=Horizontal lines
TFRMOPTIONS.CBSHOWWARNINGMESSAGES.CAPTION=Show warning messages ("OK" button only)
TFRMOPTIONS.CBSPACEMOVESDOWN.CAPTION=When selecting files with <SPACEBAR>, move down to next file (as with <INSERT>)
TFRMOPTIONS.CBDIRBRACKETS.CAPTION=Show square brackets around directories
TFRMOPTIONS.GBSHOWTOOLTIP.CAPTION=Show tool tip
TFRMOPTIONS.RBTOOLTIPALLFILES.CAPTION=Show tool tip for all files in file panel
TFRMOPTIONS.RBTOOLTIPONLYLARGE.CAPTION=Show tool tip for files in file panel if truncated
TFRMOPTIONS.GBAUTOREFRESHENABLE.CAPTION=Refresh file list
TFRMOPTIONS.CBWATCHFILENAMECHANGE.CAPTION=When files are &created, deleted or renamed
TFRMOPTIONS.CBWATCHATTRIBUTESCHANGE.CAPTION=When &size, date or attributes change

10
src/foptions.pas
View file

@ -189,6 +189,7 @@ type
gbShowIconsMode: TGroupBox;
gbAutoRefreshEnable: TGroupBox;
gbAutoRefreshDisable: TGroupBox;
gbShowToolTip: TGroupBox;
grpQuickSearchFilterKeys: TGroupBox;
lblInactivePanelBrightness: TLabel;
lblAutoSizeColumn: TLabel;
@ -196,6 +197,8 @@ type
lblQuickFilter: TLabel;
pnlQuickSearch: TPanel;
pnlQuickFilter: TPanel;
rbToolTipOnlyLarge: TRadioButton;
rbToolTipAllFiles: TRadioButton;
rbAltLetterQF: TRadioButton;
rbCtrlAltLetterQF: TRadioButton;
rbLetterQF: TRadioButton;
@ -2239,6 +2242,8 @@ begin
cbShowWarningMessages.Checked:= gShowWarningMessages;
cbSpaceMovesDown.Checked:= gSpaceMovesDown;
cbDirBrackets.Checked:= gDirBrackets;
rbToolTipAllFiles.Checked:= (stm_show_for_all in gShowToolTipMode);
rbToolTipOnlyLarge.Checked:= (stm_only_large_name in gShowToolTipMode);
{ Auto refresh }
cbWatchFileNameChange.Checked := (watch_file_name_change in gWatchDirs);
@ -2448,6 +2453,11 @@ begin
gShowWarningMessages:= cbShowWarningMessages.Checked;
gSpaceMovesDown:= cbSpaceMovesDown.Checked;
gDirBrackets:= cbDirBrackets.Checked;
gShowToolTipMode:= []; // Reset tool tip show mode
if rbToolTipAllFiles.Checked then
Include(gShowToolTipMode, stm_show_for_all);
if rbToolTipOnlyLarge.Checked then
Include(gShowToolTipMode, stm_only_large_name);
{ Auto refresh }
gWatchDirs := []; // Reset watch options

1
src/newdesign/ucolumnsfileview.pas
View file

@ -1095,6 +1095,7 @@ var
AFile: TColumnsViewFile;
sHint: UTF8String;
begin
if HintInfo^.HintStr = EmptyStr then Exit; // don't show
with dgPanel do
AFile := FFiles[HintRowIndex - FixedRows];
if not AFile.TheFile.IsDirectory then