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

4
components/spktoolbar/SpkToolbar/spkt_Pane.pas
View File

@ -632,7 +632,7 @@ type
TLayoutColumn = array of TLayoutRow;
TLayout = array of TLayoutColumn;
var
Layout: TLayout;
Layout: TLayout = nil;
CurrentColumn: integer;
CurrentRow: integer;
CurrentItem: integer;
@ -648,6 +648,8 @@ var
ItemWidth: Integer;
tmpRect: T2DIntRect;
begin
Result.Rects := Default(T2DIntRectArray);
SetLength(Result.Rects, FItems.count);
Result.Width := 0;