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

MG: fixed speedbutton in designmode

Browse Source 
git-svn-id: trunk@1950 -
This commit is contained in:
lazarus 2002-08-17 23:40:22 +00:00
parent 12db44ae3f
commit 57f4cd77eb
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/designer.pp
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
@ -320,19 +320,19 @@ begin
FDuringPaintControl:=true; FDuringPaintControl:=true;
Sender.Dispatch(TheMessage); Sender.Dispatch(TheMessage);
if TheMessage.DC<>0 then begin
//writeln('*** LM_PAINT B ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8)); //writeln('*** LM_PAINT B ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
if (ControlSelection.IsSelected(Sender)) then begin if (ControlSelection.IsSelected(Sender)) then begin
// writeln('*** LM_PAINT ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8)); // writeln('*** LM_PAINT ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
ControlSelection.DrawMarker(Sender,TheMessage.DC); ControlSelection.DrawMarker(Sender,TheMessage.DC);
end; end;
//if OldDuringPaintControl=false then begin
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;