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

customdrawn: Fixes compilation for some fpc versions

Browse Source 
git-svn-id: trunk@33997 -
This commit is contained in:
sekelsenmat 2011-12-06 14:19:07 +00:00
parent af69ab4b0a
commit 9421caa547
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/customdrawn_common.pas
View File

@ -1123,7 +1123,7 @@ end;
procedure TCDDrawerCommon.DrawPanel(ADest: TCanvas; ASize: TSize; procedure TCDDrawerCommon.DrawPanel(ADest: TCanvas; ASize: TSize;
AState: TCDControlState; AStateEx: TCDPanelStateEx); AState: TCDControlState; AStateEx: TCDPanelStateEx);
var var
NextRectFactor: TBevelWidth = 0; NextRectFactor: Integer = 0;
//TS : TTextStyle; //TS : TTextStyle;
begin begin
// Background // Background