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

implemented searching for indirect include files

Browse Source 
git-svn-id: trunk@2495 -
This commit is contained in:
mattias 2002-08-17 23:41:25 +00:00
parent fbf1a924fd
commit a71826bd06
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
designer/designer.pp
View File

@ -37,7 +37,7 @@ interface
uses uses
Classes, LCLType, LCLLinux, Forms, Controls, LMessages, GraphType, Graphics, Classes, LCLType, LCLLinux, Forms, Controls, LMessages, GraphType, Graphics,
Dialogs, ControlSelection, CustomFormEditor, UnitEditor, Menus, Dialogs, IDEProcs, ControlSelection, CustomFormEditor, UnitEditor, Menus,
{$IFDEF DisablePkgs} {$IFDEF DisablePkgs}
CompReg, CompReg,
{$ELSE} {$ELSE}
@ -143,6 +143,8 @@ type
PopupMenuComponentEditor: TBaseComponentEditor; PopupMenuComponentEditor: TBaseComponentEditor;
LastFormCursor: TCursor; LastFormCursor: TCursor;
DeletingComponents: TList; DeletingComponents: TList;
LastPaintSender: TControl;
// event handlers for designed components // event handlers for designed components
function PaintControl(Sender: TControl; TheMessage: TLMPaint):boolean; function PaintControl(Sender: TControl; TheMessage: TLMPaint):boolean;
@ -440,14 +442,13 @@ var
begin begin
Result:=true; Result:=true;
//writeln('TDesigner.PaintControl A ',Sender.Name); //writeln('*** TDesigner.PaintControl A ',Sender.Name);
//writeln('*** LM_PAINT A ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
// Set flag // Set flag
OldDuringPaintControl:=dfDuringPaintControl in FFlags; OldDuringPaintControl:=dfDuringPaintControl in FFlags;
Include(FFlags,dfDuringPaintControl); Include(FFlags,dfDuringPaintControl);
// send the Paint message to the control, so that it paints itself // send the Paint message to the control, so that it paints itself
//writeln('TDesigner.PaintControl B ',Sender.Name); //writeln('TDesigner.PaintControl B ',Sender.Name);
Sender.Dispatch(TheMessage); Sender.Dispatch(TheMessage);
//writeln('TDesigner.PaintControl C ',Sender.Name,' DC=',HexStr(Cardinal(TheMessage.DC),8)); //writeln('TDesigner.PaintControl C ',Sender.Name,' DC=',HexStr(Cardinal(TheMessage.DC),8));
@ -460,28 +461,39 @@ begin
' DC=',HexStr(DDC.DC,8), ' DC=',HexStr(DDC.DC,8),
' FormOrigin=',DDC.FormOrigin.X,',',DDC.FormOrigin.Y, ' FormOrigin=',DDC.FormOrigin.X,',',DDC.FormOrigin.Y,
' DCOrigin=',DDC.DCOrigin.X,',',DDC.DCOrigin.Y, ' DCOrigin=',DDC.DCOrigin.X,',',DDC.DCOrigin.Y,
' FormClientOrigin=',DDC.FormClientOrigin.X,',',DDC.FormClientOrigin.Y ' FormClientOrigin=',DDC.FormClientOrigin.X,',',DDC.FormClientOrigin.Y,
' Internal=',InternalPaint
); );
{$ENDIF} {$ENDIF}
if LastPaintSender=Sender then begin
writeln('NOTE: TDesigner.PaintControl E control painted twice: ',Sender.Name,':',Sender.ClassName);
//RaiseException('');
end;
LastPaintSender:=Sender;
// client grid
if (not InternalPaint) and (Sender is TWinControl) if (not InternalPaint) and (Sender is TWinControl)
and (csAcceptsControls in Sender.ControlStyle) then begin and (csAcceptsControls in Sender.ControlStyle) then begin
PaintClientGrid(TWinControl(Sender),DDC); PaintClientGrid(TWinControl(Sender),DDC);
end; end;
// marker
if (ControlSelection.SelectionForm=Form) if (ControlSelection.SelectionForm=Form)
and (ControlSelection.IsSelected(Sender)) then begin and (ControlSelection.IsSelected(Sender)) then begin
// writeln('*** LM_PAINT ',Sender.Name,':',Sender.ClassName,' DC=',HexStr(Message.DC,8));
ControlSelection.DrawMarker(Sender,DDC); ControlSelection.DrawMarker(Sender,DDC);
end; end;
// non visual component icons
DrawNonVisualComponents(DDC); DrawNonVisualComponents(DDC);
// guidelines and grabbers
if (ControlSelection.SelectionForm=Form) then begin if (ControlSelection.SelectionForm=Form) then begin
ControlSelection.DrawGuideLines(DDC); ControlSelection.DrawGuideLines(DDC);
ControlSelection.DrawGrabbers(DDC); ControlSelection.DrawGrabbers(DDC);
end; end;
// rubberband
if ControlSelection.RubberBandActive if ControlSelection.RubberBandActive
and ((ControlSelection.SelectionForm=Form) and ((ControlSelection.SelectionForm=Form)
or (ControlSelection.SelectionForm=nil)) then begin or (ControlSelection.SelectionForm=nil)) then begin
ControlSelection.DrawRubberBand(DDC); ControlSelection.DrawRubberBand(DDC);
end; end;
// clean up
DDC.Clear; DDC.Clear;
end; end;
//writeln('TDesigner.PaintControl END ',Sender.Name); //writeln('TDesigner.PaintControl END ',Sender.Name);