paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 09:57:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, debug info

Browse Source 
git-svn-id: trunk@33094 -
This commit is contained in:
jesus 2011-10-26 15:30:03 +00:00
parent cae025b734
commit 1858ce9d24
1 changed files with 113 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

159
components/lazreport/source/lr_desgn.pas
View File

@ -608,7 +608,6 @@ var
GridBitmap : TBitmap; // for drawing grid in design time GridBitmap : TBitmap; // for drawing grid in design time
ColorLocked : Boolean; // true to avoid unwished color change ColorLocked : Boolean; // true to avoid unwished color change
{----------------------------------------------------------------------------} {----------------------------------------------------------------------------}
procedure AddRgn(var HR: HRGN; T: TfrView); procedure AddRgn(var HR: HRGN; T: TfrView);
var var
@ -1036,17 +1035,16 @@ begin
Exit; Exit;
end; end;
{$IFDEF DebugLR}
DebugLnEnter('TfrDesignerPage.Draw INIT N=%d AClipRgn=%d',[N,AClipRgn]);
{$ENDIF}
if AClipRgn = 0 then if AClipRgn = 0 then
begin begin
with Canvas.ClipRect do with Canvas.ClipRect do
AClipRgn := CreateRectRgn(Left, Top, Right, Bottom); AClipRgn := CreateRectRgn(Left, Top, Right, Bottom);
end; end;
{$IFDEF DebugLR}
DebugLn('------------- Begin Draw() -------------');
{$ENDIF}
R:=CreateRectRgn(0, 0, Width, Height); R:=CreateRectRgn(0, 0, Width, Height);
for i:=Objects.Count-1 downto 0 do for i:=Objects.Count-1 downto 0 do
begin begin
@ -1087,10 +1085,6 @@ begin
SelectClipRgn(Canvas.Handle, R); SelectClipRgn(Canvas.Handle, R);
end; end;
{$IFDEF DebugLR}
DebugLn('------------- End Draw() -------------');
{$ENDIF}
CombineRgn(R, R, AClipRgn, RGN_AND); CombineRgn(R, R, AClipRgn, RGN_AND);
DrawBackground; DrawBackground;
@ -1105,6 +1099,9 @@ begin
if not Down then if not Down then
DrawPage(dmSelection); DrawPage(dmSelection);
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.Draw DONE');
{$ENDIF}
end; end;
procedure TfrDesignerPage.DrawPage(DrawMode: TfrDesignerDrawMode); procedure TfrDesignerPage.DrawPage(DrawMode: TfrDesignerDrawMode);
@ -1218,11 +1215,14 @@ var
p: TPoint; p: TPoint;
begin begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('TfrDesignerPage.MDown(X=',dbgs(x),',Y=',dbgs(y),' INIT'); DebugLnEnter('TfrDesignerPage.MDown(X=%d,Y=%d) INIT',[x,y]);
DebugLn(' Down=', dbgs(Down),' FFlag=', dbgs(RFlag)); DebugLn('Down=%s RFlag=%s',[dbgs(Down),dbgs(RFlag)]);
{$ENDIF} {$ENDIF}
if DFlag then if DFlag then
begin begin
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MDown DONE: DFlag is true (doubleclick)');
{$ENDIF}
DFlag := False; DFlag := False;
Exit; Exit;
end; end;
@ -1251,6 +1251,9 @@ begin
RightBottom := -1; RightBottom := -1;
MRFlag := False; MRFlag := False;
FirstSelected := nil; FirstSelected := nil;
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MDown DONE: Ctrl+Left o cursor=crCross');
{$ENDIF}
Exit; Exit;
end end
else if Cursor = crPencil then else if Cursor = crPencil then
@ -1274,6 +1277,9 @@ begin
FirstSelected := nil; FirstSelected := nil;
LastX := x; LastX := x;
LastY := y; LastY := y;
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MDown DONE: Left + cursor=crPencil');
{$ENDIF}
Exit; Exit;
end; end;
end; end;
@ -1330,6 +1336,9 @@ begin
begin begin
RFlag := True; RFlag := True;
OldRect := Rect(x, y, x, y); OldRect := Rect(x, y, x, y);
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MDown DONE: Deselection o no selection');
{$ENDIF}
Exit; Exit;
end; end;
end; end;
@ -1368,7 +1377,7 @@ begin
DrawPage(dmShape); DrawPage(dmShape);
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('TfrDesignerPage.MDown END'); DebugLnExit('TfrDesignerPage.MDown DONE');
{$ENDIF} {$ENDIF}
end; end;
@ -1417,18 +1426,17 @@ var
end; end;
begin begin
{$IFDEF DebugLR}
DebugLnEnter('TfrDesignerPage.MUp INIT Button=%d Cursor=%d RFlag=%s',
[ord(Button),Cursor,dbgs(RFlag)]);
{$ENDIF}
if Button <> mbLeft then if Button <> mbLeft then
begin begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('MUp "Button <> mbLeft" cursor=',IntToStr(Cursor),' RFlag=',BoolToStr(RFlag)); DebugLnExit('TfrDesignerPage.MUp DONE: Button<>mbLeft');
{$ENDIF} {$ENDIF}
Exit; Exit;
{$IFDEF DebugLR}
end
else DebugLn('MUp "Button = mbLeft" cursor=',IntToStr(Cursor),' RFlag=',BoolToStr(RFlag));
{$ELSE}
end; end;
{$ENDIF}
{$IFDEF LCLCarbon}Invalidate;{$endif} {$IFDEF LCLCarbon}Invalidate;{$endif}
Down := False; Down := False;
@ -1439,7 +1447,7 @@ begin
if Cursor = crCross then if Cursor = crCross then
begin begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('inserting a new object'); DebugLnEnter('Inserting a New Object INIT');
{$ENDIF} {$ENDIF}
Mode := mdSelect; Mode := mdSelect;
DrawFocusRect(OldRect); DrawFocusRect(OldRect);
@ -1463,8 +1471,13 @@ begin
begin begin
if GetUnusedBand <> btNone then if GetUnusedBand <> btNone then
CreateSection CreateSection
else else begin
{$IFDEF DebugLR}
DebugLnExit('Inserting a new object DONE: GetUnusedBand=btNone');
DebugLnExit('TfrDesignerPage.MUp DONE: Inserting..');
{$ENDIF}
Exit; Exit;
end;
end end
else if Tag = gtSubReport then else if Tag = gtSubReport then
CreateSubReport CreateSubReport
@ -1555,14 +1568,20 @@ begin
if EditAfterInsert then if EditAfterInsert then
ShowEditor; ShowEditor;
end; end;
{$IFDEF DebugLR}
DebugLn('Object inserted end');
{$ENDIF}
end; end;
if not ObjRepeat then if not ObjRepeat then
FDesigner.OB1.Down := True FDesigner.OB1.Down := True
else else
DrawFocusRect(OldRect); DrawFocusRect(OldRect);
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('Object inserted end'); DebugLnExit('Inserting a New Object DONE');
DebugLnExit('TfrDesignerPage.MUp DONE: Inserting ...');
{$ENDIF} {$ENDIF}
Exit; Exit;
end; end;
@ -1591,6 +1610,9 @@ begin
DrawSelection(t); DrawSelection(t);
FDesigner.SelectionChanged; FDesigner.SelectionChanged;
FDesigner.AddUndoAction(acInsert); FDesigner.AddUndoAction(acInsert);
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MUp DONE: Line Drawing');
{$ENDIF}
Exit; Exit;
end; end;
@ -1620,7 +1642,7 @@ begin
FDesigner.SelectionChanged; FDesigner.SelectionChanged;
DrawPage(dmSelection); DrawPage(dmSelection);
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('calculating which objects contains in frame (if user select it with mouse+Ctrl key)'); DebugLnExit('TfrDesignerPage.MUp DONE: objects contained in frame');
{$ENDIF} {$ENDIF}
Exit; Exit;
end; end;
@ -1641,7 +1663,7 @@ begin
GetMultipleSelected; GetMultipleSelected;
Draw(TopSelected, ClipRgn); Draw(TopSelected, ClipRgn);
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('splitting'); DebugLnExit('TfrDesignerPage.MUp DONE: Splitting');
{$ENDIF} {$ENDIF}
Exit; Exit;
end; end;
@ -1651,7 +1673,7 @@ begin
begin begin
Draw(TopSelected, ClipRgn); Draw(TopSelected, ClipRgn);
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('resizing several objects'); DebugLnExit('TfrDesignerPage.MUp DONE: resizing several objects');
{$ENDIF} {$ENDIF}
Exit; Exit;
end; end;
@ -1687,6 +1709,9 @@ begin
Moved := False; Moved := False;
CT := ctNone; CT := ctNone;
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MUp DONE');
{$ENDIF}
end; end;
procedure TfrDesignerPage.MMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure TfrDesignerPage.MMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@ -1717,7 +1742,7 @@ var
end; end;
begin begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('TfrDesignerPage.MMove(X=',dbgs(x),',Y=',dbgs(y),' INIT'); DebugLnEnter('TfrDesignerPage.MMove(X=%d,Y=%d) INIT',[x,y]);
{$ENDIF} {$ENDIF}
Moved := True; Moved := True;
w := 2; w := 2;
@ -1764,10 +1789,7 @@ begin
end; end;
{$IFDEF DebugLR} {$IFDEF DebugLR}
if mode=mdInsert then DebugLn('Mode Insert=%s Down=%s',[dbgs(Mode=mdInsert),dbgs(Down)]);
DebugLn(' Mode=mdInsert Down=', dbgs(down))
else
DebugLn(' Mode=mdSelect Down=', dbgs(down));
{$ENDIF} {$ENDIF}
if (Mode = mdInsert) and not Down then if (Mode = mdInsert) and not Down then
@ -1779,6 +1801,9 @@ begin
ShowSizes := True; ShowSizes := True;
FDesigner.UpdateStatus; FDesigner.UpdateStatus;
ShowSizes := False; ShowSizes := False;
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: Mode Insert and not Down');
{$ENDIF}
Exit; Exit;
end; end;
@ -1811,6 +1836,9 @@ begin
if Cursor = crCross then if Cursor = crCross then
FDesigner.UpdateStatus; FDesigner.UpdateStatus;
ShowSizes := False; ShowSizes := False;
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: DOWN and RFLag (sel alot of objs)');
{$ENDIF}
Exit; Exit;
end; end;
@ -1819,12 +1847,20 @@ begin
begin begin
kx := x - LastX; kx := x - LastX;
ky := y - LastY; ky := y - LastY;
if FDesigner.GridAlign and not GridCheck then Exit; if FDesigner.GridAlign and not GridCheck then begin
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: not gridcheck and gridalign');
{$ENDIF}
Exit;
end;
DrawRectLine(OldRect); DrawRectLine(OldRect);
OldRect := Rect(OldRect.Left, OldRect.Top, OldRect.Right + kx, OldRect.Bottom + ky); OldRect := Rect(OldRect.Left, OldRect.Top, OldRect.Right + kx, OldRect.Bottom + ky);
DrawRectLine(OldRect); DrawRectLine(OldRect);
Inc(LastX, kx); Inc(LastX, kx);
Inc(LastY, ky); Inc(LastY, ky);
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: Line drawing');
{$ENDIF}
Exit; Exit;
end; end;
@ -1882,7 +1918,12 @@ begin
begin begin
kx := x - LastX; kx := x - LastX;
ky := 0; ky := 0;
if FDesigner.GridAlign and not GridCheck then Exit; if FDesigner.GridAlign and not GridCheck then begin
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: Splitting not grid check');
{$ENDIF}
Exit;
end;
with SplitInfo do with SplitInfo do
begin begin
DrawHSplitter(SplRect); DrawHSplitter(SplRect);
@ -1890,6 +1931,9 @@ begin
DrawHSplitter(SplRect); DrawHSplitter(SplRect);
end; end;
Inc(LastX, kx); Inc(LastX, kx);
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: Splitting');
{$ENDIF}
Exit; Exit;
end; end;
@ -1898,7 +1942,12 @@ begin
begin begin
kx := x - LastX; kx := x - LastX;
ky := y - LastY; ky := y - LastY;
if FDesigner.GridAlign and not GridCheck then Exit; if FDesigner.GridAlign and not GridCheck then begin
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: sizing seveal, not gridcheck');
{$ENDIF}
Exit;
end;
if FDesigner.ShapeMode = smFrame then if FDesigner.ShapeMode = smFrame then
DrawPage(dmShape) DrawPage(dmShape)
@ -1943,6 +1992,9 @@ begin
Inc(LastX, kx); Inc(LastX, kx);
Inc(LastY, ky); Inc(LastY, ky);
FDesigner.UpdateStatus; FDesigner.UpdateStatus;
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: Sizing several objects');
{$ENDIF}
Exit; Exit;
end; end;
@ -1951,7 +2003,12 @@ begin
begin begin
kx := x - LastX; kx := x - LastX;
ky := y - LastY; ky := y - LastY;
if FDesigner.GridAlign and not GridCheck then Exit; if FDesigner.GridAlign and not GridCheck then begin
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: moving');
{$ENDIF}
Exit;
end;
if FirstBandMove and (SelNum = 1) and ((kx <> 0) or (ky <> 0)) and if FirstBandMove and (SelNum = 1) and ((kx <> 0) or (ky <> 0)) and
not (ssAlt in Shift) then not (ssAlt in Shift) then
begin begin
@ -1996,7 +2053,12 @@ begin
begin begin
kx := x - LastX; kx := x - LastX;
ky := y - LastY; ky := y - LastY;
if FDesigner.GridAlign and not GridCheck then Exit; if FDesigner.GridAlign and not GridCheck then begin
{$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.MMove DONE: resizing');
{$ENDIF}
Exit;
end;
t := TfrView(Objects[TopSelected]); t := TfrView(Objects[TopSelected]);
if FDesigner.ShapeMode = smFrame then if FDesigner.ShapeMode = smFrame then
@ -2095,12 +2157,15 @@ begin
Inc(LastY, ky); Inc(LastY, ky);
end; end;
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('TfrDesignerPage.MMove END'); DebugLnExit('TfrDesignerPage.MMove END');
{$ENDIF} {$ENDIF}
end; end;
procedure TfrDesignerPage.DClick(Sender: TObject); procedure TfrDesignerPage.DClick(Sender: TObject);
begin begin
{$IFDEF DebugLR}
DebugLnEnter('TfrDesignerPage.DClick INIT DFlag=%s',[dbgs(DFlag)]);
{$ENDIF}
Down := False; Down := False;
if SelNum = 0 then if SelNum = 0 then
begin begin
@ -2111,8 +2176,10 @@ begin
begin begin
DFlag := True; DFlag := True;
FDesigner.ShowEditor; FDesigner.ShowEditor;
end end;
else Exit; {$IFDEF DebugLR}
DebugLnExit('TfrDesignerPage.DClick DONE DFlag=%s',[dbgs(DFlag)]);
{$ENDIF}
end; end;
procedure TfrDesignerPage.MoveResize(Kx, Ky: Integer; UseFrames,AResize: boolean); procedure TfrDesignerPage.MoveResize(Kx, Ky: Integer; UseFrames,AResize: boolean);
@ -3606,7 +3673,7 @@ var
t: TfrView; t: TfrView;
begin begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
debugLn('TfrDesignerForm.SelectionChanged INIT, SelNum=',dbgs(SelNum)); debugLnEnter('TfrDesignerForm.SelectionChanged INIT, SelNum=%d',[SelNum]);
{$ENDIF} {$ENDIF}
Busy := True; Busy := True;
ColorSelector.Hide; ColorSelector.Hide;
@ -3619,7 +3686,7 @@ begin
with t do with t do
begin begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('selectionchanged 1'); DebugLn('Not a band');
{$ENDIF} {$ENDIF}
FrB1.Down := (frbTop in Frames); FrB1.Down := (frbTop in Frames);
FrB2.Down := (frbLeft in Frames); FrB2.Down := (frbLeft in Frames);
@ -3658,7 +3725,7 @@ begin
else if SelNum > 1 then else if SelNum > 1 then
begin begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('selectionchanged 2'); DebugLn('Multiple selection');
{$ENDIF} {$ENDIF}
BUp(FrB1); BUp(FrB1);
@ -3683,7 +3750,7 @@ begin
ShowContent; ShowContent;
ActiveControl := nil; ActiveControl := nil;
{$IFDEF DebugLR} {$IFDEF DebugLR}
debugLn('TfrDesignerForm.SelectionChanged END, SelNum=',dbgs(SelNum)); debugLnExit('TfrDesignerForm.SelectionChanged END, SelNum=%d',[SelNum]);
{$ENDIF} {$ENDIF}
end; end;
@ -5910,8 +5977,8 @@ var
i : Integer; i : Integer;
begin begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('frSetGlyph(',colortostring(acolor),',',sb.name,',',IntToStr(n),')'); DebugLn('frSetGlyph(%s,%s,%d)',[colortostring(acolor),sb.Name,n]);
DebugLn('ColorLocked=', dbgs(ColorLocked),' sb.tag=', dbgs(sb.tag)); DebugLn('ColorLocked=%s sb.tag=%s',[dbgs(ColorLocked),dbgs(sb.tag)]);
{$ENDIF} {$ENDIF}
B:=sb.Glyph; B:=sb.Glyph;
b.Width := 32; b.Width := 32;
@ -5950,7 +6017,7 @@ begin
begin begin
t := TfrView(Objects[i]); t := TfrView(Objects[i]);
{$IFDEF DebugLR} {$IFDEF DebugLR}
DebugLn('frSetGlyph: TopSelected=', t.Name); DebugLn('frSetGlyph: TopSelected=%s', [t.Name]);
{$ENDIF} {$ENDIF}
Case Sb.Tag of Case Sb.Tag of
@ -6296,7 +6363,7 @@ begin
Select(Objects); Select(Objects);
end; end;
{$IFDEF DebugLR} {$IFDEF DebugLR}
debugLn('TfrObjectInspector.CMVisibleChanged: ', BooLTOStr(Visible)); debugLn('TfrObjectInspector.CMVisibleChanged: %s', [dbgs(Visible)]);
{$ENDIF} {$ENDIF}
end; end;