win32-autogui 0.2.0

data/VERSION

@@ -0,0 +1 @@
+0.2.0

data/config/cucumber.yml

@@ -0,0 +1,7 @@
+<%
+rerun = File.file?('rerun.txt') ? IO.read('rerun.txt') : ""
+rerun_opts = rerun.to_s.strip.empty? ? "--format pretty features" : "--format #{ENV['CUCUMBER_FORMAT'] || 'pretty'} #{rerun}"
+std_opts = "#{rerun_opts} --format rerun --out rerun.txt --strict --tags ~@wip"
+%>
+default: <%= std_opts %>
+wip: --tags @wip:3 --wip features

data/examples/quicknote/.gitignore

@@ -0,0 +1,8 @@
+*.ddp
+*.dsk
+*.log
+*.cfIndex
+*.cfProject
+tmp/aruba
+tags
+rerun.txt

data/examples/quicknote/FormAboutU.dfm

@@ -0,0 +1,44 @@
+object FormAbout: TFormAbout
+  Left = 503
+  Top = 355
+  BorderStyle = bsDialog
+  Caption = 'About QuickNote'
+  ClientHeight = 197
+  ClientWidth = 319
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Shell Dlg 2'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object LabelAbout: TLabel
+    Left = 16
+    Top = 16
+    Width = 259
+    Height = 26
+    Caption = 
+      'QuickNote is an example application for the RubyGem win32-autogu' +
+      'i.'
+    WordWrap = True
+  end
+  object LabelCopyright: TLabel
+    Left = 52
+    Top = 80
+    Width = 214
+    Height = 13
+    Caption = 'Copyright 2010, GearheadForHire.com, LLC.'
+  end
+  object ButtonOk: TButton
+    Left = 122
+    Top = 136
+    Width = 75
+    Height = 25
+    Caption = 'OK'
+    TabOrder = 0
+    OnClick = ButtonOkClick
+  end
+end

data/examples/quicknote/FormAboutU.pas

@@ -0,0 +1,36 @@
+unit FormAboutU;
+
+interface
+
+uses
+  Classes,
+  Controls,
+  Forms,
+  StdCtrls;
+
+type
+  TFormAbout = class(TForm)
+    LabelAbout: TLabel;
+    ButtonOk: TButton;
+    LabelCopyright: TLabel;
+    procedure ButtonOkClick(Sender: TObject);
+
+  private
+
+  public
+
+  end;
+
+var
+  FormAbout: TFormAbout;
+
+implementation
+
+{$R *.dfm}
+
+procedure TFormAbout.ButtonOkClick(Sender: TObject);
+begin
+  Close;
+end;
+
+end.

data/examples/quicknote/FormMainU.dfm

@@ -0,0 +1,110 @@
+object FormMain: TFormMain
+  Left = 848
+  Top = 217
+  Width = 248
+  Height = 366
+  Caption = 'QuickNote'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Shell Dlg 2'
+  Font.Style = []
+  Menu = MainMenu
+  OldCreateOrder = False
+  Position = poDefault
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object StatusBar: TStatusBar
+    Left = 0
+    Top = 293
+    Width = 240
+    Height = 19
+    Panels = <>
+  end
+  object Memo: TMemo
+    Left = 0
+    Top = 0
+    Width = 240
+    Height = 293
+    Align = alClient
+    ScrollBars = ssVertical
+    TabOrder = 1
+    OnChange = MemoChange
+  end
+  object ActionList: TActionList
+    Left = 194
+    Top = 244
+    object ActionFileExit: TAction
+      Caption = 'E&xit'
+      OnExecute = ActionFileExitExecute
+    end
+    object ActionHelpAbout: TAction
+      Caption = '&About'
+      OnExecute = ActionHelpAboutExecute
+    end
+    object ActionFileNew: TAction
+      Caption = '&New'
+      OnExecute = ActionFileNewExecute
+    end
+    object ActionFileSave: TAction
+      Caption = '&Save'
+      OnExecute = ActionFileSaveExecute
+      OnUpdate = ActionFileSaveUpdate
+    end
+    object ActionFileOpen: TAction
+      Caption = '&Open'
+      OnExecute = ActionFileOpenExecute
+    end
+    object ActionFileSaveAs: TAction
+      Caption = 'Save &As'
+      OnExecute = ActionFileSaveAsExecute
+    end
+  end
+  object MainMenu: TMainMenu
+    Left = 136
+    Top = 244
+    object MenuFile: TMenuItem
+      Caption = '&File'
+      object MenuFileNew: TMenuItem
+        Action = ActionFileNew
+      end
+      object MenuFileOpen: TMenuItem
+        Action = ActionFileOpen
+      end
+      object MenuFileSave: TMenuItem
+        Action = ActionFileSave
+      end
+      object MenuFileSaveAs: TMenuItem
+        Action = ActionFileSaveAs
+      end
+      object MenuFileDividerAfterSaveAs: TMenuItem
+        Caption = '-'
+      end
+      object MenuExit: TMenuItem
+        Action = ActionFileExit
+      end
+    end
+    object MenuHelp: TMenuItem
+      Caption = '&Help'
+      object MenuHelpAbout: TMenuItem
+        Action = ActionHelpAbout
+      end
+    end
+  end
+  object XPManifest: TXPManifest
+    Left = 79
+    Top = 245
+  end
+  object FileOpenDialog: TOpenDialog
+    Left = 168
+    Top = 192
+  end
+  object FileSaveDialog: TSaveDialog
+    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
+    Left = 80
+    Top = 192
+  end
+end

data/examples/quicknote/FormMainU.pas

@@ -0,0 +1,268 @@
+unit FormMainU;
+
+interface
+
+uses
+  Windows,
+  Classes,
+  Controls,
+  Forms,
+  Menus,
+  StdCtrls,
+  ActnList,
+  XPMan,
+  ComCtrls,
+  StrUtils,
+  Dialogs;
+
+type
+  TFormMain = class(TForm)
+    XPManifest: TXPManifest;
+    StatusBar: TStatusBar;
+    Memo: TMemo;
+
+    FileOpenDialog: TOpenDialog;
+    FileSaveDialog: TSaveDialog;
+
+    ActionList: TActionList;
+    ActionFileExit: TAction;
+    ActionHelpAbout: TAction;
+    ActionFileNew: TAction;
+    ActionFileSave: TAction;
+    ActionFileOpen: TAction;
+    ActionFileSaveAs: TAction;
+
+    MainMenu: TMainMenu;
+    MenuFile: TMenuItem;
+    MenuFileSaveAs: TMenuItem;
+    MenuFileNew: TMenuItem;
+    MenuFileOpen: TMenuItem;
+    MenuFileSave: TMenuItem;
+    MenuHelp: TMenuItem;
+    MenuFileDividerAfterSaveAs: TMenuItem;
+    MenuExit: TMenuItem;
+    MenuHelpAbout: TMenuItem;
+
+    procedure ActionFileExitExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure ActionHelpAboutExecute(Sender: TObject);
+    procedure MemoChange(Sender: TObject);
+    procedure ActionFileNewExecute(Sender: TObject);
+    procedure ActionFileOpenExecute(Sender: TObject);
+    procedure ActionFileSaveExecute(Sender: TObject);
+    procedure ActionFileSaveUpdate(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure ActionFileSaveAsExecute(Sender: TObject);
+
+  private
+    FDirtyFlag: Boolean;
+    FFileName: String;
+
+    function PromptAndSave: Integer;
+
+    procedure SetDirty(Value: Boolean);
+    procedure LoadTextFile(AFileName: String);
+    procedure SaveTextFile(AFileName: String);
+    procedure UpdateTitleBar;
+    procedure Reset;
+
+    property Dirty: Boolean read FDirtyFlag write SetDirty;
+    property FileName: String read FFileName write FFilename;
+
+  public
+
+  end;
+
+var
+  FormMain: TFormMain;
+
+implementation
+
+uses
+  FormAboutU,
+  FormSplashU;
+
+{$R *.dfm}
+
+procedure TFormMain.ActionFileExitExecute(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TFormMain.FormCreate(Sender: TObject);
+var
+  SplashForm: TFormSplash;
+  i: integer;
+  splash: Boolean;
+begin
+  // defaults
+  splash := true;
+
+  // parse commandline
+  if ParamCount >= 1 then
+  begin
+    for i := 1 to ParamCount do
+    begin
+      if AnsiStartsText('--NOSPLASH', ParamStr(i)) then
+      begin
+        splash := false;
+      end;
+    end;
+  end;
+
+  if splash then
+  begin
+    SplashForm := TFormSplash.Create(Application);
+    try
+      SplashForm.Show;
+      // Simulate app creation work load
+      for i:= 1 to 200 do
+      begin
+        Application.ProcessMessages;
+        Sleep(10);
+      end;
+    finally
+      // Enable a timer that will shutdown and release Splash
+      // form after a short wait
+      SplashForm.Timer.Enabled := True;
+    end;
+  end;  
+
+  Reset;
+end;
+
+procedure TFormMain.SetDirty(Value: Boolean);
+begin
+  if Value <> FDirtyFlag then
+  begin
+    FdirtyFlag := Value;
+    UpdateTitleBar;
+  end;
+end;
+
+procedure TFormMain.UpdateTitleBar;
+var
+  fileFlags: String;
+begin
+  if Dirty then
+    fileFlags := '+'
+  else
+    fileFlags := '';
+
+  FormMain.Caption := 'QuickNote' + ' - ' + fileFlags + FileName;
+end;
+
+procedure TFormMain.ActionHelpAboutExecute(Sender: TObject);
+var
+  FormAbout: TFormAbout;
+begin
+  FormAbout := TFormAbout.Create(Application);
+  try
+    FormAbout.ShowModal
+  finally
+    FormAbout.Release;
+  end;
+end;
+
+procedure TFormMain.MemoChange(Sender: TObject);
+begin
+  Dirty := True;
+end;
+
+procedure TFormMain.Reset;
+begin
+  Memo.Clear;
+  FileName := 'untitled.txt';
+  Dirty := False;
+  UpdateTitleBar;
+end;
+
+procedure TFormMain.ActionFileNewExecute(Sender: TObject);
+begin
+  if PromptAndSave <> mrCancel then
+  begin
+    Reset;
+  end;
+end;
+
+procedure TFormMain.ActionFileSaveAsExecute(Sender: TObject);
+begin
+  FileSaveDialog.Title := 'Text File Save';
+  FileSaveDialog.Filter := 'Text Files (*.txt)|*.txt|All files (*.*)|*.*';
+
+  if FileSaveDialog.Execute then
+  begin
+    SaveTextFile(FileSaveDialog.FileName);
+  end;
+end;
+
+procedure TFormMain.ActionFileOpenExecute(Sender: TObject);
+begin
+  FileOpenDialog.Title := 'Text File Open';
+  FileOpenDialog.Filter := 'Text Files (*.txt)|*.txt|All files (*.*)|*.*';
+  FileOpenDialog.DefaultExt := '';
+  FileOpenDialog.FileName := '';
+  FileOpenDialog.Files.Clear;
+
+  if PromptAndSave = mrCancel then exit;
+
+  if FileOpenDialog.Execute then
+  begin
+    LoadTextFile(FileOpenDialog.FileName);
+  end;
+end;
+
+procedure TFormMain.ActionFileSaveExecute(Sender: TObject);
+begin
+  SaveTextFile(FileName);
+end;
+
+procedure TFormMain.LoadTextFile(AFileName: String);
+begin
+  FileName := AFileName;
+  Memo.Lines.LoadFromFile(FileName);
+  Dirty := False;
+  UpdateTitleBar;
+end;
+
+procedure TFormMain.SaveTextFile(AFileName: String);
+begin
+  FileName := AFileName;
+  Memo.Lines.SaveToFile(FileName);
+  Dirty := False;
+  UpdateTitleBar;
+end;
+
+function TFormMain.PromptAndSave: Integer;
+var
+  Msg: String;
+begin
+  // Default
+  Result := mrYes;
+
+  if Dirty then
+  begin
+    Msg := 'Text has changed. Save changes to ' + FileName +'?';
+    Result := MessageDlg(msg, mtConfirmation, mbYesNoCancel, 0);
+    if Result = mrYes then
+    begin
+      ActionFileSaveExecute(self);
+    end;
+  end;
+end;
+
+procedure TFormMain.ActionFileSaveUpdate(Sender: TObject);
+begin
+  TAction(Sender).Enabled := Dirty;
+end;
+
+procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+  // Prompt user to save changes
+  if PromptAndSave = mrCancel then
+  begin
+    CanClose := False;
+  end;
+end;
+
+end.