paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-24 03:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

tools/chmmaker: Add ellipsis to button/menu captions when command opens another window. Part of issue #41657.

Browse Source
This commit is contained in:
wp_xyz 2025-05-20 20:17:15 +02:00
parent b34d6ed4db
commit 351c7a5cc3
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tools/chmmaker/chmmain.lfm
View File

@ -240,7 +240,6 @@ object CHMForm: TCHMForm
Anchors = [akTop, akLeft, akRight]
AutoSelect = False
BorderSpacing.Top = 4
AutoSize = False
MaxLength = 0
TabOrder = 1
OnEditingDone = TOCEditEditingDone
@ -261,7 +260,6 @@ object CHMForm: TCHMForm
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
AutoSelect = False
BorderSpacing.Top = 4
AutoSize = False
@ -281,7 +279,7 @@ object CHMForm: TCHMForm
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 16
Caption = 'Edit'
Caption = 'Edit...'
Constraints.MinWidth = 60
TabOrder = 2
OnClick = TOCEditBtnClick
@ -298,7 +296,7 @@ object CHMForm: TCHMForm
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 16
Caption = 'Edit'
Caption = 'Edit...'
Constraints.MinWidth = 60
TabOrder = 4
OnClick = IndexEditBtnClick
@ -483,7 +481,7 @@ object CHMForm: TCHMForm
OnClick = ProjNewItemClick
end
object ProjOpenItem: TMenuItem
Caption = 'Open'
Caption = 'Open...'
OnClick = ProjOpenItemClick
end
object MenuItem9: TMenuItem
@ -494,7 +492,7 @@ object CHMForm: TCHMForm
OnClick = ProjSaveItemClick
end
object ProjSaveAsItem: TMenuItem
Caption = 'Save as'
Caption = 'Save as...'
OnClick = ProjSaveAsItemClick
end
object ProjCloseItem: TMenuItem
@ -529,7 +527,7 @@ object CHMForm: TCHMForm
Caption = '-'
end
object HelpAboutItem: TMenuItem
Caption = 'About'
Caption = 'About...'
end
end
end

1
tools/chmmaker/chmmain.pas
View File

@ -299,7 +299,6 @@ begin
end;
Proc := TProcessUTF8.Create(Self);
Proc.Parameters.Add('../../../lazbuild ./lhelp.lpi');
// Proc.CommandLine := '../../../lazbuild ./lhelp.lpi';
SetCurrentDir('../../components/chmhelp/lhelp/');
Proc.Options := [poWaitOnExit];
Proc.Execute;