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

jvcllaz: Add example WinXPBarDemo from Delphi version

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5398 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-30 17:12:54 +00:00
parent 1a983b8ada
commit 35b5dac68e
10 changed files with 2265 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/jvcllaz/run/JvXPBar.pas
View File

@ -844,6 +844,7 @@ begin
//{$ELSE}
DrawText(ACanvas.Handle, PAnsiChar(ItemCaption), Length(ItemCaption), Rect,
DT_SINGLELINE or DT_VCENTER or DT_END_ELLIPSIS);
SetBkMode(ACanvas.Handle, OPAQUE);
end;
end;