spktoolbar: Add unit2 missing from actions demo.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5822 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/spktoolbar/demos/actions/unit2.lfm

@@ -0,0 +1,63 @@
+object AboutForm: TAboutForm
+  Left = 419
+  Height = 185
+  Top = 225
+  Width = 320
+  Caption = 'About...'
+  ClientHeight = 185
+  ClientWidth = 320
+  Position = poMainFormCenter
+  LCLVersion = '1.7'
+  object Label1: TLabel
+    Left = 0
+    Height = 30
+    Top = 24
+    Width = 320
+    Align = alTop
+    Alignment = taCenter
+    BorderSpacing.Top = 24
+    Caption = 'SpkToolbar Demo'
+    Font.Height = -21
+    Font.Style = [fsBold]
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 0
+    Height = 15
+    Top = 70
+    Width = 320
+    Align = alTop
+    Alignment = taCenter
+    BorderSpacing.Top = 16
+    Caption = 'Icons kindly provided by'
+    ParentColor = False
+  end
+  object Label3: TLabel
+    Left = 0
+    Height = 15
+    Top = 89
+    Width = 320
+    Align = alTop
+    Alignment = taCenter
+    BorderSpacing.Top = 4
+    Caption = 'http://www.fatcow.com/free-icons'
+    Font.Color = clBlue
+    ParentColor = False
+    ParentFont = False
+    OnClick = Label3Click
+    OnMouseEnter = Label3MouseEnter
+    OnMouseLeave = Label3MouseLeave
+  end
+  object BtnClose: TButton
+    Left = 128
+    Height = 25
+    Top = 136
+    Width = 75
+    Cancel = True
+    Caption = 'Close'
+    Default = True
+    ModalResult = 11
+    TabOrder = 0
+  end
+end

components/spktoolbar/demos/actions/unit2.pas

@@ -0,0 +1,56 @@
+unit Unit2;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+
+type
+
+  { TAboutForm }
+
+  TAboutForm = class(TForm)
+    BtnClose: TButton;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    procedure Label3Click(Sender: TObject);
+    procedure Label3MouseEnter(Sender: TObject);
+    procedure Label3MouseLeave(Sender: TObject);
+  private
+
+  public
+
+  end;
+
+var
+  AboutForm: TAboutForm;
+
+implementation
+
+{$R *.lfm}
+
+uses
+  LCLIntf;
+
+{ TAboutForm }
+
+procedure TAboutForm.Label3Click(Sender: TObject);
+begin
+  OpenURL(TLabel(Sender).Caption);
+end;
+
+procedure TAboutForm.Label3MouseEnter(Sender: TObject);
+begin
+  Label3.Font.Style := [fsUnderline];
+end;
+
+procedure TAboutForm.Label3MouseLeave(Sender: TObject);
+begin
+  Label3.Font.Style := [];
+end;
+
+end.
+