From d419191e731ca6882bf73b488b6159ceb1dfc1b6 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:24 +0000 Subject: [PATCH] implemented datamodules git-svn-id: trunk@2465 - --- lcl/controls.pp | 7 +++++-- lcl/include/wincontrol.inc | 6 +++++- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lcl/controls.pp b/lcl/controls.pp index 5beef6ea23..6aef2902de 100644 --- a/lcl/controls.pp +++ b/lcl/controls.pp @@ -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 diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc index 8bddf70568..037bca5a8b 100644 --- a/lcl/include/wincontrol.inc +++ b/lcl/include/wincontrol.inc @@ -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