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

win32 interface: use same parameter names for Frame3D as other widget sets and TWidgetSet.

Browse Source 
git-svn-id: trunk@28457 -
This commit is contained in:
vincents 2010-11-24 14:33:23 +00:00
parent b595ad6136
commit 89ae509848
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32winapi.inc
View File

@ -1483,7 +1483,7 @@ end;
Draws a 3D border in win32 native style. Draws a 3D border in win32 native style.
NOTE: This function is mapped to DrawEdge on Windows. NOTE: This function is mapped to DrawEdge on Windows.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TWin32WidgetSet.Frame3D(DC: HDC; var Rect: TRect; function TWin32WidgetSet.Frame3D(DC: HDC; var ARect: TRect;
const FrameWidth: Integer; const Style: TBevelCut): Boolean; const FrameWidth: Integer; const Style: TBevelCut): Boolean;
const const
Edge: array[TBevelCut] of Integer = Edge: array[TBevelCut] of Integer =
@ -1497,7 +1497,7 @@ var
I: Integer; I: Integer;
begin begin
for I := 0 to FrameWidth - 1 do for I := 0 to FrameWidth - 1 do
Result := Boolean(DrawEdge(DC, Rect, Edge[Style], BF_RECT or BF_ADJUST)); Result := Boolean(DrawEdge(DC, ARect, Edge[Style], BF_RECT or BF_ADJUST));
end; end;
function TWin32WidgetSet.FrameRect(DC: HDC; const ARect: TRect; function TWin32WidgetSet.FrameRect(DC: HDC; const ARect: TRect;

2
lcl/interfaces/win32/win32winapih.inc
View File

@ -87,7 +87,7 @@ function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer; overri
function FillRect(DC: HDC; Const Rect: TRect; Brush: HBRUSH): Boolean; override; function FillRect(DC: HDC; Const Rect: TRect; Brush: HBRUSH): Boolean; override;
function FloodFill(DC: HDC; X, Y: Integer; Color: TGraphicsColor; FillStyle: TGraphicsFillStyle; Brush: HBRUSH): Boolean; override; function FloodFill(DC: HDC; X, Y: Integer; Color: TGraphicsColor; FillStyle: TGraphicsFillStyle; Brush: HBRUSH): Boolean; override;
{ Draws a 3D border in GTK native style. } { Draws a 3D border in GTK native style. }
function Frame3D(DC: HDC; var Rect: TRect; Const FrameWidth: Integer; Const Style: TBevelCut): Boolean; override; function Frame3D(DC: HDC; var ARect: TRect; Const FrameWidth: Integer; Const Style: TBevelCut): Boolean; override;
function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH) : integer; override; function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH) : integer; override;
function GetActiveWindow: HWND; override; function GetActiveWindow: HWND; override;