pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Initial import

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@338 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2008-02-03 12:05:55 +00:00
parent 9056129a0b
commit c1641e380d
97 changed files with 77767 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

486
components/tvplanit/source/vpcontacteditdlg.lfm Normal file
View File

@ -0,0 +1,486 @@
object ContactEditForm: TContactEditForm
Left = 311
Height = 321
Top = 245
Width = 433
HorzScrollBar.Page = 432
VertScrollBar.Page = 320
ActiveControl = tsContacts
Caption = 'ContactEdit'
ClientHeight = 321
ClientWidth = 433
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
Position = poScreenCenter
object tsContacts: TPageControl
Height = 280
Width = 433
ActivePage = tabMain
Align = alClient
TabIndex = 0
TabOrder = 0
OnChange = tsContactsChange
object tabMain: TTabSheet
Caption = '&Main'
ClientHeight = 280
ClientWidth = 433
object NameLbl: TLabel
Left = 8
Height = 16
Top = 6
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'Name'
FocusControl = NameEdit
ParentColor = False
end
object AddrLbl: TLabel
Left = 8
Height = 16
Top = 54
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'Address'
FocusControl = AddressEdit
ParentColor = False
end
object CityLbl: TLabel
Left = 8
Height = 16
Top = 78
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'City'
FocusControl = CityEdit
ParentColor = False
end
object StateLbl: TLabel
Left = 8
Height = 16
Top = 102
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'State'
FocusControl = cboxState
ParentColor = False
end
object ZipLbl: TLabel
Left = 8
Height = 16
Top = 126
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'Zip Code'
FocusControl = ZipCodeEdit
ParentColor = False
end
object CountryLbl: TLabel
Left = 8
Height = 16
Top = 150
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'Country'
FocusControl = cboxCountry
ParentColor = False
end
object PositionLbl: TLabel
Left = 8
Height = 16
Top = 199
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'Position'
FocusControl = PositionEdit
ParentColor = False
end
object TitleLbl: TLabel
Left = 8
Height = 16
Top = 31
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'Title'
FocusControl = TitleEdit
ParentColor = False
end
object CompanyLbl: TLabel
Left = 91
Height = 14
Top = 175
Width = 46
Alignment = taRightJustify
Caption = 'Company'
FocusControl = CompanyEdit
ParentColor = False
end
object CategoryLbl: TLabel
Left = 8
Height = 16
Top = 226
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'Category'
FocusControl = cboxCategory
ParentColor = False
end
object NameEdit: TEdit
Left = 136
Height = 21
Top = 4
Width = 247
MaxLength = 100
OnChange = ItemChanged
TabOrder = 0
end
object AddressEdit: TEdit
Left = 136
Height = 21
Top = 52
Width = 247
MaxLength = 100
OnChange = ItemChanged
TabOrder = 2
end
object CityEdit: TEdit
Left = 136
Height = 21
Top = 76
Width = 247
MaxLength = 50
OnChange = ItemChanged
TabOrder = 3
end
object StateEdit: TEdit
Left = 168
Height = 21
Top = 100
Width = 247
MaxLength = 25
OnChange = ItemChanged
TabOrder = 5
end
object ZipCodeEdit: TEdit
Left = 136
Height = 21
Top = 124
Width = 121
MaxLength = 10
OnChange = ItemChanged
TabOrder = 6
end
object PositionEdit: TEdit
Left = 136
Height = 21
Top = 197
Width = 121
MaxLength = 50
OnChange = ItemChanged
TabOrder = 10
end
object TitleEdit: TEdit
Left = 136
Height = 21
Top = 29
Width = 121
MaxLength = 50
OnChange = ItemChanged
TabOrder = 1
end
object CompanyEdit: TEdit
Left = 136
Height = 21
Top = 173
Width = 121
MaxLength = 50
OnChange = ItemChanged
TabOrder = 9
end
object cboxCategory: TComboBox
Left = 136
Height = 21
Top = 224
Width = 121
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 65535
TabOrder = 11
end
object cboxState: TComboBox
Left = 136
Height = 21
Top = 100
Width = 249
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 65535
TabOrder = 4
Visible = False
end
object edtCountry: TEdit
Left = 152
Height = 21
Top = 148
Width = 249
TabOrder = 8
end
object cboxCountry: TComboBox
Left = 136
Height = 21
Top = 148
Width = 249
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
Font.Height = -11
Font.Name = 'MS Sans Serif'
MaxLength = 65535
OnChange = cboxCountryChange
TabOrder = 7
end
end
object tabContact: TTabSheet
Caption = 'Con&tact'
ClientHeight = 280
ClientWidth = 433
ImageIndex = 1
object EMailLbl: TLabel
Left = 91
Height = 14
Top = 136
Width = 38
Caption = 'EMailLbl'
ParentColor = False
end
object cboxPhoneLbl1: TComboBox
Left = 8
Height = 21
Top = 8
Width = 121
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 65535
TabOrder = 0
end
object cboxPhoneLbl2: TComboBox
Left = 8
Height = 21
Top = 32
Width = 121
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 65535
TabOrder = 2
end
object cboxPhoneLbl3: TComboBox
Left = 8
Height = 21
Top = 56
Width = 121
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 65535
TabOrder = 4
end
object cboxPhoneLbl4: TComboBox
Left = 8
Height = 21
Top = 80
Width = 121
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 65535
TabOrder = 6
end
object Phone4Edit: TEdit
Left = 136
Height = 21
Top = 80
Width = 121
MaxLength = 25
OnChange = ItemChanged
TabOrder = 7
end
object Phone3Edit: TEdit
Left = 136
Height = 21
Top = 56
Width = 121
MaxLength = 25
OnChange = ItemChanged
TabOrder = 5
end
object Phone2Edit: TEdit
Left = 136
Height = 21
Top = 32
Width = 121
MaxLength = 25
OnChange = ItemChanged
TabOrder = 3
end
object Phone1Edit: TEdit
Left = 136
Height = 21
Top = 8
Width = 121
MaxLength = 25
OnChange = ItemChanged
TabOrder = 1
end
object cboxPhoneLbl5: TComboBox
Left = 8
Height = 21
Top = 104
Width = 121
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 65535
TabOrder = 8
end
object Phone5Edit: TEdit
Left = 136
Height = 21
Top = 104
Width = 121
MaxLength = 25
OnChange = ItemChanged
TabOrder = 9
end
object EMailEdit: TEdit
Left = 136
Height = 21
Top = 128
Width = 121
TabOrder = 10
end
end
object tabCustom: TTabSheet
Caption = 'C&ustom'
ClientHeight = 280
ClientWidth = 433
ImageIndex = 2
object CustomLbl1: TLabel
Left = 8
Height = 14
Top = 12
Width = 56
Caption = 'CustomLbl1'
ParentColor = False
end
object CustomLbl2: TLabel
Left = 8
Height = 14
Top = 36
Width = 56
Caption = 'CustomLbl2'
ParentColor = False
end
object CustomLbl3: TLabel
Left = 8
Height = 14
Top = 60
Width = 56
Caption = 'CustomLbl3'
ParentColor = False
end
object CustomLbl4: TLabel
Left = 8
Height = 14
Top = 84
Width = 56
Caption = 'CustomLbl4'
ParentColor = False
end
object Custom1Edit: TEdit
Left = 80
Height = 21
Top = 8
Width = 121
MaxLength = 100
OnChange = ItemChanged
TabOrder = 0
end
object Custom2Edit: TEdit
Left = 80
Height = 21
Top = 32
Width = 121
MaxLength = 100
OnChange = ItemChanged
TabOrder = 1
end
object Custom3Edit: TEdit
Left = 80
Height = 21
Top = 56
Width = 121
MaxLength = 100
OnChange = ItemChanged
TabOrder = 2
end
object Custom4Edit: TEdit
Left = 80
Height = 21
Top = 80
Width = 121
MaxLength = 100
OnChange = ItemChanged
TabOrder = 3
end
end
object tabNotes: TTabSheet
Caption = '&Notes'
ClientHeight = 280
ClientWidth = 433
ImageIndex = 3
object NoteEdit: TMemo
Left = 8
Height = 234
Top = 8
Width = 409
Anchors = [akTop, akLeft, akRight, akBottom]
MaxLength = 1024
ScrollBars = ssVertical
TabOrder = 0
end
end
end
object pnlBottom: TPanel
Height = 41
Top = 280
Width = 433
Align = alBottom
BevelOuter = bvNone
ClientHeight = 41
ClientWidth = 433
TabOrder = 1
object OKBtn: TButton
Left = 278
Height = 25
Top = 9
Width = 75
Anchors = [akRight, akBottom]
Caption = 'OK'
Default = True
OnClick = OKBtnClick
TabOrder = 0
TabStop = False
end
object CancelBtn: TButton
Left = 357
Height = 25
Top = 9
Width = 75
Anchors = [akRight, akBottom]
Cancel = True
Caption = 'Cancel'
OnClick = CancelBtnClick
TabOrder = 1
TabStop = False
end
end
end