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

implemented compiler function Low(array)

Browse Source 
git-svn-id: trunk@2996 -
This commit is contained in:
mattias 2002-08-18 08:56:52 +00:00
parent 8c2ccf110c
commit 910433f714
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -95,6 +95,7 @@ type
//procedure FormShow(Sender : TObject); //procedure FormShow(Sender : TObject);
procedure FormClose(Sender : TObject; var Action: TCloseAction); procedure FormClose(Sender : TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender : TObject; var CanClose: boolean); procedure FormCloseQuery(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);
@ -819,6 +820,7 @@ begin
// build and position the MainIDE form // build and position the MainIDE form
Name := NonModalIDEWindowNames[nmiwMainIDEName]; Name := NonModalIDEWindowNames[nmiwMainIDEName];
EnvironmentOptions.IDEWindowLayoutList.Apply(TForm(Self),Name); EnvironmentOptions.IDEWindowLayoutList.Apply(TForm(Self),Name);
OnResize:=@MainIDEResize;
{$IFNDEF EnablePkgs} {$IFNDEF EnablePkgs}
InitIDEComponents; InitIDEComponents;
@ -988,6 +990,12 @@ begin
CanClose:=(DoCloseProject <> mrAbort); CanClose:=(DoCloseProject <> mrAbort);
end; end;
procedure TMainIDE.MainIDEResize(Sender: TObject);
begin
if ComponentNotebook<>nil then
ComponentNotebook.Width:=ClientWidth-ComponentNotebook.Left;
end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
type type
TMoveFlags = set of (mfTop, mfLeft); TMoveFlags = set of (mfTop, mfLeft);
@ -8653,6 +8661,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.557 2003/05/06 21:54:57 mattias
implemented compiler function Low(array)
Revision 1.556 2003/05/06 08:40:57 mattias Revision 1.556 2003/05/06 08:40:57 mattias
added export procedure specifier added export procedure specifier