win32-autogui 0.2.0

data/examples/quicknote/FormSplashU.dfm

@@ -0,0 +1,32 @@
+object FormSplash: TFormSplash
+  Left = 584
+  Top = 496
+  Width = 261
+  Height = 181
+  Caption = 'FormSplash'
+  Color = clGrayText
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Shell Dlg 2'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object LabelLoading: TLabel
+    Left = 102
+    Top = 67
+    Width = 49
+    Height = 13
+    Caption = 'Loading...'
+  end
+  object Timer: TTimer
+    Enabled = False
+    Interval = 750
+    OnTimer = TimerTimer
+    Left = 184
+    Top = 32
+  end
+end

data/examples/quicknote/FormSplashU.pas

@@ -0,0 +1,52 @@
+unit FormSplashU;
+
+interface
+
+uses
+  Classes,
+  Controls,
+  Forms,
+  StdCtrls,
+  ExtCtrls;
+
+type
+  TFormSplash = class(TForm)
+    Timer: TTimer;
+    LabelLoading: TLabel;
+
+    procedure FormCreate(Sender: TObject);
+    procedure TimerTimer(Sender: TObject);
+
+  private
+
+  public
+
+  end;
+
+var
+  FormSplash: TFormSplash;
+
+implementation
+
+{$R *.dfm}
+
+procedure TFormSplash.FormCreate(Sender: TObject);
+begin
+  BorderIcons := [];
+  BorderStyle := bsNone;
+  BorderWidth := 1;
+  FormStyle := fsStayOnTop;
+
+  Position := poOwnerFormCenter;
+
+  Timer.Enabled := False;
+  Timer.Interval := 750;
+end;
+
+procedure TFormSplash.TimerTimer(Sender: TObject);
+begin
+  Close;
+  Release;
+end;
+
+end.

data/examples/quicknote/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2010 GearheadForHire, LLC
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/examples/quicknote/README.markdown

@@ -0,0 +1,28 @@
+QuickNote README
+================
+
+QuickNote is a stripped down Notepad clone written in Delphi.  It is an example GUI executable with 
+source code for the Win32-autogui gem.  It is not fit for any other purpose.
+
+
+Modifications to the load paths for use in a real world project
+----------------------------------------------------------------
+
+spec/spec_helper.rb
+
+    # use development version of win32/autogui
+    # remove these lines in production code
+    $LOAD_PATH.unshift File.expand_path('../../../../lib', __FILE__) unless
+      $LOAD_PATH.include? File.expand_path('../../../../lib', __FILE__)
+
+lib/quicknote.rb
+
+    # use the development version of win32-autogui
+    # Production code should simply require 'win32/autogui'
+    require File.expand_path(File.dirname(__FILE__) + '/../../../lib/win32/autogui')
+
+
+Copyright
+---------
+
+Copyright (c) 2010 GearheadForHire, LLC. See [LICENSE](LICENSE) for details.

data/examples/quicknote/Rakefile

@@ -0,0 +1,12 @@
+# encoding: utf-8
+
+require 'rubygems'
+
+require 'spec'
+require 'spec/rake/spectask'
+Spec::Rake::SpecTask.new(:spec) do |spec|
+  spec.libs << 'lib' << 'spec'
+  spec.spec_files = FileList['spec/**/*_spec.rb']
+end
+
+task :default => :spec

data/examples/quicknote/TODO.markdown

@@ -0,0 +1,15 @@
+QuickNote TODO
+==============
+
+general
+-------
+
+* (1.1) get rid off all dfm's by using dynamic component creation
+* (1.1) make sure app compiles with FPC
+* (1.1) add makefile
+
+
+testing
+-------
+
+* (1.1) investigate TSynTest for unit testing

data/examples/quicknote/dcu/.gitignore

@@ -0,0 +1 @@
+*.dcu

data/examples/quicknote/lib/quicknote.rb

@@ -0,0 +1,140 @@
+# use the development version of win32-autogui
+# Production code should simply require 'win32/autogui'
+require File.expand_path(File.dirname(__FILE__) + '/../../../lib/win32/autogui')
+
+
+class Quicknote < Autogui::Application
+
+  def initialize(options = {})
+    # relative path to app using Windows style path
+    @name ="exe\\quicknote.exe"  
+    defaults = {
+                 :title=> "QuickNote -", 
+                 :parameters => '--nosplash', 
+                 :main_window_timeout => 20
+               }
+    super defaults.merge(options)
+  end
+
+  def edit_window
+    main_window.children.find {|w| w.window_class == 'TMemo'}
+  end
+
+  def status_bar
+    main_window.children.find {|w| w.window_class == 'TStatusBar'}
+  end
+
+  def dialog_about
+    Autogui::EnumerateDesktopWindows.new.find do |w| 
+      w.title.match(/About QuickNote/) && (w.pid == pid)
+    end
+  end
+
+  def splash
+    Autogui::EnumerateDesktopWindows.new.find do |w| 
+      w.title.match(/FormSplash/) && (w.pid == pid)
+    end
+  end
+
+  def message_dialog_confirm
+    Autogui::EnumerateDesktopWindows.new.find do |w| 
+      w.title.match(/Confirm/) && (w.pid == pid)
+    end
+  end
+
+  # Title and class are the same as dialog_overwrite_confirm
+  # Use child windows to differentiate
+  def dialog_overwrite_confirm
+    Autogui::EnumerateDesktopWindows.new.find do |w| 
+      w.title.match(/^Text File Save$/) && 
+        (w.pid == pid) && 
+        (w.window_class == "#32770") &&
+        (w.combined_text.match(/already exists/))
+    end
+  end
+
+  # Title and class are the same as dialog_overwrite_confirm
+  def file_save_as_dialog
+    Autogui::EnumerateDesktopWindows.new.find do |w| 
+      w.title.match(/Text File Save/) && 
+        (w.pid == pid) &&
+        (w.window_class == "#32770") &&
+        (w.combined_text.match(/Save \&in:/))
+    end
+  end
+
+  def file_open_dialog
+    Autogui::EnumerateDesktopWindows.new.find do |w| 
+      w.title.match(/Text File Open/) && (w.pid == pid)
+    end
+  end
+
+  def error_dialog
+    Autogui::EnumerateDesktopWindows.new.find do |w| 
+      w.title.match(/^QuickNote$/) && (w.pid == pid) && (w.window_class == "#32770")
+    end
+  end
+
+  # menu action File, New
+  def file_new(options={})
+    set_focus
+    keystroke(VK_MENU, VK_F, VK_N) 
+    if message_dialog_confirm 
+      options[:save] == true ? keystroke(VK_Y) : keystroke(VK_N)
+    end
+    # sanity check
+    raise "confirm dialog is still here" if message_dialog_confirm 
+  end
+  
+  # menu action File, New
+  def file_open(filename, options={})
+    set_focus
+    keystroke(VK_MENU, VK_F, VK_O) 
+    if message_dialog_confirm 
+      options[:save] == true ? keystroke(VK_Y) : keystroke(VK_N)
+    end
+
+    raise "sanity check, confirm dialog is still here" if message_dialog_confirm 
+    raise "sanity check, file_open_dialog not found" unless file_open_dialog
+
+    # Paste in filename for speed, much faster than 'type_in(filename)'
+    clipboard.text = filename
+    keystroke(VK_CONTROL, VK_V)
+
+    keystroke(VK_RETURN)
+  end
+
+  # menu action File, Exit
+  def file_exit
+    set_focus
+    keystroke(VK_N) if message_dialog_confirm 
+    keystroke(VK_ESCAPE) if file_open_dialog
+    keystroke(VK_MENU, VK_F, VK_X) 
+    keystroke(VK_N) if message_dialog_confirm 
+  end
+  
+  # menu action File, Save
+  def file_save
+    set_focus
+    keystroke(VK_MENU, VK_F, VK_S) 
+  end
+ 
+  # menu action File, Save As
+  def file_save_as(filename, options={})
+    set_focus
+    keystroke(VK_MENU, VK_F, VK_A) 
+    raise "sanity check, file_save_as_dialog not found" unless file_save_as_dialog
+
+    # Paste in filename for speed, much faster than 'type_in(filename)'
+    clipboard.text = filename
+    keystroke(VK_CONTROL, VK_V)
+    keystroke(VK_RETURN)
+
+    if dialog_overwrite_confirm 
+      options[:overwrite] == true ? keystroke(VK_Y) : keystroke(VK_N)
+    end
+    raise "sanity check, overwrite confirm dialog is still here" if dialog_overwrite_confirm 
+
+  end
+
+end

data/examples/quicknote/quicknote.cfg

@@ -0,0 +1,37 @@
+-$A8
+-$B-
+-$C-
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"exe"
+-N"dcu"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"

data/examples/quicknote/quicknote.dof

@@ -0,0 +1,158 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=0
+D=0
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=0
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=0
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=1
+UnsafeCode=1
+UnsafeCast=1
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=exe
+UnitOutputDir=dcu
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;VirtualTreesD7;VirtualShellToolsD7;tb2k_d7;Tee77;TeeUI77;TeeDB77;TeePro77;TeeGL77;TeeImage77;TeeLanguage77;Rz30Ctls70;Rz30DBCtls70;cxLibraryVCLD7;dxThemeD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxPageControlVCLD7;cxGridVCLD7;rbRCL97;rbDAD97;rbDB97;cxExportVCLD7;GroupMaint;ConadExtraControls;caGrid
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=--nosplash
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=1
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.1
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+C:\Dat\CAI\ConAd\Source\exe\ChartRoutines.bpl=TeeChart Pro 5 Components
+c:\program files\borland\delphi7\Projects\Bpl\hookkeyD6.bpl=(untitled)
+C:\Program Files\Borland\Delphi7\Projects\Bpl\FR7.bpl=FastReport 2.52 Components
+C:\Dat\Delphi\DevExpress\ExpressQuantumGrid 4\Lib\Delphi7\dclcxGridUtilsVCLD7.bpl=ExpressQuantumGrid 4 Utils (VCL Edition) by Developer Express Inc.
+c:\dat\delphi\RBuilder\Lib\dclRBC97.bpl=ReportBuilder TeeChart 7.0 Components
+c:\program files\borland\delphi7\Projects\Bpl\rbIBE97.bpl=ReportBuilder Data Access for Interbase Express
+[HistoryLists\hlConditionals]
+Count=1
+Item0=d
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=1
+Item0=;C:\Dat\delphi\TeeChartPro.D7\Sources\Compiled\Delphi7\Lib
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=dcu
+[HistoryLists\hlOutputDirectorry]
+Count=1
+Item0=exe