paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 12:40:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: add to package dlg: added button hints

Browse Source 
git-svn-id: trunk@16169 -
This commit is contained in:
mattias 2008-08-20 16:54:48 +00:00
parent c624f4b5de
commit 504381f826
4 changed files with 51 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/lazarusidestrconsts.pas
View File

@ -3817,6 +3817,10 @@ resourcestring
lisFreePascal = 'Free Pascal';
lisSmallerRatherThanFaster = 'smaller rather than faster';
lisVerifyMethodCalls = 'Verify method calls';
lisToggleShowingFilenamesWithFullPathOrWithRelativePa = 'Toggle showing '
+'filenames with full path or with relative path';
lisDeleteSelectedFiles = 'Delete selected files';
lisAddDirectory = 'Add directory';
implementation

20
packager/addtopackagedlg.lfm
View File

@ -699,7 +699,7 @@ object AddToPackageDlg: TAddToPackageDlg
TabOrder = 1
object FilesBrowseButton: TButton
AnchorSideBottom.Side = asrBottom
Left = 281
Left = 6
Height = 29
Top = 6
Width = 128
@ -712,7 +712,7 @@ object AddToPackageDlg: TAddToPackageDlg
end
object FilesAddButton: TButton
AnchorSideLeft.Side = asrBottom
Left = 415
Left = 498
Height = 29
Top = 6
Width = 107
@ -725,7 +725,7 @@ object AddToPackageDlg: TAddToPackageDlg
end
object FilesShortenButton: TBitBtn
AnchorSideLeft.Side = asrBottom
Left = 139
Left = 379
Height = 29
Top = 6
Width = 136
@ -738,7 +738,7 @@ object AddToPackageDlg: TAddToPackageDlg
end
object FilesDeleteButton: TBitBtn
AnchorSideLeft.Side = asrBottom
Left = 6
Left = 246
Height = 29
Top = 6
Width = 127
@ -749,6 +749,18 @@ object AddToPackageDlg: TAddToPackageDlg
NumGlyphs = 0
TabOrder = 3
end
object FilesDirButton: TButton
Left = 140
Height = 29
Top = 6
Width = 100
Align = alLeft
AutoSize = True
BorderSpacing.Around = 6
Caption = 'FilesDirButton'
OnClick = FilesDirButtonClick
TabOrder = 4
end
end
end
end

22
packager/addtopackagedlg.lrs
View File

@ -237,18 +237,22 @@ LazarusResources.Add('TAddToPackageDlg','FORMDATA',[
+'eight'#2')'#3'Top'#3#232#0#5'Width'#3#242#1#5'Align'#7#8'alBottom'#8'AutoSi'
+'ze'#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2')'#11'ClientWidth'#3#242
+#1#8'TabOrder'#2#1#0#7'TButton'#17'FilesBrowseButton'#21'AnchorSideBottom.Si'
+'de'#7#9'asrBottom'#4'Left'#3#25#1#6'Height'#2#29#3'Top'#2#6#5'Width'#3#128#0
+#5'Align'#7#6'alLeft'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
+'de'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#29#3'Top'#2#6#5'Width'#3#128#0#5
+'Align'#7#6'alLeft'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
+#17'FilesBrowseButton'#7'OnClick'#7#22'FilesBrowseButtonClick'#8'TabOrder'#2
+#0#0#0#7'TButton'#14'FilesAddButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4
+'Left'#3#159#1#6'Height'#2#29#3'Top'#2#6#5'Width'#2'k'#5'Align'#7#6'alLeft'#8
+'Left'#3#242#1#6'Height'#2#29#3'Top'#2#6#5'Width'#2'k'#5'Align'#7#6'alLeft'#8
+'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'FilesAddButton'#7
+'OnClick'#7#19'FilesAddButtonClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'#18'FilesS'
+'hortenButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#139#0#6'Heig'
+'ht'#2#29#3'Top'#2#6#5'Width'#3#136#0#5'Align'#7#6'alLeft'#8'AutoSize'#9#20
+'BorderSpacing.Around'#2#6#7'Caption'#6#18'FilesShortenButton'#9'NumGlyphs'#2
+'hortenButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3'{'#1#6'Heigh'
+'t'#2#29#3'Top'#2#6#5'Width'#3#136#0#5'Align'#7#6'alLeft'#8'AutoSize'#9#20'B'
+'orderSpacing.Around'#2#6#7'Caption'#6#18'FilesShortenButton'#9'NumGlyphs'#2
+#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#17'FilesDeleteButton'#19'AnchorSideLeft.Si'
+'de'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#29#3'Top'#2#6#5'Width'#2''#5'Al'
+'ign'#7#6'alLeft'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#17
+'FilesDeleteButton'#9'NumGlyphs'#2#0#8'TabOrder'#2#3#0#0#0#0#0#0
+'de'#7#9'asrBottom'#4'Left'#3#246#0#6'Height'#2#29#3'Top'#2#6#5'Width'#2''#5
+'Align'#7#6'alLeft'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
+#17'FilesDeleteButton'#9'NumGlyphs'#2#0#8'TabOrder'#2#3#0#0#7'TButton'#14'Fi'
+'lesDirButton'#4'Left'#3#140#0#6'Height'#2#29#3'Top'#2#6#5'Width'#2'd'#5'Ali'
+'gn'#7#6'alLeft'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#14
+'FilesDirButton'#7'OnClick'#7#19'FilesDirButtonClick'#8'TabOrder'#2#4#0#0#0#0
+#0#0
]);

23
packager/addtopackagedlg.pas
View File

@ -141,11 +141,12 @@ type
AddFileButton: TButton;
CancelAddFileButton: TButton;
// add files page
FilesAddButton: TButton;
FilesDirButton: TButton;
FilesDeleteButton: TBitBtn;
FilesShortenButton: TBitBtn;
FilesListView: TListView;
FilesBrowseButton: TButton;
FilesAddButton: TButton;
NewFileBtnPanel: TPanel;
AddFilesBtnPanel: TPanel;
procedure AddFileBrowseButtonClick(Sender: TObject);
@ -171,6 +172,7 @@ type
procedure FilesAddButtonClick(Sender: TObject);
procedure FilesBrowseButtonClick(Sender: TObject);
procedure FilesDeleteButtonClick(Sender: TObject);
procedure FilesDirButtonClick(Sender: TObject);
procedure FilesShortenButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
@ -853,6 +855,11 @@ begin
FilesListView.Items.Delete(i);
end;
procedure TAddToPackageDlg.FilesDirButtonClick(Sender: TObject);
begin
end;
procedure TAddToPackageDlg.FilesShortenButtonClick(Sender: TObject);
var
SwitchToAbsolute: Boolean;
@ -1359,16 +1366,22 @@ begin
CurColumn.Caption:=dlgEnvType;
end;
with FilesBrowseButton do begin
Caption:=lisPathEditBrowse;
end;
FilesBrowseButton.Caption:=lisPathEditBrowse;
FilesDirButton.Caption:=lisAddDirectory;
{$IFNDEF EnableA2PDirectoryButton}
FilesDirButton.Visible:=false;
{$ENDIF}
with FilesShortenButton do begin
Caption:=lisA2PSwitchPaths;
ShowHint:=true;
Hint:=lisToggleShowingFilenamesWithFullPathOrWithRelativePa;
end;
with FilesDeleteButton do begin
Caption:=dlgEdDelete;
ShowHint:=true;
Hint:=lisDeleteSelectedFiles;
end;
with FilesAddButton do begin