paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:39:24 +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

18
designer/designer.pp
View File

@ -234,7 +234,7 @@ Begin
{$IFDEF VerboseDesigner}
Writeln('[TDesigner.RemoveControl] ',AComponent.Name,':',AComponent.ClassName);
{$ENDIF}
// remove all child controls
// remove all child controls owned by the form
if (AComponent is TWinControl) then begin
i:=Form.ComponentCount-1;
while (i>=0) do begin
@ -319,20 +319,20 @@ begin
OldDuringPaintControl:=FDuringPaintControl;
FDuringPaintControl:=true;
Sender.Dispatch(TheMessage);
//writeln('*** LM_PAINT B ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
if (ControlSelection.IsSelected(Sender)) then begin
// writeln('*** LM_PAINT ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
ControlSelection.DrawMarker(Sender,TheMessage.DC);
end;
//if OldDuringPaintControl=false then begin
if TheMessage.DC<>0 then begin
//writeln('*** LM_PAINT B ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
if (ControlSelection.IsSelected(Sender)) then begin
// writeln('*** LM_PAINT ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
ControlSelection.DrawMarker(Sender,TheMessage.DC);
end;
DrawNonVisualComponents(TheMessage.DC);
ControlSelection.DrawGrabbers(TheMessage.DC);
ControlSelection.DrawGuideLines(TheMessage.DC);
if ControlSelection.RubberBandActive then
ControlSelection.DrawRubberBand(TheMessage.DC);
// end;
end;
FDuringPaintControl:=OldDuringPaintControl;
end;