mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 10:39:30 +02:00
MG: fixed speedbutton in designmode
git-svn-id: trunk@1950 -
This commit is contained in:
parent
12db44ae3f
commit
57f4cd77eb
@ -234,7 +234,7 @@ Begin
|
|||||||
{$IFDEF VerboseDesigner}
|
{$IFDEF VerboseDesigner}
|
||||||
Writeln('[TDesigner.RemoveControl] ',AComponent.Name,':',AComponent.ClassName);
|
Writeln('[TDesigner.RemoveControl] ',AComponent.Name,':',AComponent.ClassName);
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
// remove all child controls
|
// remove all child controls owned by the form
|
||||||
if (AComponent is TWinControl) then begin
|
if (AComponent is TWinControl) then begin
|
||||||
i:=Form.ComponentCount-1;
|
i:=Form.ComponentCount-1;
|
||||||
while (i>=0) do begin
|
while (i>=0) do begin
|
||||||
@ -319,20 +319,20 @@ begin
|
|||||||
OldDuringPaintControl:=FDuringPaintControl;
|
OldDuringPaintControl:=FDuringPaintControl;
|
||||||
FDuringPaintControl:=true;
|
FDuringPaintControl:=true;
|
||||||
Sender.Dispatch(TheMessage);
|
Sender.Dispatch(TheMessage);
|
||||||
|
|
||||||
|
|
||||||
//writeln('*** LM_PAINT B ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
|
if TheMessage.DC<>0 then begin
|
||||||
if (ControlSelection.IsSelected(Sender)) then begin
|
//writeln('*** LM_PAINT B ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
|
||||||
// writeln('*** LM_PAINT ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
|
if (ControlSelection.IsSelected(Sender)) then begin
|
||||||
ControlSelection.DrawMarker(Sender,TheMessage.DC);
|
// writeln('*** LM_PAINT ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
|
||||||
end;
|
ControlSelection.DrawMarker(Sender,TheMessage.DC);
|
||||||
//if OldDuringPaintControl=false then begin
|
end;
|
||||||
DrawNonVisualComponents(TheMessage.DC);
|
DrawNonVisualComponents(TheMessage.DC);
|
||||||
ControlSelection.DrawGrabbers(TheMessage.DC);
|
ControlSelection.DrawGrabbers(TheMessage.DC);
|
||||||
ControlSelection.DrawGuideLines(TheMessage.DC);
|
ControlSelection.DrawGuideLines(TheMessage.DC);
|
||||||
if ControlSelection.RubberBandActive then
|
if ControlSelection.RubberBandActive then
|
||||||
ControlSelection.DrawRubberBand(TheMessage.DC);
|
ControlSelection.DrawRubberBand(TheMessage.DC);
|
||||||
// end;
|
end;
|
||||||
|
|
||||||
FDuringPaintControl:=OldDuringPaintControl;
|
FDuringPaintControl:=OldDuringPaintControl;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user