examples/Delphi/Singlton.dfm

ÿ
TSINGLETONFORM0TPF0TSingletonForm
SingletonFormLeft`TopzBorderStylebsDialogCaptionThe Singleton Test FormClientHeight‚ClientWidth¸
Font.ColorclWindowTextFont.Heightõ  Font.Name
MS Sans Serif
Font.StyleOnCreate
FormCreate
PixelsPerInch`
TextHeight
TPanelPanel1LeftTopWidth±HeightyTabOrderTLabelLabel1LefthTopWidthNHeight
CaptionSingleton Count:TEditDisplay1Left(Top(Width-HeightTabOrderText(empty)TButtonCnR1LeftÜTop(WidthFHeightCaptionReadTabOrderOnClick     CnR1ClickTButtonSet1Left`Top(WidthFHeightCaption        Set ValueTabOrderOnClick   Set1ClickTButtonCnR2LeftÜTop@WidthFHeightCaptionReadTabOrderOnClick       CnR2ClickTEditDisplay2Left(Top@Width-HeightTabOrderText(empty)TButtonSet2Left`Top@WidthFHeightCaption       Set ValueTabOrderOnClick   Set2ClickTButtonCnR3LeftÜTopXWidthFHeightCaptionReadTabOrderOnClick       CnR3ClickTEditDisplay3Left(TopXWidth-HeightTabOrderText(empty)TButtonSet3Left`TopXWidthFHeightCaption       Set ValueTabOrderOnClick   Set3ClickTButtonCreate1LeftTop(WidthFHeightCaptionCreateTabOrder     OnClickCreate1ClickTButtonCreate2LeftTop@WidthFHeightCaptionCreateTabOrder
OnClickCreate2ClickTButtonCreate3LeftTopXWidthFHeightCaptionCreateTabOrderOnClickCreate3ClickTButtonFree1Left’Top(WidthFHeightCaptionFreeTabOrderOnClick
Free1ClickTButtonFree2Left’Top@WidthFHeightCaptionFreeTabOrder
OnClick
Free2ClickTButtonFree3Left’TopXWidthFHeightCaptionFreeTabOrderOnClick
Free3ClickTEditCounterLeft¸TopWidth!HeightEnabledTabOrderText0TEditRef1Left^Top(Width2HeightEnabledTabOrderText
ref is nilTEditRef2Left^Top@Width2HeightEnabledTabOrderText
ref is nilTEditRef3Left^TopXWidth2HeightEnabledTabOrderText
ref is nil
1	ÿ
2	TSINGLETONFORM0TPF0TSingletonForm SingletonFormLeft`TopzBorderStylebsDialogCaptionThe Singleton Test FormClientHeight‚ClientWidth¸
3	Font.ColorclWindowTextFont.Heightõ Font.Name MS Sans Serif
4	Font.StyleOnCreate
5	FormCreate PixelsPerInch`
6	TextHeight TPanelPanel1LeftTopWidth±HeightyTabOrderTLabelLabel1LefthTopWidthNHeight CaptionSingleton Count:TEditDisplay1Left(Top(Width-HeightTabOrderText(empty)TButtonCnR1LeftÜTop(WidthFHeightCaptionReadTabOrderOnClick CnR1ClickTButtonSet1Left`Top(WidthFHeightCaption Set ValueTabOrderOnClick Set1ClickTButtonCnR2LeftÜTop@WidthFHeightCaptionReadTabOrderOnClick CnR2ClickTEditDisplay2Left(Top@Width-HeightTabOrderText(empty)TButtonSet2Left`Top@WidthFHeightCaption Set ValueTabOrderOnClick Set2ClickTButtonCnR3LeftÜTopXWidthFHeightCaptionReadTabOrderOnClick CnR3ClickTEditDisplay3Left(TopXWidth-HeightTabOrderText(empty)TButtonSet3Left`TopXWidthFHeightCaption Set ValueTabOrderOnClick Set3ClickTButtonCreate1LeftTop(WidthFHeightCaptionCreateTabOrder OnClickCreate1ClickTButtonCreate2LeftTop@WidthFHeightCaptionCreateTabOrder
7	OnClickCreate2ClickTButtonCreate3LeftTopXWidthFHeightCaptionCreateTabOrderOnClickCreate3ClickTButtonFree1Left’Top(WidthFHeightCaptionFreeTabOrderOnClick
8	Free1ClickTButtonFree2Left’Top@WidthFHeightCaptionFreeTabOrder OnClick
9	Free2ClickTButtonFree3Left’TopXWidthFHeightCaptionFreeTabOrderOnClick
10	Free3ClickTEditCounterLeft¸TopWidth!HeightEnabledTabOrderText0TEditRef1Left^Top(Width2HeightEnabledTabOrderText
11	ref is nilTEditRef2Left^Top@Width2HeightEnabledTabOrderText
12	ref is nilTEditRef3Left^TopXWidth2HeightEnabledTabOrderText
13	ref is nil