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

use align property instead of resize event

Browse Source 
git-svn-id: trunk@5463 -
This commit is contained in:
micha 2004-05-12 16:19:28 +00:00
parent 49fe61c275
commit 01435f8aae
1 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/main.pp
View File

@ -93,7 +93,6 @@ type
//procedure FormShow(Sender : TObject); //procedure FormShow(Sender : TObject);
procedure MainIDEFormClose(Sender : TObject; var CloseAction: TCloseAction); procedure MainIDEFormClose(Sender : TObject; var CloseAction: TCloseAction);
procedure MainIDEFormCloseQuery(Sender : TObject; var CanClose: boolean); procedure MainIDEFormCloseQuery(Sender : TObject; var CanClose: boolean);
procedure MainIDEResize(Sender: TObject);
//procedure FormPaint(Sender : TObject); //procedure FormPaint(Sender : TObject);
procedure OnApplicationUserInput(Sender: TObject; Msg: Cardinal); procedure OnApplicationUserInput(Sender: TObject; Msg: Cardinal);
procedure OnApplicationIdle(Sender: TObject); procedure OnApplicationIdle(Sender: TObject);
@ -865,7 +864,6 @@ begin
// build and position the MainIDE form // build and position the MainIDE form
Name := NonModalIDEWindowNames[nmiwMainIDEName]; Name := NonModalIDEWindowNames[nmiwMainIDEName];
EnvironmentOptions.IDEWindowLayoutList.Apply(Self,Name); EnvironmentOptions.IDEWindowLayoutList.Apply(Self,Name);
OnResize:=@MainIDEResize;
HiddenWindowsOnRun:=TList.Create; HiddenWindowsOnRun:=TList.Create;
if LazarusResources.Find(ClassName)=nil then begin if LazarusResources.Find(ClassName)=nil then begin
@ -1064,19 +1062,6 @@ begin
CanClose:=(DoCloseProject <> mrAbort); CanClose:=(DoCloseProject <> mrAbort);
end; end;
procedure TMainIDE.MainIDEResize(Sender: TObject);
begin
if ComponentNotebook<>nil then begin
with ComponentNotebook do
SetBounds(Left,0,
Parent.ClientWidth-ComponentNotebook.Left,Parent.CLientHeight);
end;
if pnlSpeedButtons<>nil then begin
with pnlSpeedButtons do
SetBounds(0,0,Width,Parent.ClientHeight);
end;
end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
type type
TMoveFlags = set of (mfTop, mfLeft); TMoveFlags = set of (mfTop, mfLeft);
@ -1113,6 +1098,7 @@ begin
with pnlSpeedButtons do begin with pnlSpeedButtons do begin
Name := 'pnlSpeedButtons'; Name := 'pnlSpeedButtons';
Parent:= Self; Parent:= Self;
Align := alLeft;
Top := 0; Top := 0;
Left:= 0; Left:= 0;
Caption:= ''; Caption:= '';
@ -1166,6 +1152,7 @@ begin
with ComponentNotebook do begin with ComponentNotebook do begin
Parent := Self; Parent := Self;
Name := 'ComponentNotebook'; Name := 'ComponentNotebook';
Align := alClient;
Left := pnlSpeedButtons.Left + pnlSpeedButtons.Width; Left := pnlSpeedButtons.Left + pnlSpeedButtons.Width;
Top := 0; Top := 0;
Width := Self.ClientWidth - Left; Width := Self.ClientWidth - Left;
@ -10292,6 +10279,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.723 2004/05/12 16:19:28 micha
use align property instead of resize event
Revision 1.722 2004/05/02 12:01:14 mattias Revision 1.722 2004/05/02 12:01:14 mattias
removed unneeded units in uses sections removed unneeded units in uses sections