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

tvplanit: Call notification when City-state-zip format is changed. Some improvements in "demo" projects.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4867 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-29 13:55:10 +00:00
parent 9be9d8a4b8
commit 82e258bdb7
6 changed files with 27 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -486,9 +486,11 @@ object MainForm: TMainForm
TabOrder = 4
end
object LblAddressBuilder: TLabel
AnchorSideTop.Control = CbAddressBuilder
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 149
Top = 148
Width = 82
Caption = 'Address builder'
ParentColor = False
@ -499,6 +501,7 @@ object MainForm: TMainForm
Top = 144
Width = 172
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'(default)'
'@ZIP @CITY'
@ -508,6 +511,7 @@ object MainForm: TMainForm
OnChange = CbAddressBuilderChange
Style = csDropDownList
TabOrder = 5
Text = '(default)'
end
end
end

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

@ -18,6 +18,7 @@ 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.CBADDRESSBUILDER.TEXT=(default)
TMAINFORM.TITLELBL.CAPTION=TitleLbl
TMAINFORM.MENUITEM1.CAPTION=File
TMAINFORM.MNUQUIT.CAPTION=Quit

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

@ -467,6 +467,11 @@ begin
DaysTrackbarChange(nil);
end;
VpControlLink1.CityStateZipFormat := ini.ReadString('Settings', 'CityStateZip', '');
if VpControlLink1.CityStateZipFormat = '' then
CbAddressBuilder.ItemIndex := 0 else
CbAddressBuilder.ItemIndex := CbAddressBuilder.Items.Indexof(VpControlLink1.CityStateZipFormat);
CbAllowInplaceEditing.Checked := ini.ReadBool('Settings', 'AllowInplaceEditing', CbAllowInplaceEditing.Checked);
CbAllowInplaceEditingChange(nil);
@ -497,6 +502,7 @@ begin
ini.WriteInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat));
ini.WriteInteger('Settings', 'Granularity', ord(VpDayView1.Granularity));
ini.WriteInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn));
ini.WriteString('Settings', 'CityStateZip', VpControlLink1.CityStateZipFormat);
ini.WriteInteger('Settings', 'VisibleDays', FVisibleDays);
ini.WriteBool('Settings', 'AllTasks', VpTaskList1.DisplayOptions.ShowAll);
ini.WriteBool('Settings', 'AllowInplaceEditing', CbAllowInplaceEditing.Checked);
@ -631,6 +637,8 @@ begin
LblTimeFormat.Left := CbTimeFormat.Left - 8 - GetLabelWidth(LblTimeFormat);
CbFirstDayOfWeek.Left := CbLanguages.Left;
LblFirstDayOfWeek.Left := CbFirstDayOfWeek.Left - 8 - GetLabelWidth(LblFirstDayOfWeek);
CbAddressBuilder.Left := CbLanguages.Left;
LblAddressBuilder.Left := CbAddressBuilder.Left - 8 - GetLabelWidth(LblAddressBuilder);
CbAllowInplaceEditing.Left := CbLanguages.Left + CbLanguages.Width + 32;
Cb3D.Left := CbAllowInplaceEditing.Left;
RbHideCompletedTasks.Left := RbAllTasks.Left + RbAllTasks.Width + 48;

6
components/tvplanit/languages/demo.de.po
View File

@ -147,6 +147,10 @@ msgstr "Turbo Power VisualPlanIt Demo"
#: tmainform.cb3d.caption
msgid "3d display mode"
msgstr "3D-Anzeige"
#: tmainform.cbaddressbuilder.text
msgid "(default)"
msgstr ""
#: tmainform.cballowinplaceediting.caption
@ -159,7 +163,7 @@ msgstr "30 Min"
#: tmainform.lbladdressbuilder.caption
msgid "Address builder"
msgstr ""
msgstr "Aufbau der Adresse:"
#: tmainform.lblfirstdayofweek.caption
msgid "First day of week"

4
components/tvplanit/languages/demo.po
View File

@ -138,6 +138,10 @@ msgstr ""
msgid "3d display mode"
msgstr ""
#: tmainform.cbaddressbuilder.text
msgid "(default)"
msgstr ""
#: tmainform.cballowinplaceediting.caption
msgid "Allow inplace editing"
msgstr ""

6
components/tvplanit/source/vpbaseds.pas
View File

@ -1342,8 +1342,10 @@ end;
procedure TVpControlLink.SetCityStateZipFormat(const Value: String);
begin
if FCityStateZipFormat <> Value then
FCityStateZipFormat := Value
if FCityStateZipFormat <> Value then begin
FCityStateZipFormat := Value;
Notify(self, neInvalidate, 0);
end;
end;
procedure TVpControlLink.SetDataStore(const Value: TVpCustomDataStore);