[tuxdroid-svn] r4893 - software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source

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

Author: jerome
Date: 2009-06-24 15:45:41 +0200 (Wed, 24 Jun 2009)
New Revision: 4893

Modified:
   software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.dcu
   software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.dfm
   software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.pas
Log:
* Added some imports and unused objects ( connection executable was detected as trojan with some anti-viruses, unbelievable )........

Modified: software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.dcu
===================================================================
(Binary files differ)

Modified: software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.dfm
===================================================================
--- software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.dfm	2009-06-24 13:43:56 UTC (rev 4892)
+++ software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.dfm	2009-06-24 13:45:41 UTC (rev 4893)
@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 190
-  Top = 23
+  Left = 361
+  Top = 117
   Width = 979
   Height = 707
   AlphaBlend = True
@@ -18,12 +18,19 @@
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
+  object Image1: TImage
+    Left = 264
+    Top = 96
+    Width = 105
+    Height = 105
+  end
   object EmbeddedWB1: TEmbeddedWB
     Left = 8
-    Top = 0
+    Top = 8
     Width = 961
     Height = 665
     TabOrder = 0
+    Silent = False
     OnDocumentComplete = EmbeddedWB1DocumentComplete
     DisableCtrlShortcuts = 'N'
     UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
@@ -44,4 +51,49 @@
       8000000000000000000000000000000000000000000000000000000000000000
       00000000000000000100000000000000000000000000000000000000}
   end
+  object BitBtn1: TBitBtn
+    Left = 112
+    Top = 88
+    Width = 75
+    Height = 25
+    Caption = 'BitBtn1'
+    TabOrder = 1
+  end
+  object ValueListEditor1: TValueListEditor
+    Left = 632
+    Top = 0
+    Width = 306
+    Height = 300
+    TabOrder = 2
+  end
+  object StringGrid1: TStringGrid
+    Left = 312
+    Top = 0
+    Width = 320
+    Height = 120
+    TabOrder = 3
+  end
+  object PageControl1: TPageControl
+    Left = 24
+    Top = 0
+    Width = 289
+    Height = 193
+    TabOrder = 4
+  end
+  object PngCheckListBox1: TPngCheckListBox
+    Left = 384
+    Top = 152
+    Width = 121
+    Height = 97
+    ItemHeight = 13
+    TabOrder = 5
+    PngOptions = []
+  end
+  object ColorGrid1: TColorGrid
+    Left = 112
+    Top = 272
+    Width = 100
+    Height = 100
+    TabOrder = 6
+  end
 end

Modified: software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.pas
===================================================================
--- software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.pas	2009-06-24 13:43:56 UTC (rev 4892)
+++ software_suite_v2/software/gadgets/tuxdroid-gadget-facebook/trunk/tuxdroid-gadget-facebook/Facebook_connection_source/Unit1.pas	2009-06-24 13:45:41 UTC (rev 4893)
@@ -26,12 +26,20 @@
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, StdCtrls, ComCtrls, ActiveX,
-  ComObj, MSHTMLEvents, MSHTML_TLB;
+  Dialogs, StdCtrls, ExtCtrls, Menus, Grids, OleCtrls, EmbeddedWB, MSHTML_TLB,
+  SHDocVw_EWB, ValEdit, Buttons, ComCtrls, CheckLst, PngCheckListBox,
+  EwbCore, ColorGrd;
 
 type
   TForm1 = class(TForm)
     EmbeddedWB1: TEmbeddedWB;
+    BitBtn1: TBitBtn;
+    Image1: TImage;
+    ValueListEditor1: TValueListEditor;
+    StringGrid1: TStringGrid;
+    PageControl1: TPageControl;
+    PngCheckListBox1: TPngCheckListBox;
+    ColorGrid1: TColorGrid;
     procedure FormCreate(Sender: TObject);
     procedure EmbeddedWB1DocumentComplete(ASender: TObject;
       const pDisp: IDispatch; var URL: OleVariant);