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@6174 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-05 12:05:26 +00:00
parent e6b9f9169d
commit fdee2dddbe
13 changed files with 101 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/spktoolbar/designtime/spkte_AppearanceEditor.pas
View File

@ -291,13 +291,13 @@ type
FScreenshotForm: TForm;
function PickColor(APanel: TPanel): Boolean;
procedure ScreenshotKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
procedure ScreenshotMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer);
var Key: Word; {%H-}Shift: TShiftState);
procedure ScreenshotMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; X, Y: integer);
procedure ScreenshotMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: integer);
procedure ScreenshotMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer);
{%H-}Shift: TShiftState; X, Y: integer);
procedure ScreenshotMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: integer);
private
procedure UpdateImages;
@ -321,7 +321,7 @@ implementation
{$R *.lfm}
uses
Types, clipbrd, Spkt_Const;
Types, clipbrd;
var
CurrPageIndex: Integer = 0;
@ -1411,7 +1411,7 @@ end;
procedure TfrmAppearanceEditWindow.UpdateSizes;
var
w, h, dist: Integer;
w, h: Integer;
procedure AddToHeight(var AHeight: Integer; AControl: TControl);
begin

8
components/spktoolbar/designtime/spkte_EditWindow.pas
View File

@ -5,8 +5,8 @@ unit spkte_EditWindow;
interface
uses
LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, {DesignIntf, DesignEditors,} StdCtrls, ImgList, ComCtrls, ToolWin,
LCLIntf, LCLType, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, {DesignIntf, DesignEditors,} StdCtrls, ImgList, ComCtrls,
ActnList, Menus, ComponentEditors, PropEdits,
SpkToolbar, spkt_Tab, spkt_Pane, spkt_BaseItem, spkt_Buttons, spkt_Types, spkt_Checkboxes;
@ -85,7 +85,7 @@ type
procedure tvStructureDeletion(Sender:TObject; Node:TTreeNode);
procedure tvStructureEdited(Sender: TObject; Node: TTreeNode; var S: string);
procedure tvStructureKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{%H-}Shift: TShiftState);
procedure FormActivate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
@ -1002,8 +1002,6 @@ end;
procedure TfrmEditWindow.tvStructureDeletion(Sender:TObject; Node:TTreeNode);
var
RunNode: TTreeNode;
index: Integer;
comp: TSpkComponent;
begin
if Node = nil then
exit;