[tuxdroid-svn] r4701 - in software_suite_v3/software/tool/tux_droid_browser/windows/trunk: . tux_droid_browser

[jerome <c2m...@c2...>]

Author: jerome
Date: 2009-05-29 12:26:44 +0200 (Fri, 29 May 2009)
New Revision: 4701

Added:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.cfg
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dof
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dpr
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.res
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dcu
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
Log:
* Added first shot of web browser ( without server part ).

Added: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.cfg
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.cfg	                        (rev 0)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.cfg	2009-05-29 10:26:44 UTC (rev 4701)
@@ -0,0 +1,35 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi6\Projects\Bpl"
+-LN"c:\program files\borland\delphi6\Projects\Bpl"

Added: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dof
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dof	                        (rev 0)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dof	2009-05-29 10:26:44 UTC (rev 4701)
@@ -0,0 +1,83 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+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=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=

Added: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dpr
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dpr	                        (rev 0)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dpr	2009-05-29 10:26:44 UTC (rev 4701)
@@ -0,0 +1,14 @@
+program Project2;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.ShowMainForm:=False;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

Added: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.res
===================================================================
(Binary files differ)


Property changes on: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.res
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Added: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dcu
===================================================================
(Binary files differ)


Property changes on: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dcu
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Added: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	                        (rev 0)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-05-29 10:26:44 UTC (rev 4701)
@@ -0,0 +1,64 @@
+object Form1: TForm1
+  Left = 291
+  Top = 127
+  Width = 963
+  Height = 634
+  Caption = 'Tux Droid Browser'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object EmbeddedWB1: TEmbeddedWB
+    Left = 0
+    Top = 0
+    Width = 955
+    Height = 600
+    Align = alClient
+    TabOrder = 0
+    DisableCtrlShortcuts = 'N'
+    UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
+    DisabledPopupMenus = [rcmAll]
+    About = ' EmbeddedWB http://bsalsa.com/'
+    DisabledPopupMenuItems = [rcsOpenNWindow, rcsOpenLink]
+    PrintOptions.HTMLHeader.Strings = (
+      '<HTML></HTML>')
+    PrintOptions.Orientation = poPortrait
+    ControlData = {
+      4C0000009D530000553200000000000000000000000000000000000000000000
+      000000004C000000000000000000000001000000E0D057007335CF11AE690800
+      2B2E126208000000000000004C0000000114020000000000C000000000000046
+      8000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000100000000000000000000000000000000000000}
+  end
+  object PopupMenu1: TPopupMenu
+    OnPopup = PopupMenu1Popup
+    Left = 112
+    Top = 168
+    object ShowHide1: TMenuItem
+      Caption = 'Show/Hide'
+      OnClick = ShowHide1Click
+    end
+    object Mute1: TMenuItem
+      Caption = 'Mute'
+      OnClick = Mute1Click
+    end
+    object Help1: TMenuItem
+      Caption = 'Help'
+      OnClick = Help1Click
+    end
+    object N1: TMenuItem
+      Caption = '-'
+    end
+    object Quit1: TMenuItem
+      Caption = 'Quit'
+      OnClick = Quit1Click
+    end
+  end
+end

Added: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	                        (rev 0)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-05-29 10:26:44 UTC (rev 4701)
@@ -0,0 +1,215 @@
+{* This file is part of "Tux Droid Browser".
+ *    Copyright 2009, kysoh
+ *    Author : Conan Jerome.
+ *    eMail  : jer...@ky...
+ *    Site   : http://www.kysoh.com/
+ *
+ * "Tux Droid Browser" is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License as
+ * published by the Free Software Foundation; either version 2.1 of
+ * the License, or (at your option) any later version.
+ *
+ * "Tux Droid Browser" 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. See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public
+ * License along with "Tux Droid Browser"; if not, write to the Free
+ * Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+ * 02110-1301 USA, or see the FSF site: http://www.fsf.org.
+ *}
+
+
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, ShellAPI, Menus, Registry;
+
+const wm_AppelMessage = wm_user + 1;
+
+type
+  TForm1 = class(TForm)
+    EmbeddedWB1: TEmbeddedWB;
+    PopupMenu1: TPopupMenu;
+    ShowHide1: TMenuItem;
+    Mute1: TMenuItem;
+    Help1: TMenuItem;
+    N1: TMenuItem;
+    Quit1: TMenuItem;
+
+    procedure FormCreate(Sender: TObject);
+    procedure PopupMenu1Popup(Sender: TObject);
+    procedure ShowHide1Click(Sender: TObject);
+    procedure Quit1Click(Sender: TObject);
+    procedure Help1Click(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure Mute1Click(Sender: TObject);
+
+  private
+    { Darations priv }
+    procedure WMAppelMessage(var msg : TMessage); message wm_AppelMessage;
+    function OpenUrl(const url : String) : boolean;
+
+  public
+    { Darations publiques }
+  end;
+
+var
+  Form1 : TForm1;
+  Tray  : TNotifyIconData;
+
+
+implementation
+
+{$R *.dfm}
+
+{###############################################}
+{####### Form1 properties and events      ######}
+{###############################################}
+
+
+//Form initialization.
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+
+  //Tray icon initialization.
+  Tray.cbSize := SizeOf(Tray);
+  Tray.wnd := Handle;
+  Tray.uID := 1;
+  Tray.UCallbackMessage := wm_AppelMessage;
+
+  //Set icon and text.
+  Tray.hIcon := Application.Icon.handle;
+  Tray.szTip := 'Show/Hide Tux Droid Browser';
+  Tray.uFlags := nif_message or nif_icon or nif_tip;
+
+  //Adding tray icon to the system tray.
+  Shell_NotifyIcon(Nim_ADD,@Tray);
+
+  //Embedded browser initialization.
+  EmbeddedWB1.Go('http://127.0.0.1:270/devel/');
+end;
+
+
+//Avoiding close action.
+procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+  CanClose := False;
+  Form1.Hide;
+end;
+
+
+{###############################################}
+{####### Tray icon properties and events  ######}
+{###############################################}
+
+//Actions to do when popup menu is showed.
+procedure TForm1.PopupMenu1Popup(Sender: TObject);
+begin
+  if Form1.Visible then
+    ShowHide1.Caption := 'Hide'
+  else
+    ShowHide1.Caption := 'Show';
+end;
+
+
+//Tray menu show/hide click.
+procedure TForm1.ShowHide1Click(Sender: TObject);
+begin
+  if Form1.Visible then
+    Form1.Hide
+  else
+    Form1.Show;
+end;
+
+
+//Tray icon 'help' click.
+procedure TForm1.Help1Click(Sender: TObject);
+begin
+  if not Form1.OpenUrl('http://www.kysoh.com/documentation/') then
+    dialogs.ShowMessage('Error while loading help');
+end;
+
+
+//Tray icon 'mute' click.
+procedure TForm1.Mute1Click(Sender: TObject);
+begin
+{TODO}
+end;
+
+
+//Tray menu 'quit' click.
+procedure TForm1.Quit1Click(Sender: TObject);
+begin
+  Shell_NotifyIcon(Nim_DELETE,@tray);
+  Application.Terminate;
+end;
+
+
+{###############################################}
+{####### Private functions and procedures ######}
+{###############################################}
+
+//Open an url into the default web browser.
+function TForm1.OpenUrl(const url : String) : boolean;
+var
+   Browser: string;
+begin
+   Browser := '';
+
+   with TRegistry.Create do
+     try
+       RootKey := HKEY_CLASSES_ROOT;
+       Access := KEY_QUERY_VALUE;
+       if OpenKey('\htmlfile\shell\open\command', False) then
+         Browser := ReadString('') ;
+       CloseKey;
+     finally
+       Free;
+   end;
+
+   if Browser = '' then
+   begin
+     Exit;
+     Result := False;
+   end;
+
+   Browser := Copy(Browser, Pos('"', Browser) + 1, Length(Browser)) ;
+   Browser := Copy(Browser, 1, Pos('"', Browser) - 1) ;
+   ShellExecute(0, 'open', PChar(Browser), PChar(URL), nil, SW_SHOW) ;
+
+   Result := True;
+end;
+
+
+//Tray icon click event.
+procedure TForm1.WMAppelMessage(var msg : TMessage);
+var
+  Cursor : TPoint;
+begin
+
+  //Clique droit de la souris
+  if msg.LParam = Wm_LButtonDown then
+  begin
+    //Showing application.
+    if Form1.Visible then
+      Form1.Hide
+    else
+      Form1.Show;
+  end
+  else if msg.LParam = Wm_RButtonDown then
+  begin
+    SetForegroundWindow(Handle);
+    GetCursorPos(Cursor);
+    PopupMenu1.Popup(Cursor.X, Cursor.Y);
+    PostMessage(Handle, WM_NULL, 0, 0);
+  end;
+
+end;
+
+end.
+