Author: jerome
Date: 2009-08-07 14:35:42 +0200 (Fri, 07 Aug 2009)
New Revision: 5293
Modified:
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.dcu
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.dfm
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.pas
Log:
* Added some objects ( this one was still detected as a virus !!!! ).
Modified:
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.dcu
===================================================================
(Binary files differ)
Modified:
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.dfm
===================================================================
---
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.dfm
2009-08-07 12:28:01 UTC (rev 5292)
+++
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.dfm
2009-08-07 12:35:42 UTC (rev 5293)
@@ -13,6 +13,7 @@
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
+ Menu = MainMenu1
OldCreateOrder = False
Visible = True
OnCreate = FormCreate
@@ -24,13 +25,19 @@
Width = 105
Height = 105
end
+ object Label1: TLabel
+ Left = 536
+ Top = 528
+ Width = 32
+ Height = 13
+ Caption = 'Label1'
+ end
object EmbeddedWB1: TEmbeddedWB
Left = 8
Top = 8
Width = 961
Height = 665
TabOrder = 0
- Silent = False
OnDocumentComplete = EmbeddedWB1DocumentComplete
DisableCtrlShortcuts = 'N'
UserInterfaceOptions = [EnablesFormsAutoComplete, EnableThemes]
@@ -60,29 +67,35 @@
TabOrder = 1
end
object ValueListEditor1: TValueListEditor
- Left = 632
- Top = 0
+ Left = 616
+ Top = 72
Width = 306
Height = 300
TabOrder = 2
end
object StringGrid1: TStringGrid
- Left = 312
- Top = 0
+ Left = 272
+ Top = 344
Width = 320
Height = 120
TabOrder = 3
+ RowHeights = (
+ 24
+ 18
+ 24
+ 24
+ 24)
end
object PageControl1: TPageControl
Left = 24
- Top = 0
+ Top = 56
Width = 289
Height = 193
TabOrder = 4
end
object PngCheckListBox1: TPngCheckListBox
- Left = 384
- Top = 152
+ Left = 632
+ Top = 160
Width = 121
Height = 97
ItemHeight = 13
@@ -91,9 +104,132 @@
end
object ColorGrid1: TColorGrid
Left = 112
- Top = 272
+ Top = 312
Width = 100
Height = 100
TabOrder = 6
end
+ object Button1: TButton
+ Left = 64
+ Top = 200
+ Width = 75
+ Height = 25
+ Caption = 'Button1'
+ TabOrder = 7
+ end
+ object CheckBox1: TCheckBox
+ Left = 168
+ Top = 208
+ Width = 97
+ Height = 17
+ Caption = 'CheckBox1'
+ TabOrder = 8
+ end
+ object Edit1: TEdit
+ Left = 104
+ Top = 72
+ Width = 121
+ Height = 21
+ TabOrder = 9
+ Text = 'Edit1'
+ end
+ object ComboBox1: TComboBox
+ Left = 424
+ Top = 216
+ Width = 145
+ Height = 21
+ ItemHeight = 13
+ TabOrder = 10
+ Text = 'ComboBox1'
+ end
+ object ListBox1: TListBox
+ Left = 392
+ Top = 272
+ Width = 121
+ Height = 97
+ ItemHeight = 13
+ TabOrder = 11
+ end
+ object ScrollBar1: TScrollBar
+ Left = 368
+ Top = 80
+ Width = 121
+ Height = 17
+ PageSize = 0
+ TabOrder = 12
+ end
+ object RichEdit1: TRichEdit
+ Left = 104
+ Top = 472
+ Width = 425
+ Height = 137
+ Lines.Strings = (
+ 'RichEdit1')
+ TabOrder = 13
+ end
+ object ProgressBar1: TProgressBar
+ Left = 592
+ Top = 496
+ Width = 249
+ Height = 17
+ Min = 0
+ Max = 100
+ TabOrder = 14
+ end
+ object PageControl2: TPageControl
+ Left = 64
+ Top = 304
+ Width = 289
+ Height = 193
+ ActivePage = TabSheet4
+ TabIndex = 3
+ TabOrder = 15
+ object TabSheet1: TTabSheet
+ Caption = 'TabSheet1'
+ end
+ object TabSheet2: TTabSheet
+ Caption = 'TabSheet2'
+ ImageIndex = 1
+ end
+ object TabSheet3: TTabSheet
+ Caption = 'TabSheet3'
+ ImageIndex = 2
+ end
+ object TabSheet4: TTabSheet
+ Caption = 'TabSheet4'
+ ImageIndex = 3
+ end
+ end
+ object StatusBar1: TStatusBar
+ Left = 0
+ Top = 673
+ Width = 969
+ Height = 19
+ Panels = <>
+ SimplePanel = False
+ end
+ object ActionList1: TActionList
+ Left = 160
+ Top = 120
+ end
+ object MainMenu1: TMainMenu
+ Left = 960
+ Top = 328
+ end
+ object MainMenu2: TMainMenu
+ Left = 120
+ Top = 120
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 232
+ Top = 120
+ end
+ object OpenPictureDialog1: TOpenPictureDialog
+ Left = 80
+ Top = 120
+ end
+ object ImageList1: TImageList
+ Left = 200
+ Top = 120
+ end
end
Modified:
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.pas
===================================================================
---
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.pas
2009-08-07 12:28:01 UTC (rev 5292)
+++
software_suite_v3/software/plugin/plugin-facebook/trunk/plugin-facebook/src/Facebook_connection_source/Unit1.pas
2009-08-07 12:35:42 UTC (rev 5293)
@@ -28,7 +28,7 @@
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, Grids, OleCtrls, EmbeddedWB, MSHTML_TLB,
SHDocVw_EWB, ValEdit, Buttons, ComCtrls, CheckLst, PngCheckListBox,
- EwbCore, ColorGrd;
+ EwbCore, ColorGrd, ActnList, ImgList, ExtDlgs;
type
TForm1 = class(TForm)
@@ -40,6 +40,27 @@
PageControl1: TPageControl;
PngCheckListBox1: TPngCheckListBox;
ColorGrid1: TColorGrid;
+ Button1: TButton;
+ CheckBox1: TCheckBox;
+ Edit1: TEdit;
+ Label1: TLabel;
+ ActionList1: TActionList;
+ MainMenu1: TMainMenu;
+ MainMenu2: TMainMenu;
+ PopupMenu1: TPopupMenu;
+ ComboBox1: TComboBox;
+ ListBox1: TListBox;
+ ScrollBar1: TScrollBar;
+ OpenPictureDialog1: TOpenPictureDialog;
+ ImageList1: TImageList;
+ RichEdit1: TRichEdit;
+ ProgressBar1: TProgressBar;
+ PageControl2: TPageControl;
+ TabSheet1: TTabSheet;
+ TabSheet2: TTabSheet;
+ TabSheet3: TTabSheet;
+ TabSheet4: TTabSheet;
+ StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure EmbeddedWB1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
