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

fix work with last lazarus from svn

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1580 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2011-04-18 18:43:46 +00:00
parent 8c1017c19f
commit 35618bdc75
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/rxctrls.pas
View File

@ -801,7 +801,7 @@ implementation
uses SysUtils, Dialogs, {CommCtrl,} VCLUtils, Math, RxAppUtils, ImgList,
ActnList
ActnList, InterfaceBase
(* Consts, {$IFDEF RX_D6}, RTLConsts{$ENDIF}
*)
;
@ -3238,15 +3238,15 @@ begin
begin
AdjustColors(BevelOuter);
// Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
Frame3d(Canvas.Handle, Rect, BevelWidth, BevelOuter);
WidgetSet.Frame3d(Canvas.Handle, Rect, BevelWidth, BevelOuter);
end;
// Frame3D(Canvas, Rect, Color, Color, BorderWidth);
Frame3d(Canvas.Handle, Rect, BorderWidth, BevelOuter);
WidgetSet.Frame3d(Canvas.Handle, Rect, BorderWidth, BevelOuter);
if BevelInner <> bvNone then
begin
AdjustColors(BevelInner);
// Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
Frame3d(Canvas.Handle, Rect, BorderWidth, BevelInner);
WidgetSet.Frame3d(Canvas.Handle, Rect, BorderWidth, BevelInner);
end;
SaveIndex := SaveDC(Canvas.Handle);
try