paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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, uses SysUtils, Dialogs, {CommCtrl,} VCLUtils, Math, RxAppUtils, ImgList,
ActnList ActnList, InterfaceBase
(* Consts, {$IFDEF RX_D6}, RTLConsts{$ENDIF} (* Consts, {$IFDEF RX_D6}, RTLConsts{$ENDIF}
*) *)
; ;
@ -3238,15 +3238,15 @@ begin
begin begin
AdjustColors(BevelOuter); AdjustColors(BevelOuter);
// Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth); // Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
Frame3d(Canvas.Handle, Rect, BevelWidth, BevelOuter); WidgetSet.Frame3d(Canvas.Handle, Rect, BevelWidth, BevelOuter);
end; end;
// Frame3D(Canvas, Rect, Color, Color, BorderWidth); // Frame3D(Canvas, Rect, Color, Color, BorderWidth);
Frame3d(Canvas.Handle, Rect, BorderWidth, BevelOuter); WidgetSet.Frame3d(Canvas.Handle, Rect, BorderWidth, BevelOuter);
if BevelInner <> bvNone then if BevelInner <> bvNone then
begin begin
AdjustColors(BevelInner); AdjustColors(BevelInner);
// Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth); // Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
Frame3d(Canvas.Handle, Rect, BorderWidth, BevelInner); WidgetSet.Frame3d(Canvas.Handle, Rect, BorderWidth, BevelInner);
end; end;
SaveIndex := SaveDC(Canvas.Handle); SaveIndex := SaveDC(Canvas.Handle);
try try