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

Fix draw text background in rxdbgrid if themes enabled. Thx for Boris from freepascal.ru

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1465 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2011-01-27 20:31:51 +00:00
parent 412922cb29
commit 233dbee19f
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/rx/rxdbgrid.pas
View File

@ -938,6 +938,7 @@ begin
if DrawRect.Top < ARect.Top + 1 then if DrawRect.Top < ARect.Top + 1 then
DrawRect.Top := ARect.Top + 1; DrawRect.Top := ARect.Top + 1;
SetBkMode(ACanvas.Handle, TRANSPARENT);
DrawText(ACanvas.Handle, PChar(Text), Length(Text), DrawRect, DrawText(ACanvas.Handle, PChar(Text), Length(Text), DrawRect,
// DT_VCENTER or DT_WORDBREAK or DT_CENTER // DT_VCENTER or DT_WORDBREAK or DT_CENTER
ALIGN_FLAGS_HEADER[Alignment] {or DT_VCENTER or DT_END_ELLIPSIS }or DT_WORDBREAK ALIGN_FLAGS_HEADER[Alignment] {or DT_VCENTER or DT_END_ELLIPSIS }or DT_WORDBREAK