pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* HeaderCustomDrawDemo use hardcoded color to give consistency across widget sets, change encoding to UTF-8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1089 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-26 21:25:45 +00:00
parent c4aabadd57
commit ba56534b9d
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/virtualtreeview-new/trunk/demos/advanced/HeaderCustomDrawDemo.pas
View File

@ -132,7 +132,7 @@ begin
Width := PaintRectangle.Right - PaintRectangle.Left;
Height := PaintRectangle.Bottom - PaintRectangle.Top;
TargetRect := Rect(0, 0, Width, Height);
Canvas.Brush.Color := clInfoBk;
Canvas.Brush.Color := $E1FFFF;
Canvas.FillRect(TargetRect);
InflateRect(TargetRect, - 10, -10);
SourceRect := TargetRect;
@ -148,7 +148,7 @@ begin
TargetCanvas.Font.Size := 60;
if IsHoverIndex then
TargetCanvas.Font.Color := $80FF;
S := '�';
S := 'û';
Size := TargetCanvas.TextExtent(S);
SetBkMode(TargetCanvas.Handle, TRANSPARENT);
TargetCanvas.TextOut(PaintRectangle.Left + 10, Paintrectangle.Bottom - Size.cy, S);