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

AddToPackage Dialog improvements. Issue #28273, patch from Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@49316 -
This commit is contained in:
juha 2015-06-12 09:34:57 +00:00
parent 4f2b3156df
commit fa041aeae9
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packager/addtopackagedlg.lfm
View File

@ -12,6 +12,7 @@ object AddToPackageDlg: TAddToPackageDlg
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = AddToPackageDlgKeyDown
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.5'
object PageControl1: TPageControl

7
packager/addtopackagedlg.pas
View File

@ -130,6 +130,7 @@ type
procedure FilesShortenButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure NewComponentButtonClick(Sender: TObject);
procedure NewComponentPageResize(Sender: TObject);
procedure NewDependButtonClick(Sender: TObject);
@ -211,6 +212,7 @@ begin
AddDlg.FilesDirButton.Click;
//hide tabs for simpler use
AddDlg.PageControl1.ShowTabs:=false;
AddDlg.PageControl1.TabStop:=false;
Result:=AddDlg.ShowModal;
Page:=AddDlg.ActivatePage;
@ -760,6 +762,11 @@ begin
FreeAndNil(Params);
end;
procedure TAddToPackageDlg.FormShow(Sender: TObject);
begin
SelectNext(PageControl1.ActivePage, True, True);
end;
procedure TAddToPackageDlg.NewComponentButtonClick(Sender: TObject);
var
PkgFile: TPkgFile;