| 1 |
|
| 2 |
TFORM1 0 |
| 3 |
TPF0TForm1Form1Left Top WidthHeight(CaptionStCollection Example |
| 4 |
Font.Color clWindowText Font.Height Font.Name
MS Sans Serif |
| 5 |
Font.Style PositionpoScreenCenterOnClose FormCloseOnCreate |
| 6 |
FormCreate
PixelsPerInch` |
| 7 |
TextHeight
TLabelLabel8Left Top Width&Height
CaptionElement TLabelLabel1Left Top WidthHeight
CaptionFirst TLabelLabel2Left Top WidthHeight
CaptionLast TLabelLabel3LeftNTop WidthHeight
CaptionAge TButton CreateBtnLeft Top Width7Height HintCreate MyCollectionCaptionCreateTabOrder OnClickCreateBtnClick TListBoxLB1Left Top3Width Height Hint DblClk to remove selected item |
| 8 |
ItemHeight
TabOrderOnClickLB1Click |
| 9 |
OnDblClick LB1DblClick TButtonClearBtnLeftITop Width7Height HintClear collectionCaptionClearTabOrderOnClick
ClearBtnClick TButtonPackBtnLeft Top Width7Height HintPack collectionCaptionPackTabOrderOnClick PackBtnClick TButtonEffBtnLeft Top\WidthFHeight HintGet efficiencyCaption |
| 10 |
EfficiencyTabOrderOnClick EffBtnClick TEditEdit1Left4Top`Width1HeightHint0-100%TabStopReadOnly TabOrder TEditEdit3Left Top WidthCHeightHintEnter 1..10 characters MaxLength |
| 11 |
TabOrder TEditEdit2Left Top Width HeightHintElement?TabOrderText0 TButtonAtBtnLeft Top Width=Height Hint Get valueCaptionAtTabOrderOnClick |
| 12 |
AtBtnClick TButtonAtInsBtnLeftTop Width=Height Hint Insert valueCaption At InsertTabOrder OnClick
AtInsBtnClick TButtonAtPutBtnLeftLTop Width=Height Hint Change valueCaptionAt PutTabOrder |
| 13 |
OnClick
AtPutBtnClick TButtonDelBtnLeft Top1Width=Height HintDelete first matchCaptionDeleteTabOrder OnClick DelBtnClick TButtonAtDelBtnLeftTop1Width=Height Hint Delete itemCaption At DeleteTabOrder OnClick
AtDelBtnClick TButtonInsBtnLeftLTop1Width=Height Hint
Insert at endCaptionInsertTabOrder
OnClick InsBtnClick TEditEdit4Left Top Width_HeightHintEnter 1..15 characters MaxLengthTabOrder TEditEdit5LefthTop Width#HeightHint Enter number MaxLengthTabOrder TButtonLoadBtnLeft Top Width=Height HintLoad from fileCaptionLoadTabOrderOnClick LoadBtnClick TButtonSaveBtnLeft*Top Width=Height Hint Save to fileCaptionSaveTabOrderOnClick SaveBtnClick TOpenDialogOD1 |
| 14 |
DefaultExtcolFilter2*.col (Collection files)|*.col|*.* (All files)|*.*Left>Top TSaveDialogSD1 |
| 15 |
DefaultExtcolFilter2*.col (Collection files)|*.col|*.* (All files)|*.*Options ofOverwritePrompt LeftbTop |
Parent Directory
| 
Revision Log