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

MG: Form Editing: snapping, guidelines, modified on move/resize, creating components in csDesigning, ...

Browse Source 
git-svn-id: trunk@1034 -
This commit is contained in:
lazarus 2002-02-09 01:47:41 +00:00
parent aa83828e23
commit 96e8260ca7
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/controls.pp
View File

@ -555,7 +555,7 @@ type
Procedure SetZOrder(Topmost: Boolean) ; dynamic; Procedure SetZOrder(Topmost: Boolean) ; dynamic;
function GetText: TCaption; virtual; function GetText: TCaption; virtual;
procedure SetText(const Value: TCaption); virtual; procedure SetText(const Value: TCaption); virtual;
procedure WndProc(var Message : TLMessage); virtual; procedure WndProc(var TheMessage : TLMessage); virtual;
Procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); dynamic; Procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); dynamic;
Procedure MouseMove(Shift: TShiftState; X,Y: Integer);Dynamic; Procedure MouseMove(Shift: TShiftState; X,Y: Integer);Dynamic;
Procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); dynamic; Procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); dynamic;
@ -722,7 +722,7 @@ type
procedure BoundsChanged; override; procedure BoundsChanged; override;
procedure CMShowHintChanged(var Message: TLMessage); message CM_SHOWHINTCHANGED; procedure CMShowHintChanged(var Message: TLMessage); message CM_SHOWHINTCHANGED;
procedure CMShowingChanged(var Message: TLMessage); message CM_SHOWINGCHANGED; procedure CMShowingChanged(var Message: TLMessage); message CM_SHOWINGCHANGED;
procedure CMVisibleChanged(var Message: TLMessage); message CM_VISIBLECHANGED; procedure CMVisibleChanged(var TheMessage: TLMessage); message CM_VISIBLECHANGED;
procedure CreateSubClass(var Params: TCreateParams;ControlClassName: PChar); procedure CreateSubClass(var Params: TCreateParams;ControlClassName: PChar);
procedure DoConstraintsChange(Sender : TObject); override; procedure DoConstraintsChange(Sender : TObject); override;
{$IFDEF ClientRectBugFix} {$IFDEF ClientRectBugFix}
@ -1236,6 +1236,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.52 2002/06/19 19:46:08 lazarus
MG: Form Editing: snapping, guidelines, modified on move/resize, creating components in csDesigning, ...
Revision 1.51 2002/06/04 15:17:21 lazarus Revision 1.51 2002/06/04 15:17:21 lazarus
MG: improved TFont for XLFD font names MG: improved TFont for XLFD font names