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

added form editor options for rubberband and colors

Browse Source 
git-svn-id: trunk@1372 -
This commit is contained in:
mattias 2002-02-09 01:48:20 +00:00
parent 26270cc66d
commit c1efaaae33
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/include/control.inc
View File

@ -1214,9 +1214,9 @@ begin
CNSendMessage(LM_AddChild, Self, nil);
end;
{------------------------------------------------------------------------------}
{ TControl SetAutoSize }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TControl SetAutoSize
------------------------------------------------------------------------------}
Procedure TControl.SetAutoSize(const value : Boolean);
Begin
If AutoSize <> Value then begin
@ -1225,17 +1225,17 @@ Begin
end;
end;
{------------------------------------------------------------------------------}
{ TControl DoAutoSize }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TControl DoAutoSize
------------------------------------------------------------------------------}
Procedure TControl.DoAutoSize;
Begin
//Handled by TWinControl, or other descendants
end;
{------------------------------------------------------------------------------}
{ TControl SetBoundsRect }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TControl SetBoundsRect
------------------------------------------------------------------------------}
Procedure TControl.SetBoundsRect(const Rect : TRect);
Begin
{$IFDEF CHECK_POSITION}
@ -1245,17 +1245,17 @@ Begin
SetBounds(Left,Top,Right - Left, Bottom - Top);
end;
{------------------------------------------------------------------------------}
{ TControl SetClientHeight }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TControl SetClientHeight
------------------------------------------------------------------------------}
procedure TControl.SetClientHeight(Value: Integer);
begin
SetClientSize(Point(ClientWidth, Value));
end;
{------------------------------------------------------------------------------}
{ TControl SetClientSize }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TControl SetClientSize
------------------------------------------------------------------------------}
procedure TControl.SetClientSize(Value: TPoint);
var
Client: TRect;
@ -2076,6 +2076,9 @@ end;
{ =============================================================================
$Log$
Revision 1.105 2002/11/27 14:37:37 mattias
added form editor options for rubberband and colors
Revision 1.104 2002/11/21 18:49:53 mattias
started OnMouseEnter and OnMouseLeave