5136437173

&

Delphi 5 - VisualForms50

i I ►

File Edit Search View Project Run Component Database lools Help

SS‘ - ^

&

Standard Additional Win32 1 System Data Access Data Controls 1 ADO InterBase | Midas | lnternetExoress 1 Internet FastNet DecisionCube OReoort Dialoas | Win 3.1 | Samoles | ActiveX | Servers

F I A ff | ® P? 9 łfl jj| SŁŁŁl ["j [ik | |

D & - Q

13

M % * |

& ^ m

X

rar o* O*

l—J ioioi ioioi

- 0*

IOIOI

Dream 0

ii c:\program files\borland\delphi5\Source\Toolsapi\ToolsAPI.pas

■ & m -s ę m a isj a ta «

^ YFAbout | YFAddln | YFOTAUtils Tool&API DummyDockProj

VFMainForrn

— ' ! Visu«sl Forms Progress	PWIIR1
1 Procewg ^*eoxren!prox<t... i
	: :i: /100

VFProgress

Count: 6

	B

VFDataModule

ęm |
	• ——

VF0ption$

VFViewForrn

100 x 160

{ Cpens and returns the IOTAModule associated vith this /v function OpenMcdule: IOTAMcdule;

property McduleType: TOTAMcduleType read GetMcduleType; property Narr.e: string read GetNarr.e; property FileName: string read GetFileNa:r.e; property Fcrrrllarr.e : string read Ge t Fcrrrllarr.e ; property DesignClass: string read GetDesignClass; end;

IOTAHcdule40 = interface(IUnkncwn)

['{F17A7BCC-Z07D-11D1-A303-GGC04F316F33}’]

{ Cali this to register an ICTANotifier. The result is t used vhen calling RemoveNotifier. If <0 then an error function AdćLNctifier (const ANotifier: IOTAMcduleNctifier { This invokes the Add To Interface dialog in Delphi }    ,

procedurę AddTcInterface;

{ Attempt to close this module. True vas successful and this module must be released. False if this module vas function Close: 3cclean;

{ Return the filename associated vith this module. This narn.e used by the IDE. Header source and forms are obt function GetFileName: string;

{ Return the currently assigned file system } function GetFileSystem: string;

{ Returns the number of associated files (eg. Unitl.Pas function GetMcduleFileCount: Integer;

{ Returns the associated file editor. Use Guerylnterfac this is an ICTASourceEditor or ICTAFormEditor ) function GetMcduleFilelditcr(Index: Integer): IOTAZditcr { Return the number of open projects than ovn this moduł function GetOwnerCount: Integer;

{ Return the Indexed Project thet ovns this module } function GetOwner(Index: Integer): IOTAProject;

{ Returns True if this modules has CoClasses. Can be us AddToInterface can be called ) function HasCoClasses: 3cclean;

£10    iM

VisualForms50.dll	▼	3? X
Files	Path

VisualForms50Group C:\Apps10WisualForms\Delphi5 m€\ WSBBM C:\Apps10WisualForms\Delphi5 Śh|P DummyDockProj.exe C:\Documents and Settings\jnort $ VFCornp50.bpl C:\Apps10WisualForms\Compon

xj

frmVFProgress: T frmVFProgress Properties Events

Action		*
ActiveControl		1
Align	alNone
SAnchors	[akl_eft,akT op]
AutoScroll	False
AutoSize	False
BiDiMode	bdLeftT oRight
ESBorderlcons	[biM inimize,biM aximize]
BorderStyle	bsT oofWindow
BorderWidth	0
Caption	Visual Forms Progress
ClientHeight	95
ClientWidth	249
Color	l~~lclBtnFace
E) Constraints	(TSi2eConstraints)
Cursor	crDefault
DefaultMonitor	dmActiveForm	V
2 hidden