On Tue, 13 Nov 2007 13:18:32 +0200
"Crause, Christo (JC)" <[EMAIL PROTECTED]> wrote:
> > It seems you compared QControls.pas to itself :)
> >
> > File /opt/lazarus/lcl/controls.pas: >>>> cannot open <<<< 0 tokens
> > File /home/graemeg/kylix3/source/clx/QControls.pas: 28925 tokens
> > Total: 28925 tokens
> >
> > Yury.
>
> Indeed. A quick look at the source of the left and right sections
> shows that the source code is from the same file:
>
> /home/graemeg/kylix3/source/clx/QControls.pas: line
> 2579-2605|/home/graemeg/kylix3/source/clx/QControls.pas: line
> 2607-2633[132]
I did a quick test comparing VCL/Controls.pas with
lcl/include/control.inc.
It found only very short things. See attachment.
Mattias
File lazarus/lcl/include/control.inc: 18610 tokens
File Vcl/Controls.pas: 58794 tokens
Total: 77404 tokens
lazarus/lcl/include/control.inc: line 2382-2398|Vcl/Controls.pas: line
3687-3699[84]
procedure TControl.SetName(const Value |procedure TControl.SetName(const Value
var |var
ChangeText: Boolean; |ChangeText: Boolean;
begin |begin
ChangeText := (csSetCaption in Control |ChangeText := (csSetCaption in Control
not (csLoading in ComponentState) and |not (csLoading in ComponentState) and
((Owner = nil) or not (Owner is TContr |((Owner = nil) or not (Owner is TContr
not (csLoading in TControl(Owner).Comp |not (csLoading in TControl(Owner).Comp
|inherited SetName(Value);
inherited SetName(Value); |if ChangeText then Text := Value;
if ChangeText then Text := Value; |end;
end; |
|procedure TControl.SetClientSize(Value
{------------------------------------- |
{ TControl Show |
{------------------------------------- |
procedure TControl.Show; |
lazarus/lcl/include/control.inc: line 1007-1022|Vcl/Controls.pas: line
4540-4552[59]
Function TControl.Perform(Msg:Cardinal |function TControl.Perform(Msg: Cardina
var |var
Message : TLMessage; |Message: TMessage;
begin |begin
Message.Msg := Msg; |Message.Msg := Msg;
Message.WParam := WParam; |Message.WParam := WParam;
Message.LParam := LParam; |Message.LParam := LParam;
Message.Result := 0; |Message.Result := 0;
if Self <> nil then WindowProc(Message |if Self <> nil then WindowProc(Message
Result := Message.Result; |Result := Message.Result;
end; |end;
|
{------------------------------------- |procedure TControl.CalcDockSizes;
TControl.GetClientOrigin |
-------------------------------------- |
function TControl.GetClientOrigin: TPo |
lazarus/lcl/include/control.inc: line 596-606|Vcl/Controls.pas: line
5090-5100[55]
function TControl.IsHelpKeyWordStored: |function TControl.IsCaptionStored: Boo
begin |begin
Result := (ActionLink = nil) or not Ac |Result := (ActionLink = nil) or not Ac
end; |end;
|
function TControl.IsOnClickStored: Boo |function TControl.IsEnabledStored: Boo
begin |begin
Result := (ActionLink = nil) or not Ac |Result := (ActionLink = nil) or not Ac
end; |end;
|
function TControl.IsShowHintStored: Bo |function TControl.IsHintStored: Boolea
lazarus/lcl/include/control.inc: line 1044-1056|Vcl/Controls.pas: line
3597-3606[55]
Function TControl.ScreenToClient(const |function TControl.ScreenToClient(const
var |var
P : TPoint; |Origin: TPoint;
begin |begin
P := ClientOrigin; |Origin := ClientOrigin;
Result.X := APoint.X - P.X; |Result.X := Point.X - Origin.X;
Result.Y := APoint.Y - P.Y; |Result.Y := Point.Y - Origin.Y;
end; |end;
|
{------------------------------------- |procedure TControl.SendCancelMode(Send
Function TControl.ClientToScreen(const |
-------------------------------------- |
Function TControl.ClientToScreen(const |
lazarus/lcl/include/control.inc: line 1056-1068|Vcl/Controls.pas: line
3588-3597[52]
Function TControl.ClientToScreen(const |function TControl.ClientToScreen(const
var |var
P : TPoint; |Origin: TPoint;
begin |begin
P := ClientOrigin; |Origin := ClientOrigin;
Result.X := APoint.X + P.X; |Result.X := Point.X + Origin.X;
Result.Y := APoint.Y + P.Y; |Result.Y := Point.Y + Origin.Y;
end; |end;
|
{------------------------------------- |function TControl.ScreenToClient(const
function TControl.ScreenToControl(cons |
-------------------------------------- |
function TControl.ScreenToControl(cons |
lazarus/lcl/include/control.inc: line 1068-1080|Vcl/Controls.pas: line
3597-3606[51]
function TControl.ScreenToControl(cons |function TControl.ScreenToClient(const
var |var
P : TPoint; |Origin: TPoint;
begin |begin
P := ControlOrigin; |Origin := ClientOrigin;
Result.X := APoint.X - P.X; |Result.X := Point.X - Origin.X;
Result.Y := APoint.Y - P.Y; |Result.Y := Point.Y - Origin.Y;
end; |end;
|
{------------------------------------- |procedure TControl.SendCancelMode(Send
function TControl.ControlToScreen(cons |
-------------------------------------- |
function TControl.ControlToScreen(cons |
lazarus/lcl/include/control.inc: line 1080-1092|Vcl/Controls.pas: line
3588-3597[51]
function TControl.ControlToScreen(cons |function TControl.ClientToScreen(const
var |var
P : TPoint; |Origin: TPoint;
begin |begin
P := ControlOrigin; |Origin := ClientOrigin;
Result.X := APoint.X + P.X; |Result.X := Point.X + Origin.X;
Result.Y := APoint.Y + P.Y; |Result.Y := Point.Y + Origin.Y;
end; |end;
|
{------------------------------------- |function TControl.ScreenToClient(const
TControl.DblClick |
-------------------------------------- |
procedure TControl.DblClick; |
lazarus/lcl/include/control.inc: line 617-632|Vcl/Controls.pas: line
3755-3766[48]
begin |begin
if FUndockHeight>0 then |if FUndockHeight > 0 then Result := FU
Result := FUndockHeight |else Result := Height;
else |end;
Result := Height; |
end; |function TControl.GetUndockWidth: Inte
|begin
function TControl.GetUndockWidth: Inte |if FUndockWidth > 0 then Result := FUn
begin |else Result := Width;
if FUndockWidth>0 then |end;
Result := FUndockWidth |
else |function TControl.GetTBDockHeight: Int
Result := Width; |
end; |
|
function TControl.IsAnchorsStored: boo |
lazarus/lcl/include/control.inc: line 2607-2612|Vcl/Controls.pas: line
4082-4087[47]
DC := GetDC(Parent.Handle); |DC := GetDC(Parent.Handle);
try |try
IntersectClipRect(DC, Left, Top, Left | IntersectClipRect(DC, Left, Top, Left
Parent.PaintControls(DC, Self); | Parent.PaintControls(DC, Self);
finally |finally
ReleaseDC(Parent.Handle, DC); | ReleaseDC(Parent.Handle, DC);
lazarus/lcl/include/control.inc: line 1215-1223|Vcl/Controls.pas: line
3538-3546[45]
Function TControl.GetBoundsRect: TRect |function TControl.GetBoundsRect: TRect
Begin |begin
Result.Left := FLeft; |Result.Left := Left;
Result.Top := FTop; |Result.Top := Top;
Result.Right := FLeft+FWidth; |Result.Right := Left + Width;
Result.Bottom := FTop+FHeight; |Result.Bottom := Top + Height;
end; |end;
|
function TControl.GetClientHeight: Int |procedure TControl.SetBoundsRect(const
lazarus/lcl/include/control.inc: line 1422-1437|Vcl/Controls.pas: line
3551-3559[45]
function TControl.GetClientRect: TRect |function TControl.GetClientRect: TRect
begin |begin
Result.Left := 0; |Result.Left := 0;
Result.Top := 0; |Result.Top := 0;
Result.Right := Width; |Result.Right := Width;
Result.Bottom := Height; |Result.Bottom := Height;
end; |end;
|
{------------------------------------- |function TControl.GetClientWidth: Inte
TControl GetLogicalClientRect |
|
Returns the size of complete client ar |
the visual size, but normally it is th |
have different sizes. |
-------------------------------------- |
function TControl.GetLogicalClientRect |
lazarus/lcl/include/control.inc: line 1639-1646|Vcl/Controls.pas: line
4824-4830[45]
procedure TControl.DoMouseUp(var Messa |procedure TControl.DoMouseUp(var Messa
begin |begin
if not (csNoStdEvents in ControlStyle) |if not (csNoStdEvents in ControlStyle)
then with Message do |with Message do MouseUp(Button, KeysTo
MouseUp(Button, KeysToShiftState(Keys) |end;
end; |
|procedure TControl.WMLButtonUp(var Mes
procedure TControl.SetAnchorSideIndex( |
lazarus/lcl/include/control.inc: line 2269-2280|Vcl/Controls.pas: line
3700-3708[43]
var |var
Client: TRect; |Client: TRect;
begin |begin
Client := GetClientRect; |Client := GetClientRect;
SetBounds(FLeft, FTop, |SetBounds(FLeft, FTop, Width - Client.
Width - Client.Right + Value.X, Heigh |Client.Bottom + Value.Y);
end; |end;
|
{------------------------------------- |procedure TControl.SetParent(AParent:
TControl SetClientWidth |
-------------------------------------- |
procedure TControl.SetClientWidth(Valu |
lazarus/lcl/include/control.inc: line 2478-2491|Vcl/Controls.pas: line
5085-5095[43]
function TControl.GetActionLinkClass: |function TControl.GetActionLinkClass:
begin |begin
Result := TControlActionLink; |Result := TControlActionLink;
end; |end;
|
{------------------------------------- |function TControl.IsCaptionStored: Boo
TControl IsCaptionStored |begin
-------------------------------------- |Result := (ActionLink = nil) or not Ac
Function TControl.IsCaptionStored : Bo |end;
Begin |
Result := (ActionLink = nil) or not Ac |function TControl.IsEnabledStored: Boo
end; |
|
function TControl.IsClientHeightStored |
lazarus/lcl/include/control.inc: line 2909-2922|Vcl/Controls.pas: line
4315-4325[43]
procedure TControl.DrawDragDockImage(D |procedure TControl.DrawDragDockImage(D
begin |begin
DefaultDockImage(DragDockObject, False |DefaultDockImage(DragDockObject, False
end; |end;
|
procedure TControl.EraseDragDockImage( |procedure TControl.EraseDragDockImage(
begin |begin
DefaultDockImage(DragDockObject, True) |DefaultDockImage(DragDockObject, True)
end; |end;
|
{------------------------------------- |procedure TControl.DoDragMsg(var DragM
TControl DefaultDockImage |
-------------------------------------- |
procedure TControl.DefaultDockImage(Dr |
lazarus/lcl/include/control.inc: line 3242-3256|Vcl/Controls.pas: line
3869-3879[43]
procedure TControl.SetShowHint(Value : |procedure TControl.SetShowHint(Value:
begin |begin
if FShowHint <> Value then |if FShowHint <> Value then
begin |begin
FShowHint := Value; |FShowHint := Value;
FParentShowHint := False; |FParentShowHint := False;
Perform(CM_SHOWHINTCHANGED, 0, 0); |Perform(CM_SHOWHINTCHANGED, 0, 0);
end; |end;
end; |end;
|
{------------------------------------- |procedure TControl.SetParentShowHint(V
TControl SetVisible |
|
-------------------------------------- |
procedure TControl.SetVisible(Value : |
lazarus/lcl/include/control.inc: line 2727-2732|Vcl/Controls.pas: line
2058-2063[42]
Enabled := Self.Enabled; |FDragTarget := Source.FDragTarget;
Hint := Self.Hint; |FDragHandle := Source.FDragHandle;
Caption := Self.Caption; |FDragPos := Source.FDragPos;
Visible := Self.Visible; |FDragTargetPos := Source.FDragTargetPo
OnExecute := Self.OnClick; |FMouseDeltaX := Source.FMouseDeltaX;
HelpContext := Self.HelpContext; |FMouseDeltaY := Source.FMouseDeltaY;
lazarus/lcl/include/control.inc: line 776-799|Vcl/Controls.pas: line
4488-4495[41]
procedure TControl.ConstrainedResize(v |procedure TControl.ConstrainedResize(v
MaxWidth, MaxHeight : TConstraintSize) |MaxHeight: Integer);
begin |begin
if Assigned(FOnConstrainedResize) then |if Assigned(FOnConstrainedResize) then
FOnConstrainedResize(Self, MinWidth, M |MinHeight, MaxWidth, MaxHeight);
end; |end;
|
{------------------------------------- |function TControl.CalcCursorPos: TPoin
procedure TControl.CalculatePreferredS |
PreferredHeight: integer; WithThemeSpa |
|
Calculates the default/preferred width |
by the LCL autosizing algorithms as de |
valid. Negative or 0 are treated as un |
instead. |
TWinControl overrides this and asks th |
See TWinControl.GetPreferredSize for m |
|
WithThemeSpace: If true, adds space fo |
has a minimum size. But for staking mu |
some space around. This space is theme |
the widgetset. |
-------------------------------------- |
procedure TControl.CalculatePreferredS |
lazarus/lcl/include/control.inc: line 3545-3553|Vcl/Controls.pas: line
4435-4442[41]
exit; |OldDockSite := Control.HostDockSite;
|if OldDockSite <> nil then
if OldDockSite <> nil then |OldDockSite.DockManager.SetReplacingCo
OldDockSite.DockManager.SetReplacingCo |try
try |ManualDock(OldDockSite, nil, alTop);
ManualDock(OldDockSite,nil,alTop); |finally
finally |if OldDockSite <> nil then
if OldDockSite <> nil then | OldDockSite.DockManager.SetReplacingC
OldDockSite.DockManager.SetReplacingCo |
lazarus/lcl/include/control.inc: line 115-124|Vcl/Controls.pas: line
4233-4238[38]
procedure TControl.DoEndDock(Target: T |procedure TControl.DoEndDock(Target: T
begin |begin
if Assigned(FOnEndDock) then |if Assigned(FOnEndDock) then FOnEndDoc
FOnEndDock(Self,Target,X,Y); |end;
end; |
|procedure TControl.DoStartDock(var Dra
{------------------------------------- |
procedure TControl.DoDock(NewDockSite: |
-------------------------------------- |
procedure TControl.DoDock(NewDockSite: |
lazarus/lcl/include/control.inc: line 1374-1378|Vcl/Controls.pas: line
5068-5072[38]
OnClick := NewAction.OnExecute; | Self.Caption := Caption;
if not CheckDefaults or (Self.HelpCont |if not CheckDefaults or (Self.Enabled
Self.HelpContext := HelpContext; | Self.Enabled := Enabled;
if not CheckDefaults or (Self.HelpKeyw |if not CheckDefaults or (Self.Hint = '
Self.HelpKeyword := HelpKeyword; | Self.Hint := Hint;
lazarus/lcl/include/control.inc: line 2342-2354|Vcl/Controls.pas: line
3735-3744[38]
procedure TControl.SetEnabled(Value: B |procedure TControl.SetEnabled(Value: B
begin |begin
if FEnabled <> Value |if FEnabled <> Value then
then begin |begin
FEnabled := Value; |FEnabled := Value;
Perform(CM_ENABLEDCHANGED, 0, 0); |Perform(CM_ENABLEDCHANGED, 0, 0);
end; |end;
end; |end;
|
{------------------------------------- |function TControl.GetTextLen: Integer;
TControl SetMouseCapture |
-------------------------------------- |
procedure TControl.SetMouseCapture(Val |
lazarus/lcl/include/control.inc: line 1034-1037|Vcl/Controls.pas: line
3582-3585[37]
//raise EInvalidOperation.CreateFmt(SP |raise EInvalidOperation.CreateFmt(SPar
Result := Parent.ClientOrigin; |Result := Parent.ClientOrigin;
Inc(Result.X, FLeft); |Inc(Result.X, FLeft);
Inc(Result.Y, FTop); |Inc(Result.Y, FTop);
lazarus/lcl/include/control.inc: line 2524-2533|Vcl/Controls.pas: line
3997-4006[36]
procedure TControl.InvalidateControl(C |procedure TControl.InvalidateControl(I
var |var
Rect: TRect; |Rect: TRect;
|
function BackgroundClipped: Boolean; |function BackgroundClipped: Boolean;
var |var
R: TRect; |R: TRect;
List: TFPList; |List: TList;
I: Integer; |I: Integer;
C: TControl; |C: TControl;
lazarus/lcl/include/control.inc: line 1518-1520|Vcl/Controls.pas: line
4591-4593[35]
Form := GetParentForm(Self); |Form := GetParentForm(Self);
if (Form <> nil) and (Form.Designer <> |if (Form <> nil) and (Form.Designer <>
and Form.Designer.IsDesignMsg(Self,The |Form.Designer.IsDesignMsg(Self, Messag
lazarus/lcl/include/control.inc: line 2543-2548|Vcl/Controls.pas: line
4015-4020[34]
with C do |with C do
if C.IsControlVisible and (csOpaque i | if C.Visible and (csOpaque in Control
begin | begin
IntersectRect(R, Rect, BoundsRect); | IntersectRect(R, Rect, BoundsRect);
if EqualRect(R, Rect) then Exit; | if EqualRect(R, Rect) then Exit;
end; | end;
lazarus/lcl/include/control.inc: line 321-325|Vcl/Controls.pas: line
3319-3323[33]
Include(FControlStyle, csActionClient) |Include(FControlStyle, csActionClient)
if ActionLink = nil then |if ActionLink = nil then
ActionLink := GetActionLinkClass.Creat |ActionLink := GetActionLinkClass.Creat
ActionLink.Action := Value; |ActionLink.Action := Value;
ActionLink.OnChange := @DoActionChange |ActionLink.OnChange := DoActionChange;
lazarus/lcl/include/control.inc: line 1165-1169|Vcl/Controls.pas: line
4171-4176[33]
Accept := False; |Accept := False;
if Assigned(FOnDragOver) then begin |if Assigned(FOnDragOver) then
Accept := True; |begin
FOnDragOver(Self,Source,X,Y,State,Acce |Accept := True;
end; |FOnDragOver(Self, Source, X, Y, State,
|end;
lazarus/lcl/include/control.inc: line 2563-2567|Vcl/Controls.pas: line
4029-4033[33]
then begin |begin
Rect := BoundsRect; |Rect := BoundsRect;
InvalidateRect(Parent.Handle, @Rect, n |InvalidateRect(Parent.Handle, @Rect, n
(csOpaque in Parent.ControlStyle) or B |(csOpaque in Parent.ControlStyle) or B
end; |end;
lazarus/lcl/include/control.inc: line 3405-3407|Vcl/Controls.pas: line
3484-3486[33]
if (OldHostDockSite<>nil) and (OldHost |if (FHostDockSite <> nil) and (FHostDo
OldHostDockSite.FDockClients.Remove(S |FHostDockSite.FDockClients.Remove(Self
if (NewDockSite<>nil) and (NewDockSite |if (NewDockSite <> nil) and (NewDockSi
lazarus/lcl/include/control.inc: line 152-165|Vcl/Controls.pas: line
4238-4243[32]
procedure TControl.DoStartDock(var Dra |procedure TControl.DoStartDock(var Dra
begin |begin
if Assigned(FOnStartDock) then |if Assigned(FOnStartDock) then FOnStar
FOnStartDock(Self,TDragDockObject(Drag |end;
end; |
|function TControl.DoMouseWheel(Shift:
{------------------------------------- |
function TControl.GetDockEdge(const Mo |
|
Calculate the dock side depending on c |
|
Important: MousePos is relative to thi |
-------------------------------------- |
function TControl.GetDockEdge(const Mo |
lazarus/lcl/include/control.inc: line 674-682|Vcl/Controls.pas: line
4993-4998[32]
procedure TControl.CMHITTEST(var Messa |procedure TControl.CMHitTest(var Messa
begin |begin
Message.Result := 1; |Message.Result := HTCLIENT;
end; |end;
|
{------------------------------------- |procedure TControl.CMMouseEnter(var Me
TControl.CMMouseEnter |
-------------------------------------- |
Procedure TControl.CMMouseEnter(var Me |
lazarus/lcl/include/control.inc: line 3778-3784|Vcl/Controls.pas: line
3208-3214[32]
FFont.OnChange := @FontChanged; |FConstraints.OnChange := DoConstraints
FIsControl := False; |FColor := clWindow;
FEnabled := True; |FVisible := True;
FHelpType := htContext; |FEnabled := True;
FDragCursor := crDrag; |FParentFont := True;
FFloatingDockSiteClass := TCustomDockF |FParentColor := True;
FParentBidiMode := True; |FParentShowHint := True;
lazarus/lcl/include/control.inc: line 178-184|Vcl/Controls.pas: line
5160-5163[31]
if MousePos.X<=0 then |else if MousePos.X >= R then Result :=
Result:=alLeft |else if MousePos.Y <= 0 then Result :=
else if MousePos.Y<=0 then |else if MousePos.Y >= B then Result :=
Result:=alTop |else begin
else if MousePos.X>=Width then |
Result:=alRight |
else if MousePos.Y>=Height then |
lazarus/lcl/include/control.inc: line 574-585|Vcl/Controls.pas: line
3754-3760[31]
function TControl.GetLRDockWidth: Inte |function TControl.GetUndockHeight: Int
begin |begin
if FLRDockWidth>0 then |if FUndockHeight > 0 then Result := FU
Result := FLRDockWidth |else Result := Height;
else |end;
Result := UndockWidth; |
end; |function TControl.GetUndockWidth: Inte
|
{------------------------------------- |
function TControl.IsHelpContextStored: |
-------------------------------------- |
function TControl.IsHelpContextStored: |
lazarus/lcl/include/control.inc: line 611-616|Vcl/Controls.pas: line
5090-5095[31]
function TControl.IsVisibleStored: Boo |function TControl.IsCaptionStored: Boo
begin |begin
Result := (ActionLink = nil) or not Ac |Result := (ActionLink = nil) or not Ac
end; |end;
|
function TControl.GetUndockHeight: Int |function TControl.IsEnabledStored: Boo
lazarus/lcl/include/control.inc: line 1249-1260|Vcl/Controls.pas: line
3754-3760[31]
function TControl.GetTBDockHeight: Int |function TControl.GetUndockHeight: Int
begin |begin
if FTBDockHeight>0 then |if FUndockHeight > 0 then Result := FU
Result := FTBDockHeight |else Result := Height;
else |end;
Result := UndockHeight; |
end; |function TControl.GetUndockWidth: Inte
|
{------------------------------------- |
TControl GetPopupMenu |
-------------------------------------- |
function TControl.GetPopupMenu: TPopup |
lazarus/lcl/include/control.inc: line 1383-1388|Vcl/Controls.pas: line
5080-5085[31]
procedure TControl.DoActionChange(Send |procedure TControl.DoActionChange(Send
begin |begin
if Sender = Action then ActionChange(S |if Sender = Action then ActionChange(S
end; |end;
|
function TControl.CaptureMouseButtonsI |function TControl.GetActionLinkClass:
lazarus/lcl/include/control.inc: line 2506-2511|Vcl/Controls.pas: line
5090-5095[31]
function TControl.IsEnabledStored: Boo |function TControl.IsCaptionStored: Boo
begin |begin
Result := (ActionLink = nil) or not Ac |Result := (ActionLink = nil) or not Ac
end; |end;
|
function TControl.IsFontStored: Boolea |function TControl.IsEnabledStored: Boo
lazarus/lcl/include/control.inc: line 715-718|Vcl/Controls.pas: line
5221-5223[30]
if (ActionLink <> nil) |if (ActionLink <> nil) and
and not ActionLink.DoShowHint(TCMHintS |not ActionLink.DoShowHint(TCMHintShow(
then |Message.Result := 1;
Message.Result := 1; |
lazarus/lcl/include/control.inc: line 2470-2478|Vcl/Controls.pas: line
3292-3300[30]
function TControl.GetAction: TBasicAct |function TControl.GetAction: TBasicAct
begin |begin
if ActionLink <> nil then |if ActionLink <> nil then
Result := ActionLink.Action |Result := ActionLink.Action else
else |Result := nil;
Result := nil; |end;
end; |
|
function TControl.GetActionLinkClass: |procedure TControl.SetAnchors(Value: T
lazarus/lcl/include/control.inc: line 2492-2501|Vcl/Controls.pas: line
3247-3256[30]
begin |begin
Result:=false; |Result := FEnabled;
end; |end;
|
function TControl.IsClientWidthStored: |function TControl.GetPalette: HPALETTE
begin |begin
Result:=false; |Result := 0;
end; |end;
|
function TControl.IsColorStored: Boole |function TControl.HasParent: Boolean;
lazarus/lcl/include/control.inc: line 336-343|Vcl/Controls.pas: line 347-353[29]
SizeChanged, PosChanged : boolean; |FDragPos: TPoint;
OldLeft: Integer; |FDragTargetPos: TPoint;
OldTop: Integer; |FDropped: Boolean;
OldWidth: Integer; |FMouseDeltaX: Double;
OldHeight: Integer; |FMouseDeltaY: Double;
NewBounds: TRect; |FCancelling: Boolean;
|function Capture: HWND;
function PosSizeKept: boolean; |
lazarus/lcl/include/control.inc: line 3535-3539|Vcl/Controls.pas: line
4426-4429[29]
function TControl.ReplaceDockedControl |function TControl.ReplaceDockedControl
NewDockSite: TWinControl; DropControl: |NewDockSite: TWinControl; DropControl:
): Boolean; |var
var |OldDockSite: TWinControl;
OldDockSite: TWinControl; |
lazarus/lcl/include/control.inc: line 228-231|Vcl/Controls.pas: line
2058-2061[28]
NewWidth := Control.UndockWidth; |FDragTarget := Source.FDragTarget;
NewHeight := Control.UndockHeight; |FDragHandle := Source.FDragHandle;
NewLeft := DragPos.X; |FDragPos := Source.FDragPos;
NewTop := DragPos.Y; |FDragTargetPos := Source.FDragTargetPo
lazarus/lcl/include/control.inc: line 889-892|Vcl/Controls.pas: line
2058-2061[28]
MinWidth:= Constraints.EffectiveMinWid |FDragTarget := Source.FDragTarget;
MinHeight:= Constraints.EffectiveMinHe |FDragHandle := Source.FDragHandle;
MaxWidth:= Constraints.EffectiveMaxWid |FDragPos := Source.FDragPos;
MaxHeight:= Constraints.EffectiveMaxHe |FDragTargetPos := Source.FDragTargetPo
lazarus/lcl/include/control.inc: line 2630-2632|Vcl/Controls.pas: line
7530-7531[28]
if (FLastResizeWidth<>Width) or (FLast |if (ALeft <> FLeft) or (ATop <> FTop)
or (FLastResizeClientWidth<>ClientWidt |(AWidth <> FWidth) or (AHeight <> FHei
or (FLastResizeClientHeight<>ClientHei |
lazarus/lcl/include/control.inc: line 4352-4354|Vcl/Controls.pas: line
3854-3856[28]
FParentBiDiMode:=AValue; |FParentFont := Value;
if (FParent <> nil) and not (csReading |if (FParent <> nil) and not (csReading
Perform(CM_PARENTBIDIMODECHANGED, 0, 0 |Perform(CM_PARENTFONTCHANGED, 0, 0);
lazarus/lcl/include/control.inc: line 363-369|Vcl/Controls.pas: line
3208-3213[27]
if CompareRect(@FLastChangebounds,@New |FConstraints.OnChange := DoConstraints
FLastChangebounds:=NewBounds; |FColor := clWindow;
|FVisible := True;
OldLeft:=FLeft; |FEnabled := True;
OldTop:=FTop; |FParentFont := True;
OldWidth:=FWidth; |FParentColor := True;
OldHeight:=FHeight; |
lazarus/lcl/include/control.inc: line 2516-2524|Vcl/Controls.pas: line
5090-5095[27]
function TControl.IsHintStored: Boolea |function TControl.IsCaptionStored: Boo
begin |begin
Result := (ActionLink = nil) or not Ac |Result := (ActionLink = nil) or not Ac
end; |end;
|
{------------------------------------- |function TControl.IsEnabledStored: Boo
TControl InvalidateControl |
-------------------------------------- |
procedure TControl.InvalidateControl(C |
lazarus/lcl/include/control.inc: line 2931-2939|Vcl/Controls.pas: line
4228-4233[27]
procedure TControl.DockTrackNoTarget(S |procedure TControl.DockTrackNoTarget(S
begin |begin
PositionDockRect(Source); |PositionDockRect(Source);
end; |end;
|
{------------------------------------- |procedure TControl.DoEndDock(Target: T
TControl SetLeft |
-------------------------------------- |
procedure TControl.SetLeft(Value: Inte |
lazarus/lcl/include/control.inc: line 1199-1207|Vcl/Controls.pas: line
4454-4459[26]
Function TControl.CanAutoSize(Var NewW |function TControl.CanAutoSize(var NewW
Begin |begin
Result := True; |Result := True;
end; |end;
|
{------------------------------------- |function TControl.CanResize(var NewWid
TControl Dragging |
-------------------------------------- |
Function TControl.Dragging: Boolean; |
lazarus/lcl/include/control.inc: line 470-474|Vcl/Controls.pas: line
5957-5961[25]
FLeft:= ALeft; |X := FLeft;
FTop:= ATop; |Y := FTop;
FWidth:= AWidth; |Width := FWidth;
FHeight:= AHeight; |Height := FHeight;
if Parent<>nil then Parent.InvalidateP |if Parent <> nil then
lazarus/lcl/include/control.inc: line 1159-1160|Vcl/Controls.pas: line
4168-4169[25]
Procedure TControl.DragOver(Source: TO |procedure TControl.DragOver(Source: TO
var Accept:Boolean); |State: TDragState; var Accept: Boolean
lazarus/lcl/include/control.inc: line 3294-3296|Vcl/Controls.pas: line
7659-7661[25]
procedure TControl.SetZOrder(Topmost: |procedure TWinControl.SetZOrder(TopMos
const |const
POSITION: array[Boolean] of Integer = |WindowPos: array[Boolean] of Word = (H
lazarus/lcl/include/control.inc: line 3439-3442|Vcl/Controls.pas: line
4426-4429[25]
function TControl.ManualDock(NewDockSi |function TControl.ReplaceDockedControl
ControlSide: TAlign; KeepDockSiteSize: |NewDockSite: TWinControl; DropControl:
var |var
NewBounds: TRect; |OldDockSite: TWinControl;
lazarus/lcl/include/control.inc: line 533-535|Vcl/Controls.pas: line
4573-4575[24]
NewClientWidth:=Bounds.Right-Bounds.Le |FTop := R.Top;
NewClientHeight:=Bounds.Bottom-Bounds. |FWidth := R.Right - R.Left;
NewWidth:=Result.Width-Result.ClientWi |FHeight := R.Bottom - R.Top;
lazarus/lcl/include/control.inc: line 1228-1236|Vcl/Controls.pas: line
10543-10548[24]
function TControl.GetClientWidth: Inte |function TMouse.GetCapture: HWND;
begin |begin
Result:=ClientRect.Right; |Result := Windows.GetCapture;
end; |end;
|
{------------------------------------- |function TMouse.GetCursorPos: TPoint;
TControl GetEnabled |
-------------------------------------- |
function TControl.GetEnabled: Boolean; |
lazarus/lcl/include/control.inc: line 2760-2768|Vcl/Controls.pas: line
5277-5282[24]
procedure TControl.SetConstraints(cons |procedure TControl.SetConstraints(cons
begin |begin
FConstraints.Assign(Value); |FConstraints.Assign(Value);
end; |end;
|
{------------------------------------- |function TControl.ClientToParent(const
TControl SetAlign |
-------------------------------------- |
procedure TControl.SetAlign(Value: TAl |
lazarus/lcl/include/control.inc: line 3168-3169|Vcl/Controls.pas: line
4591-4592[24]
Form:=GetParentForm(Self); |Form := GetParentForm(Self);
if (Form<>nil) and (Form.ActiveControl |if (Form <> nil) and (Form.Designer <>
