Moved the trayicon example to the examples folder. Also updated it and made verified its compatibility with Turbo Delphi Explorer.

git-svn-id: trunk@12139 -
2025-07-16 14:16:11 +02:00 · 2007-09-22 19:47:39 +00:00 · 2007-09-22 19:47:39 +00:00 · 1f11a69562
commit 1f11a69562
parent 4a83d24899
11 changed files with 495 additions and 0 deletions
--- a/.gitattributes
+++ b/.gitattributes
@ -1643,6 +1643,16 @@ examples/toolbar.lpi svneol=native#text/plain
 examples/toolbar.pp svneol=native#text/pascal
 examples/trackbar.lpi svneol=native#text/plain
 examples/trackbar.pp svneol=native#text/pascal
+examples/trayicon/createbundle.sh -text
+examples/trayicon/frmtest.dfm -text
+examples/trayicon/frmtest.lfm -text
+examples/trayicon/frmtest.lrs -text
+examples/trayicon/frmtest.pas -text
+examples/trayicon/icon.ico -text
+examples/trayicon/magnifier.res -text
+examples/trayicon/wndtray.dpr -text
+examples/trayicon/wndtray.lpi -text
+examples/trayicon/wndtray.lps -text
 examples/treeview/README.txt svneol=native#text/plain
 examples/treeview/TV_Add_Remove.dpr svneol=native#text/pascal
 examples/treeview/TV_Add_Remove.res svneol=native#unset
--- a/examples/trayicon/createbundle.sh
+++ b/examples/trayicon/createbundle.sh
@ -0,0 +1,54 @@
+#!/bin/sh
+# Force Bourne shell in case tcsh is default.
+#
+
+appname=Wndtray
+appfolder=$appname.app
+macosfolder=$appfolder/Contents/MacOS
+plistfile=$appfolder/Contents/Info.plist
+appfile=wndtray
+#
+if ! [ -e $appfile ]
+then
+  echo "$appfile does not exist"
+elif [ -e $appfolder ]
+then
+  echo "$appfolder already exists"
+else
+  echo "Creating $appfolder..."
+  mkdir $appfolder
+  mkdir $appfolder/Contents
+  mkdir $appfolder/Contents/MacOS
+  mkdir $appfolder/Contents/Resources
+#
+# Instead of copying executable into .app folder after each compile,
+# simply create a symbolic link to executable.
+  ln -s ../../../$appname $macosfolder/$appname
+# Copy the resource files to the correct place
+  cp icon.ico $appfolder/Contents/Resources
+#
+# Create PkgInfo file.
+  echo "APPL????" >$appfolder/Contents/PkgInfo
+#
+# Create information property list file (Info.plist).
+  echo '<?xml version="1.0" encoding="UTF-8"?>' >$plistfile
+  echo '<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">' >>$plistfile
+  echo '<plist version="1.0">' >>$plistfile
+  echo '<dict>' >>$plistfile
+  echo '  <key>CFBundleDevelopmentRegion</key>' >>$plistfile
+  echo '  <string>English</string>' >>$plistfile
+  echo '  <key>CFBundleExecutable</key>' >>$plistfile
+  echo '  <string>'$appname'</string>' >>$plistfile
+  echo '  <key>CFBundleInfoDictionaryVersion</key>' >>$plistfile
+  echo '  <string>6.0</string>' >>$plistfile
+  echo '  <key>CFBundlePackageType</key>' >>$plistfile
+  echo '  <string>APPL</string>' >>$plistfile
+  echo '  <key>CFBundleSignature</key>' >>$plistfile
+  echo '  <string>????</string>' >>$plistfile
+  echo '  <key>CFBundleVersion</key>' >>$plistfile
+  echo '  <string>1.0</string>' >>$plistfile
+  echo '  <key>CSResourcesFileMapped</key>' >>$plistfile
+  echo '  <true/>' >>$plistfile
+  echo '</dict>' >>$plistfile
+  echo '</plist>' >>$plistfile
+fi
--- a/examples/trayicon/frmtest.dfm
+++ b/examples/trayicon/frmtest.dfm
@ -0,0 +1,33 @@
+object Form1: TForm1
+  Caption = 'Form1'
+  ClientHeight = 300
+  ClientWidth = 400
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  Left = 290
+  Height = 300
+  Top = 175
+  Width = 400
+  object Button1: TButton
+    Caption = 'Show'
+    OnClick = Button1Click
+    TabOrder = 0
+    Left = 75
+    Height = 25
+    Top = 56
+    Width = 75
+  end
+  object Button2: TButton
+    Caption = 'Hide'
+    OnClick = Button2Click
+    TabOrder = 1
+    Left = 75
+    Height = 25
+    Top = 95
+    Width = 75
+  end
+  object SystrayIcon: TTrayIcon
+    left = 221
+    top = 145
+  end
+end
--- a/examples/trayicon/frmtest.lfm
+++ b/examples/trayicon/frmtest.lfm
@ -0,0 +1,60 @@
+object Form1: TForm1
+  Left = 290
+  Height = 300
+  Top = 175
+  Width = 400
+  HorzScrollBar.Page = 399
+  VertScrollBar.Page = 299
+  ActiveControl = Button1
+  Caption = 'Form1'
+  ClientHeight = 300
+  ClientWidth = 400
+  OnCreate = FormCreate
+  object Button1: TButton
+    Left = 56
+    Height = 33
+    Top = 56
+    Width = 94
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Show'
+    OnClick = Button1Click
+    TabOrder = 0
+  end
+  object Button2: TButton
+    Left = 56
+    Height = 33
+    Top = 112
+    Width = 94
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Hide'
+    OnClick = Button2Click
+    TabOrder = 1
+  end
+  object Button3: TButton
+    Left = 224
+    Height = 33
+    Top = 56
+    Width = 94
+    BorderSpacing.InnerBorder = 4
+    Caption = 'Paint Test'
+    OnClick = Button3Click
+    TabOrder = 2
+  end
+  object PopupMenu: TPopupMenu
+    left = 180
+    top = 260
+    object MenuItem1: TMenuItem
+      Caption = 'New Item1'
+    end
+    object MenuItem3: TMenuItem
+      Caption = 'New Item3'
+    end
+    object MenuItem2: TMenuItem
+      Caption = 'New Item2'
+    end
+  end
+  object SystrayIcon: TTrayIcon
+    left = 221
+    top = 145
+  end
+end
--- a/examples/trayicon/frmtest.lrs
+++ b/examples/trayicon/frmtest.lrs
@ -0,0 +1,19 @@
+{ This is an automatically generated lazarus resource file }
+
+LazarusResources.Add('TForm1','FORMDATA',[
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3','#1#3'Top'#3#175#0#5'Wi'
+  +'dth'#3#144#1#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBar.Page'#3'+'#1#13
+  +'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11
+  +'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#0#7'TButton'#7'Button1'#4
+  +'Left'#2'8'#6'Height'#2'!'#3'Top'#2'8'#5'Width'#2'^'#25'BorderSpacing.InnerB'
+  +'order'#2#4#7'Caption'#6#4'Show'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2
+  +#0#0#0#7'TButton'#7'Button2'#4'Left'#2'8'#6'Height'#2'!'#3'Top'#2'p'#5'Width'
+  +#2'^'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#4'Hide'#7'OnClick'#7#12
+  +'Button2Click'#8'TabOrder'#2#1#0#0#7'TButton'#7'Button3'#4'Left'#3#224#0#6'H'
+  +'eight'#2'!'#3'Top'#2'8'#5'Width'#2'^'#25'BorderSpacing.InnerBorder'#2#4#7'C'
+  +'aption'#6#10'Paint Test'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#2#0#0
+  +#10'TPopupMenu'#9'PopupMenu'#4'left'#3#180#0#3'top'#3#4#1#0#9'TMenuItem'#9'M'
+  +'enuItem1'#7'Caption'#6#9'New Item1'#0#0#9'TMenuItem'#9'MenuItem3'#7'Caption'
+  +#6#9'New Item3'#0#0#9'TMenuItem'#9'MenuItem2'#7'Caption'#6#9'New Item2'#0#0#0
+  +#9'TTrayIcon'#11'SystrayIcon'#4'left'#3#221#0#3'top'#3#145#0#0#0#0
+]);
--- a/examples/trayicon/frmtest.pas
+++ b/examples/trayicon/frmtest.pas
@ -0,0 +1,173 @@
+{
+ frmtest.dpr
+
+ *****************************************************************************
+ *                                                                           *
+ *  This demonstration program is public domain, which means no copyright,   *
+ * but also no warranty!                                                     *
+ *                                                                           *
+ *  This program is distributed in the hope that it will be useful,          *
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
+ *                                                                           *
+ *****************************************************************************
+
+ Author: Felipe Monteiro de Carvalho
+}
+unit frmtest;
+
+{$ifdef fpc}
+  {$mode delphi}{$H+}
+{$endif}
+
+interface
+
+uses
+  Classes, SysUtils,
+{$ifdef fpc}
+  LResources,
+{$endif}
+  Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls, Menus,
+  ExtCtrls;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    PopupMenu: TPopupMenu;
+    SystrayIcon: TTrayIcon;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure HandleClick(Sender: TObject);
+  private
+    { private declarations }
+    procedure DoPaint(Sender: TObject);
+  public
+    { public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+{$ifndef fpc}
+  {$R frmtest.dfm}
+{$endif}
+
+implementation
+
+{$ifdef Windows}
+uses Windows;
+{$endif}
+{$IFDEF Darwin}
+uses FPCMacOSAll;
+{$ENDIF}
+
+{ TForm1 }
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  SystrayIcon.Visible := True;
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+  SystrayIcon.Visible := False;
+end;
+
+procedure TForm1.Button3Click(Sender: TObject);
+var
+  MyImage, SecondImage: TIcon;
+begin
+  MyImage := TIcon.Create;
+  SecondImage := TIcon.Create;
+
+  MyImage.LoadFromFile('icon.ico');
+  SecondImage.Height := 22;
+  SecondImage.Width := 22;
+  {$IFDEF FPC}
+  SecondImage.Canvas.Draw(0, 0, MyImage);
+  {$ENDIF}
+  Canvas.Draw(0, 0, SecondImage);
+
+  SecondImage.Free;
+  MyImage.Free;
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+const
+  IDI_ICON1         = 101;
+  IDI_ICON2         = 115;
+  BundleResourceFolder = '/Contents/Resources/';
+var
+{$IFDEF Darwin}
+  pathRef: CFURLRef;
+  pathCFStr: CFStringRef;
+  pathStr: shortstring;
+{$ENDIF}
+  pathMedia: string;
+begin
+  pathMedia := '';
+
+  // Under Mac OS X we need to get the location of the bundle
+{$IFDEF Darwin}
+  pathRef := CFBundleCopyBundleURL(CFBundleGetMainBundle());
+  pathCFStr := CFURLCopyFileSystemPath(pathRef, kCFURLPOSIXPathStyle);
+  CFStringGetPascalString(pathCFStr, @pathStr, 255, CFStringGetSystemEncoding());
+  CFRelease(pathRef);
+  CFRelease(pathCFStr);
+  
+  pathMedia := pathStr + BundleResourceFolder;
+{$ENDIF}
+
+{$ifdef Windows}
+  SystrayIcon.Icon.Handle := LoadIcon(hInstance, MAKEINTRESOURCE(IDI_ICON1));
+
+//  Loading from a file should also work
+//  SystrayIcon.Icon.LoadFromFile('icon.ico');
+{$else}
+  SystrayIcon.Icon.LoadFromFile(pathMedia + 'icon.ico');
+{$endif}
+
+  SystrayIcon.Hint := 'my tool tip';
+
+  SystrayIcon.OnClick := HandleClick;
+  
+//  SystrayIcon.OnPaint := DoPaint;
+
+  SystrayIcon.PopUpMenu := PopupMenu;
+end;
+
+procedure TForm1.HandleClick(Sender: TObject);
+begin
+  Application.MessageBox('Text', 'Caption', 0);
+end;
+
+procedure TForm1.DoPaint(Sender: TObject);
+var
+  MyImage: TIcon;
+begin
+  MyImage := TIcon.Create;
+  MyImage.LoadFromFile('icon.ico');
+  {$IFDEF FPC}
+  SystrayIcon.Canvas.Draw(0, 0, MyImage);
+  {$ENDIF}
+  MyImage.Free;
+  WriteLn('Paint');
+end;
+
+initialization
+{$ifdef fpc}
+  {$I frmtest.lrs}
+{$endif}
+
+end.
+
--- a/examples/trayicon/icon.ico
+++ b/examples/trayicon/icon.ico
--- a/examples/trayicon/magnifier.res
+++ b/examples/trayicon/magnifier.res
--- a/examples/trayicon/wndtray.dpr
+++ b/examples/trayicon/wndtray.dpr
@ -0,0 +1,41 @@
+{
+ wndtray.dpr
+
+ *****************************************************************************
+ *                                                                           *
+ *  This demonstration program is public domain, witch means no copyright,   *
+ * but also no warranty!                                                      *
+ *                                                                           *
+ *  This program is distributed in the hope that it will be useful,          *
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
+ *                                                                           *
+ *****************************************************************************
+
+ Author: Felipe Monteiro de Carvalho
+}
+program wndtray;
+
+{$ifdef fpc}
+  {$mode objfpc}{$H+}
+{$endif}
+
+uses
+{$ifdef fpc}
+  Interfaces,
+{$endif}
+  Forms,
+  frmtest in 'frmtest.pas';
+
+{ add your units here }
+
+{$ifdef Windows}
+  {$R magnifier.res}
+{$endif}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
+
--- a/examples/trayicon/wndtray.lpi
+++ b/examples/trayicon/wndtray.lpi
@ -0,0 +1,68 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="\"/>
+    <Version Value="5"/>
+    <General>
+      <Flags>
+        <SaveClosedFiles Value="False"/>
+        <SaveOnlyProjectUnits Value="True"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <IconPath Value=".\"/>
+      <TargetFileExt Value=""/>
+    </General>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="1">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+    </RequiredPackages>
+    <Units Count="3">
+      <Unit0>
+        <Filename Value="wndtray.dpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="wndtray"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="frmtest.pas"/>
+        <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
+        <IsPartOfProject Value="True"/>
+        <ResourceFilename Value="frmtest.lrs"/>
+        <UnitName Value="frmtest"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="wscommontrayicon.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="wscommontrayicon"/>
+      </Unit2>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="5"/>
+    <PathDelim Value="\"/>
+    <CodeGeneration>
+      <Generate Value="Faster"/>
+    </CodeGeneration>
+    <Linking>
+      <Options>
+        <LinkerOptions Value="-framework Qt4Intf -framework carbon -lobjc"/>
+      </Options>
+    </Linking>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+</CONFIG>
--- a/examples/trayicon/wndtray.lps
+++ b/examples/trayicon/wndtray.lps
@ -0,0 +1,37 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectSession>
+    <PathDelim Value="\"/>
+    <Version Value="5"/>
+    <Units Count="3">
+      <Unit0>
+        <Filename Value="wndtray.dpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="wndtray"/>
+        <UsageCount Value="20"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="frmtest.pas"/>
+        <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
+        <IsPartOfProject Value="True"/>
+        <ResourceFilename Value="frmtest.lrs"/>
+        <UnitName Value="frmtest"/>
+        <CursorPos X="1" Y="138"/>
+        <TopLine Value="128"/>
+        <EditorIndex Value="0"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="wscommontrayicon.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="wscommontrayicon"/>
+        <UsageCount Value="20"/>
+      </Unit2>
+    </Units>
+    <General>
+      <ActiveEditorIndexAtStart Value="0"/>
+    </General>
+  </ProjectSession>
+</CONFIG>