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

SpkToolbar: Less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8055 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-06-23 17:47:24 +00:00
parent c1347e04e7
commit 239da83e8c
7 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/spktoolbar/SpkGUITools/SpkGUITools.pas
View File

@ -1905,7 +1905,7 @@ var
OrgRgn: HRGN;
ClipRgn: HRGN;
//ImageIcon: TIcon; // wp: no longer needed -- see below
ImageBitmap: TBitmap;
//ImageBitmap: TBitmap;
begin
// Storing original ClipRgn and applying a new one
SaveClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn);
@ -1956,7 +1956,7 @@ var
OrgRgn: HRGN;
ClipRgn: HRGN;
//ImageIcon: TIcon; // wp: no longer needed -- see below
ImageBitmap: TBitmap;
//ImageBitmap: TBitmap;
begin
// Storing original ClipRgn and applying a new one
SaveClipRgn(ACanvas.Handle, UseOrgClipRgn, OrgRgn);
@ -2508,8 +2508,8 @@ class procedure TGUITools.FillGradientRectangle(ACanvas: TCanvas;
Rect: T2DIntRect; ColorFrom: TColor; ColorTo: TColor;
GradientKind: TBackgroundKind);
var
Mesh: array of GRADIENTRECT;
GradientVertice: array of TRIVERTEX;
Mesh: array of GRADIENTRECT = nil;
GradientVertice: array of TRIVERTEX = nil;
ConcaveColor: TColor;
begin
case GradientKind of