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

implemented datamodules

Browse Source 
git-svn-id: trunk@2465 -
This commit is contained in:
mattias 2002-08-17 23:41:24 +00:00
parent ee1c1ef848
commit d419191e73
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/controls.pp
View File

@ -191,8 +191,8 @@ type
procedure BeforeDestruction; override;
property DesignOffset: TPoint read FDesignOffset write FDesignOffset;
property DesignSize: TPoint read FDesignSize write FDesignSize;
published
property OldCreateOrder: Boolean read FOldCreateOrder write FOldCreateOrder;
published
property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
end;
@ -1486,7 +1486,7 @@ begin
raise EResNotFound.CreateFmt(lisLCLResourceSNotFound, [ClassName]);
if OldCreateOrder then DoCreate;
end;
writeln('TDataModule.Create END');
writeln('TDataModule.Create END');
finally
//GlobalNameSpace.EndWrite;
end;
@ -1713,6 +1713,9 @@ end.
{ =============================================================================
$Log$
Revision 1.120 2003/06/01 21:09:09 mattias
implemented datamodules
Revision 1.119 2003/05/30 16:25:47 mattias
started datamodule

6
lcl/include/wincontrol.inc
View File

@ -985,7 +985,8 @@ begin
Clip := ExcludeClipRect(DC, Left, Top, Left + Width, Top + Height);
if Clip = NullRegion then Break;
end;
if Clip <> NullRegion then PaintWindow(DC);
if Clip <> NullRegion then
PaintWindow(DC);
RestoreDC(DC, SaveIndex);
end;
// paint controls
@ -2594,6 +2595,9 @@ end;
{ =============================================================================
$Log$
Revision 1.131 2003/06/01 21:09:09 mattias
implemented datamodules
Revision 1.130 2003/05/24 08:51:41 mattias
implemented designer close query