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

MG: fixed parser for external vars

Browse Source 
git-svn-id: trunk@975 -
This commit is contained in:
lazarus 2002-02-09 01:47:32 +00:00
parent 095d3690f3
commit c13da4e569
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/control.inc
View File

@ -526,8 +526,12 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
procedure TControl.SetColor(value : TColor); procedure TControl.SetColor(value : TColor);
begin begin
if FColor <> Value then
begin
FColor := Value; FColor := Value;
FParentColor := False;
CNSendMessage(LM_SETCOLOR, Self, nil); CNSendMessage(LM_SETCOLOR, Self, nil);
end;
end; end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
@ -535,7 +539,7 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
Function TControl.CanAutoSize(Var NewWidth, NewHeight : Integer): Boolean; Function TControl.CanAutoSize(Var NewWidth, NewHeight : Integer): Boolean;
Begin Begin
Result := True; Result := True;
end; end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
@ -543,7 +547,7 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
Function TControl.Dragging: Boolean; Function TControl.Dragging: Boolean;
Begin Begin
Result := (DragControl = self); Result := (DragControl = self);
end; end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
@ -1608,6 +1612,7 @@ begin
FAnchors := [akLeft,akTop]; FAnchors := [akLeft,akTop];
FAlign := alNone; FAlign := alNone;
FColor := clWindow;
// initial control isn't visible (It isn't created yet) // initial control isn't visible (It isn't created yet)
FVisible := False; FVisible := False;
// FOwner := AOwner; // FOwner := AOwner;
@ -1764,6 +1769,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.57 2002/07/09 17:18:22 lazarus
MG: fixed parser for external vars
Revision 1.56 2002/06/19 19:46:08 lazarus Revision 1.56 2002/06/19 19:46:08 lazarus
MG: Form Editing: snapping, guidelines, modified on move/resize, creating components in csDesigning, ... MG: Form Editing: snapping, guidelines, modified on move/resize, creating components in csDesigning, ...