paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 03:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

set MacroGroupBox bounds on form creation

Browse Source 
git-svn-id: trunk@5555 -
This commit is contained in:
vincents 2004-06-11 20:51:33 +00:00
parent 824f2101de
commit f58d528f51
1 changed files with 38 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
ide/buildfiledlg.pas
View File

@ -109,6 +109,8 @@ type
procedure SetMacroList(const AValue: TTransferMacroList);
procedure SetRunFileIfActive(const AValue: boolean);
procedure UpdateCaption;
procedure UpdateBuildMacroSelectionBoxBounds;
procedure UpdateRunMacroSelectionBoxBounds;
procedure ReadDirectiveList;
procedure WriteDirectiveList;
public
@ -491,20 +493,8 @@ begin
end;
procedure TBuildFileDialog.BuildPageRESIZE(Sender: TObject);
var
x: Integer;
y: Integer;
w: Integer;
h: Integer;
begin
if (BuildMacroSelectionBox=nil) or (BuildScanForMakeMsgCheckbox=nil) then
exit;
x:=3;
y:=BuildScanForMakeMsgCheckbox.Top+BuildScanForMakeMsgCheckbox.Height+5;
w:=BuildPage.ClientWidth-2*x;
h:=BuildPage.ClientHeight-y-x;
BuildMacroSelectionBox.SetBounds(x,y,w,h);
UpdateBuildMacroSelectionBoxBounds;
end;
procedure TBuildFileDialog.OkButtonCLICK(Sender: TObject);
@ -524,18 +514,8 @@ begin
end;
procedure TBuildFileDialog.RunPageRESIZE(Sender: TObject);
var
x: Integer;
y: Integer;
w: Integer;
h: Integer;
begin
if (RunCommandGroupbox=nil) or (RunMacroSelectionBox=nil) then exit;
x:=3;
y:=RunCommandGroupbox.Top+RunCommandGroupbox.Height+5;
w:=RunPage.ClientWidth-2*x;
h:=RunPage.ClientHeight-y-x;
RunMacroSelectionBox.SetBounds(x,y,w,h);
UpdateRunMacroSelectionBoxBounds;
end;
procedure TBuildFileDialog.BuildFileDialogCREATE(Sender: TObject);
@ -549,6 +529,7 @@ begin
Caption:='Macros';
OnAddMacro:=@BuildMacroSelectionBoxAddMacro;
end;
UpdateBuildMacroSelectionBoxBounds;
RunMacroSelectionBox:=TMacroSelectionBox.Create(Self);
with RunMacroSelectionBox do begin
@ -557,6 +538,7 @@ begin
Caption:='Macros';
OnAddMacro:=@RunMacroSelectionBoxAddMacro;
end;
UpdateRunMacroSelectionBoxBounds;
end;
procedure TBuildFileDialog.BuildBrowseWorkDirButtonCLICK(Sender: TObject);
@ -637,6 +619,38 @@ begin
Caption:='Configure Build '+Filename;
end;
procedure TBuildFileDialog.UpdateBuildMacroSelectionBoxBounds;
var
x: Integer;
y: Integer;
w: Integer;
h: Integer;
begin
if (BuildMacroSelectionBox=nil) or (BuildScanForMakeMsgCheckbox=nil) then
exit;
x:=3;
y:=BuildScanForMakeMsgCheckbox.Top+BuildScanForMakeMsgCheckbox.Height+5;
w:=BuildPage.ClientWidth-2*x;
h:=BuildPage.ClientHeight-y-x;
BuildMacroSelectionBox.SetBounds(x,y,w,h);
end;
procedure TBuildFileDialog.UpdateRunMacroSelectionBoxBounds;
var
x: Integer;
y: Integer;
w: Integer;
h: Integer;
begin
if (RunCommandGroupbox=nil) or (RunMacroSelectionBox=nil) then exit;
x:=3;
y:=RunCommandGroupbox.Top+RunCommandGroupbox.Height+5;
w:=RunPage.ClientWidth-2*x;
h:=RunPage.ClientHeight-y-x;
RunMacroSelectionBox.SetBounds(x,y,w,h);
end;
procedure TBuildFileDialog.ReadDirectiveList;
var
BuildWorkingDir: String;