paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 09:09:35 +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

2
lcl/customdrawn_common.pas
View File

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