MG: fixed speedbutton in designmode

git-svn-id: trunk@1950 -
This commit is contained in:
lazarus 2002-08-17 23:40:22 +00:00
parent 12db44ae3f
commit 57f4cd77eb

View File

@ -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;