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

tvplanit: New TVpControlLink property CityStateZip defining the country-dependant order and structure of the city-state-zip part of the address.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4866 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-29 13:22:33 +00:00
parent ae8fecb42d
commit 9be9d8a4b8
8 changed files with 84 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
components/tvplanit/examples/demo/demomain.lfm
View File

@ -25,9 +25,9 @@ object MainForm: TMainForm
Height = 532
Top = 48
Width = 780
ActivePage = TabEvents
ActivePage = TabSettings
Align = alClient
TabIndex = 0
TabIndex = 4
TabOrder = 0
object TabEvents: TTabSheet
Caption = 'Events'
@ -485,6 +485,30 @@ object MainForm: TMainForm
OnChange = Cb3DChange
TabOrder = 4
end
object LblAddressBuilder: TLabel
Left = 16
Height = 15
Top = 149
Width = 82
Caption = 'Address builder'
ParentColor = False
end
object CbAddressBuilder: TComboBox
Left = 112
Height = 23
Top = 144
Width = 172
ItemHeight = 15
Items.Strings = (
'(default)'
'@ZIP @CITY'
'@CITY, @STATE @ZIP'
'@CITY @ZIP'
)
OnChange = CbAddressBuilderChange
Style = csDropDownList
TabOrder = 5
end
end
end
object HeaderPanel: TPanel
@ -626,7 +650,7 @@ object MainForm: TMainForm
end
object VpControlLink1: TVpControlLink
DataStore = VpBufDSDataStore1
LocalizationFile = '../../source\vplocalize.xml'
LocalizationFile = '../../source/vplocalize.xml'
Printer.BottomMargin = 0
Printer.DayStart = h_08
Printer.DayEnd = h_05

1
components/tvplanit/examples/demo/demomain.lrt
View File

@ -17,6 +17,7 @@ TMAINFORM.LBLTIMEFORMAT.CAPTION=Time format
TMAINFORM.LBLFIRSTDAYOFWEEK.CAPTION=First day of week
TMAINFORM.CBALLOWINPLACEEDITING.CAPTION=Allow inplace editing
TMAINFORM.CB3D.CAPTION=3d display mode
TMAINFORM.LBLADDRESSBUILDER.CAPTION=Address builder
TMAINFORM.TITLELBL.CAPTION=TitleLbl
TMAINFORM.MENUITEM1.CAPTION=File
TMAINFORM.MNUQUIT.CAPTION=Quit

11
components/tvplanit/examples/demo/demomain.pas
View File

@ -24,8 +24,10 @@ type
CbFirstDayOfWeek: TComboBox;
CbAllowInplaceEditing: TCheckBox;
Cb3D: TCheckBox;
CbAddressBuilder: TComboBox;
Img: TImage;
ImageList1: TImageList;
LblAddressBuilder: TLabel;
LblFirstDayOfWeek: TLabel;
LblTimeFormat: TLabel;
LblGranularity: TLabel;
@ -71,6 +73,7 @@ type
procedure BtnNewResClick(Sender: TObject);
procedure BtnEditResClick(Sender: TObject);
procedure Cb3DChange(Sender: TObject);
procedure CbAddressBuilderChange(Sender: TObject);
procedure CbAllowInplaceEditingChange(Sender: TObject);
procedure CbFirstDayOfWeekChange(Sender: TObject);
procedure CbGranularityChange(Sender: TObject);
@ -252,6 +255,14 @@ begin
VpMonthView1.DrawingStyle := ds;
end;
procedure TMainForm.CbAddressBuilderChange(Sender: TObject);
begin
if CbAddressBuilder.ItemIndex <= 0 then
VpControlLink1.CityStateZipFormat := ''
else
VpControlLink1.CityStateZipFormat := CbAddressBuilder.Items[CbAddressBuilder.ItemIndex];
end;
procedure TMainForm.CbAllowInplaceEditingChange(Sender: TObject);
begin
VpContactGrid1.AllowInplaceEditing := CbAllowInplaceEditing.Checked;