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

cody: lvlgraph: node captions

Browse Source 
git-svn-id: trunk@40271 -
This commit is contained in:
mattias 2013-02-11 21:39:35 +00:00
parent 4c1e8ab150
commit 183a5f998e
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/ide/codyctrls.pas
View File

@ -768,7 +768,7 @@ begin
Canvas.Brush.Color:=Color;
Canvas.FillRect(ClientRect);
TxtH:=Abs(Canvas.Font.Height);
TxtH:=Canvas.TextHeight('ABCTM');
// header
if Caption<>'' then begin
@ -776,16 +776,32 @@ begin
Canvas.TextOut((ClientWidth-w) div 2,round(0.25*TxtH),Caption);
end;
// draw edges
// draw nodes
Canvas.Brush.Style:=bsSolid;
for i:=0 to Graph.LevelCount-1 do begin
Level:=Graph.Levels[i];
for j:=0 to Level.Count-1 do begin
Node:=Level.Nodes[j];
debugln(['TCustomLvlGraphControl.Paint ',Node.Caption,' ',dbgs(FPColorToTColor(Node.Color)),' Level.DrawPosition=',Level.DrawPosition,' Node.DrawPosition=',Node.DrawPosition,' ',Node.DrawPositionEnd]);
//debugln(['TCustomLvlGraphControl.Paint ',Node.Caption,' ',dbgs(FPColorToTColor(Node.Color)),' Level.DrawPosition=',Level.DrawPosition,' Node.DrawPosition=',Node.DrawPosition,' ',Node.DrawPositionEnd]);
Canvas.Brush.Color:=FPColorToTColor(Node.Color);
Canvas.Rectangle(Level.DrawPosition,Node.DrawPosition,
Level.DrawPosition+NodeWidth,Node.DrawPositionEnd);
end;
end;
// draw captions
Canvas.Brush.Style:=bsClear;
for i:=0 to Graph.LevelCount-1 do begin
Level:=Graph.Levels[i];
for j:=0 to Level.Count-1 do begin
Node:=Level.Nodes[j];
//debugln(['TCustomLvlGraphControl.Paint ',Node.Caption,' DrawPosition=',Node.DrawPosition,' DrawSize=',Node.DrawSize,' TxtH=',TxtH]);
Canvas.TextOut(Level.DrawPosition+NodeWidth+2,
Node.DrawCenter-(TxtH div 2),Node.Caption);
end;
end;
end;
constructor TCustomLvlGraphControl.Create(AOwner: TComponent);