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

tvplanit: Translate shape editor. Fix pen and brush style combos. Auto-position controls.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4935 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-08 10:04:20 +00:00
parent 6df0384a65
commit fb4a5f60f6
17 changed files with 780 additions and 169 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -522,21 +522,14 @@ object MainForm: TMainForm
ParentColor = False
end
object CbDrawingStyle: TComboBox
Left = 439
Left = 440
Height = 23
Top = 64
Width = 113
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'flat'
'3d'
'borderless'
)
OnChange = CbDrawingStyleChange
Style = csDropDownList
TabOrder = 5
Text = 'flat'
end
end
end

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

@ -19,7 +19,6 @@ TMAINFORM.CBALLOWINPLACEEDITING.CAPTION=Allow inplace editing
TMAINFORM.LBLADDRESSBUILDER.CAPTION=Address builder
TMAINFORM.CBADDRESSBUILDER.TEXT=(default)
TMAINFORM.LBLDRAWINGSTYLE.CAPTION=Drawing style:
TMAINFORM.CBDRAWINGSTYLE.TEXT=flat
TMAINFORM.TITLELBL.CAPTION=TitleLbl
TMAINFORM.MENUITEM1.CAPTION=File
TMAINFORM.MNUEDITPRINTFORMATS.CAPTION=Edit print formats...

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

@ -173,9 +173,9 @@ resourcestring
RSThursday = 'Thursday';
RSFriday = 'Friday';
RSSaturday = 'Saturday';
RSFlat = 'flach';
RSFlat = 'flat';
RS3d = '3D';
RSBorderless = 'ohne Rand';
RSBorderless = 'no border';
{$IFDEF WINDOWS}
{ This function determines the LCID from the language code.
@ -664,6 +664,7 @@ begin
SetDefaultLang(FLang, langdir);
TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + FLang + '.po');
end;
VpDayView1.LoadLanguage;
VpWeekView1.LoadLanguage;
VpMonthView1.LoadLanguage;
@ -719,9 +720,10 @@ begin
CbFirstDayOfWeek.Items.Add(RSFriday);
CbFirstDayOfWeek.Items.Add(RSSaturday);
CbDrawingStyle.Items[0] := RSFlat;
CbDrawingStyle.Items[1] := RS3d;
CbDrawingStyle.Items[2] := RSBorderless;
CbDrawingStyle.Items.Clear;
CbDrawingStyle.Items.Add(RSFlat);
CbDrawingStyle.Items.Add(RS3d);
CbDrawingStyle.Items.Add(RSBorderless);
DaysTrackbar.Left := GetLabelWidth(LblVisibleDays) + LblVisibleDays.Left + 8;
LblGranularity.Left := DaysTrackbar.Left + DaysTrackbar.Width + 32;