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

IDE; improved add to package dialog

Browse Source 
git-svn-id: trunk@23111 -
This commit is contained in:
mattias 2009-12-12 19:01:43 +00:00
parent 321c54a228
commit 83d8249ff4
3 changed files with 1025 additions and 944 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

888
packager/addtopackagedlg.lfm
View File

File diff suppressed because it is too large Load Diff

1060
packager/addtopackagedlg.lrs
View File

File diff suppressed because it is too large Load Diff

21
packager/addtopackagedlg.pas
View File

@ -38,8 +38,8 @@ unit AddToPackageDlg;
interface
uses
Classes, SysUtils, LResources, LCLType, Forms, Controls, Buttons, StdCtrls,
ExtCtrls, Dialogs, FileUtil, ComCtrls, AVL_Tree, LCLProc,
Math, Classes, SysUtils, LResources, LCLType, Forms, Controls, Buttons,
StdCtrls, ExtCtrls, Dialogs, FileUtil, ComCtrls, AVL_Tree, LCLProc,
NewItemIntf, ProjectIntf,
LazarusIDEStrConsts, IDEWindowIntf, InputHistory, CodeToolManager, IDEDefs,
IDEProcs, EnvironmentOpts, PackageSystem, PackageDefs, ComponentReg,
@ -88,8 +88,11 @@ type
CancelAddUnitButton: TBitBtn;
CancelDependButton: TBitBtn;
CancelNewComponentButton: TBitBtn;
NewCompBtnPanel: TPanel;
NewComponentButton: TBitBtn;
NewDepBtnPanel: TPanel;
NewDependButton: TBitBtn;
NewDepPanel: TPanel;
NewFileCancelButton: TBitBtn;
NewFileOkButton: TBitBtn;
// notebook
@ -178,6 +181,7 @@ type
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure NewComponentButtonClick(Sender: TObject);
procedure NewComponentPageResize(Sender: TObject);
procedure NewDependButtonClick(Sender: TObject);
procedure NewFileOkButtonClick(Sender: TObject);
procedure NewFilePageResize(Sender: TObject);
@ -1039,6 +1043,19 @@ begin
ModalResult:=mrOk;
end;
procedure TAddToPackageDlg.NewComponentPageResize(Sender: TObject);
var
x: Integer;
begin
x:=0;
x:=Max(x,AncestorTypeLabel.Left+AncestorTypeLabel.Width);
x:=Max(x,ClassNameLabel.Left+ClassNameLabel.Width);
x:=Max(x,PalettePageLabel.Left+PalettePageLabel.Width);
x:=Max(x,ComponentUnitFileLabel.Left+ComponentUnitFileLabel.Width);
x:=Max(x,ComponentUnitNameLabel.Left+ComponentUnitNameLabel.Width);
AncestorComboBox.Left:=x+6;
end;
procedure TAddToPackageDlg.NewDependButtonClick(Sender: TObject);
var
NewDependency: TPkgDependency;