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

MG: fixed TnoteBook AddPage and double creation of MeinMenu

Browse Source 
git-svn-id: trunk@3179 -
This commit is contained in:
lazarus 2002-08-19 15:14:55 +00:00
parent c54dbe2373
commit b644518ae5
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/extctrls.pp
View File

@ -61,15 +61,19 @@ type
Introduced and (currently) maintained by Curtis White Introduced and (currently) maintained by Curtis White
} }
TPageFlag = (pfAdded);
TPageFlags = set of TPageFlag;
TPage = class(TWinControl) TPage = class(TWinControl)
private private
FFlags: TPageFlags;
FImageIndex: integer; FImageIndex: integer;
procedure SetImageIndex(const AValue: integer); procedure SetImageIndex(const AValue: integer);
protected protected
//procedure Paint; override; //procedure Paint; override;
procedure WMPaint(var Msg: TLMPaint); message LM_PAINT; procedure WMPaint(var Msg: TLMPaint); message LM_PAINT;
procedure SetParent(AParent : TWinControl); override; procedure SetParent(AParent : TWinControl); override;
property Flags: TPageFlags read FFlags write FFlags;
public public
procedure AddControl; override; procedure AddControl; override;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -505,6 +509,9 @@ end.
{ {
$Log$ $Log$
Revision 1.38 2002/10/24 08:56:30 lazarus
MG: fixed TnoteBook AddPage and double creation of MeinMenu
Revision 1.37 2002/10/20 22:31:08 lazarus Revision 1.37 2002/10/20 22:31:08 lazarus
AJ:switched TImage.Autosize to use DoAutoSize AJ:switched TImage.Autosize to use DoAutoSize