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

tvplanit: Activate the Lazarus translation system using po files. Translations are welcome! Some translation-related improvements in form layout.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4707 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-10 14:45:43 +00:00
parent 1a3ee925e3
commit d5bbf9165c
10 changed files with 2805 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1336
components/tvplanit/languages/vpsr.de.po Normal file
View File

File diff suppressed because it is too large Load Diff

1327
components/tvplanit/languages/vpsr.po Normal file
View File

File diff suppressed because it is too large Load Diff

5
components/tvplanit/packages/v103_lazarus.lpk
View File

@ -277,6 +277,11 @@
<Type Value="LFM"/>
</Item64>
</Files>
<i18n>
<EnableI18N Value="True"/>
<OutDir Value="../languages"/>
<EnableI18NForLFM Value="True"/>
</i18n>
<RequiredPkgs Count="3">
<Item1>
<PackageName Value="FCL"/>

13
components/tvplanit/source/vpabout.pas
View File

@ -106,10 +106,7 @@ uses
{$IFNDEF LCL}
ShellAPI,
{$ENDIF}
VpConst;
resourcestring
cBrowserError = 'Unable to start web browser. Make sure you have it properly setup on your system.';
VpConst, VpSR;
const
TURBO_LINK_URL = 'http://sourceforge.net/projects/tpvplanit/';
@ -174,7 +171,7 @@ begin
if ShellExecute(0, 'open', TURBO_LINK_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then
ShowMessage(cBrowserError);
ShowMessage(RSBrowserError);
end;
{=====}
@ -204,7 +201,7 @@ begin
if ShellExecute(0, 'open', HELP_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then
ShowMessage(cBrowserError);
ShowMessage(RSBrowserError);
end;
{=====}
@ -216,7 +213,7 @@ begin
if ShellExecute(0, 'open', NEWS_SPECIFIC_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then
ShowMessage(cBrowserError);
ShowMessage(RSBrowserError);
end;
{=====}
@ -228,7 +225,7 @@ begin
if ShellExecute(0, 'open', GENERAL_DISCUSSION_URL, '', '', SW_SHOWNORMAL) <= 32
{$ENDIF}
then
ShowMessage(cBrowserError);
ShowMessage(RSBrowserError);
end;
end.

39
components/tvplanit/source/vpalarmdlg.lfm
View File

@ -12,6 +12,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
ClientWidth = 410
Color = clWindow
KeyPreview = True
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
Position = poDefault
@ -20,7 +21,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
Left = 24
Height = 57
Top = 136
Width = 112
Width = 144
AutoSize = False
Caption = 'SnoozeCaption'
ParentColor = False
@ -36,16 +37,6 @@ object AlarmNotifyForm: TAlarmNotifyForm
ParentColor = False
ParentFont = False
end
object lNotes: TLabel
Left = 24
Height = 64
Top = 64
Width = 368
AutoSize = False
Caption = 'lNotes'
ParentColor = False
WordWrap = True
end
object lTime: TLabel
Left = 24
Height = 15
@ -83,10 +74,10 @@ object AlarmNotifyForm: TAlarmNotifyForm
TabOrder = 2
end
object SnoozeCombo: TComboBox
Left = 144
Left = 176
Height = 23
Top = 136
Width = 144
Width = 112
ItemHeight = 15
Items.Strings = (
'5 Minutes'
@ -115,6 +106,28 @@ object AlarmNotifyForm: TAlarmNotifyForm
Style = csDropDownList
TabOrder = 3
end
object Panel1: TPanel
Left = 24
Height = 72
Top = 56
Width = 371
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 72
ClientWidth = 371
TabOrder = 4
object lNotes: TLabel
Left = 2
Height = 68
Top = 2
Width = 367
Align = alClient
AutoSize = False
Caption = 'lNotes'
ParentColor = False
WordWrap = True
end
end
object EventDialog: TVpEventEditDialog
Version = 'v1.03'
TimeFormat = tf24Hour

75
components/tvplanit/source/vpalarmdlg.pas
View File

@ -56,9 +56,11 @@ type
lSubject: TLabel;
lNotes: TLabel;
OpenItemBtn: TButton;
Panel1: TPanel;
SnoozeBtn: TButton;
SnoozeCaption: TLabel;
SnoozeCombo: TComboBox;
procedure FormCreate(Sender: TObject);
procedure SnoozeComboChange(Sender: TObject);
procedure SnoozeBtnClick(Sender: TObject);
procedure DismissBtnClick(Sender: TObject);
@ -167,12 +169,28 @@ begin
+ ShortTimeFormat, Event.StartTime);
SnoozeCombo.Items.Clear;
SnoozeCombo.Items.Add(RS1Minute);
SnoozeCombo.Items.Add(Format(RSXMinutes, [5]));
SnoozeCombo.Items.Add(Format(RSXMinutes, [10]));
SnoozeCombo.Items.Add(Format(RSXMinutes, [15]));
SnoozeCombo.Items.Add(Format(RSXMinutes, [30]));
SnoozeCombo.Items.Add(Format(RSXMinutes, [45]));
{
SnoozeCombo.Items.Add(RS5Minutes);
SnoozeCombo.Items.Add(RS10Minutes);
SnoozeCombo.Items.Add(RS15Minutes);
SnoozeCombo.Items.Add(RS30Minutes);
SnoozeCombo.Items.Add(RS45Minutes);
}
SnoozeCombo.Items.Add(RS1Hour);
SnoozeCombo.Items.Add(Format(RSXHours, [2]));
SnoozeCombo.Items.Add(Format(RSXHours, [3]));
SnoozeCombo.Items.Add(Format(RSXHours, [4]));
SnoozeCombo.Items.Add(Format(RSXHours, [5]));
SnoozeCombo.Items.Add(Format(RSXHours, [6]));
SnoozeCombo.Items.Add(Format(RSXHours, [7]));
SnoozeCombo.Items.Add(Format(RSXHours, [8]));
{
SnoozeCombo.Items.Add(RS2Hours);
SnoozeCombo.Items.Add(RS3Hours);
SnoozeCombo.Items.Add(RS4Hours);
@ -180,12 +198,20 @@ begin
SnoozeCombo.Items.Add(RS6Hours);
SnoozeCombo.Items.Add(RS7Hours);
SnoozeCombo.Items.Add(RS8Hours);
SnoozeCombo.Items.Add(RS1Days);
}
SnoozeCombo.Items.Add(RS1Day);
SnoozeCombo.Items.Add(Format(RSXDays, [2]));
SnoozeCombo.Items.Add(Format(RSXDays, [3]));
SnoozeCombo.Items.Add(Format(RSXDays, [4]));
SnoozeCombo.Items.Add(Format(RSXDays, [5]));
SnoozeCombo.Items.Add(Format(RSXDays, [6]));
{
SnoozeCombo.Items.Add(RS2Days);
SnoozeCombo.Items.Add(RS3Days);
SnoozeCombo.Items.Add(RS4Days);
SnoozeCombo.Items.Add(RS5Days);
SnoozeCombo.Items.Add(RS6Days);
}
SnoozeCombo.Items.Add(RS1Week);
SnoozeCombo.ItemIndex := 0;
SnoozeDelay := 5 / MinutesInDay;
@ -198,26 +224,27 @@ end;
procedure TAlarmNotifyForm.SnoozeComboChange(Sender: TObject);
begin
case SnoozeCombo.ItemIndex of
0 : SnoozeDelay := 5 / MinutesInDay; { 5 minutes }
1 : SnoozeDelay := 10 / MinutesInDay; {10 Minutes }
2 : SnoozeDelay := 15 / MinutesInDay; {15 Minutes }
3 : SnoozeDelay := 30 / MinutesInDay; {30 Minutes }
4 : SnoozeDelay := 45 / MinutesInDay; {45 Minutes }
5 : SnoozeDelay := 60 / MinutesInDay; {1 Hour }
6 : SnoozeDelay := 120 / MinutesInDay; {2 Hours }
7 : SnoozeDelay := 180 / MinutesInDay; {3 Hours }
8 : SnoozeDelay := 240 / MinutesInDay; {4 Hours }
9 : SnoozeDelay := 300 / MinutesInDay; {5 Hours }
10: SnoozeDelay := 360 / MinutesInDay; {6 Hours }
11: SnoozeDelay := 420 / MinutesInDay; {7 Hours }
12: SnoozeDelay := 480 / MinutesInDay; {8 Hours }
13: SnoozeDelay := 1.0; {1 day }
14: SnoozeDelay := 2.0; {2 day }
15: SnoozeDelay := 3.0; {3 day }
16: SnoozeDelay := 4.0; {4 day }
17: SnoozeDelay := 5.0; {5 day }
18: SnoozeDelay := 6.0; {6 day }
19: SnoozeDelay := 7.0; {1 week }
0 : SnoozeDelay := 1 / MinutesInDay; { 1 minute }
1 : SnoozeDelay := 5 / MinutesInDay; { 5 minutes }
2 : SnoozeDelay := 10 / MinutesInDay; {10 Minutes }
3 : SnoozeDelay := 15 / MinutesInDay; {15 Minutes }
4 : SnoozeDelay := 30 / MinutesInDay; {30 Minutes }
5 : SnoozeDelay := 45 / MinutesInDay; {45 Minutes }
6 : SnoozeDelay := 60 / MinutesInDay; {1 Hour }
7 : SnoozeDelay := 120 / MinutesInDay; {2 Hours }
8 : SnoozeDelay := 180 / MinutesInDay; {3 Hours }
9 : SnoozeDelay := 240 / MinutesInDay; {4 Hours }
10: SnoozeDelay := 300 / MinutesInDay; {5 Hours }
11: SnoozeDelay := 360 / MinutesInDay; {6 Hours }
12: SnoozeDelay := 420 / MinutesInDay; {7 Hours }
13: SnoozeDelay := 480 / MinutesInDay; {8 Hours }
14: SnoozeDelay := 1.0; {1 day }
15: SnoozeDelay := 2.0; {2 day }
16: SnoozeDelay := 3.0; {3 day }
17: SnoozeDelay := 4.0; {4 day }
18: SnoozeDelay := 5.0; {5 day }
19: SnoozeDelay := 6.0; {6 day }
20: SnoozeDelay := 7.0; {1 week }
end;
end;
{=====}
@ -252,6 +279,12 @@ begin
end;
Close;
end;
procedure TAlarmNotifyForm.FormCreate(Sender: TObject);
begin
SnoozeCombo.Top := SnoozeBtn.Top + (SnoozeBtn.Height - SnoozeCombo.Height) div 2;
end;
{=====}
procedure TAlarmNotifyForm.OpenItemBtnClick(Sender: TObject);

36
components/tvplanit/source/vpcontacteditdlg.lfm
View File

@ -19,14 +19,14 @@ object ContactEditForm: TContactEditForm
Height = 279
Top = 0
Width = 433
ActivePage = tabCustom
ActivePage = tabMain
Align = alClient
TabIndex = 2
TabIndex = 0
TabOrder = 0
OnChange = tsContactsChange
object tabMain: TTabSheet
Caption = '&Main'
ClientHeight = 252
Caption = 'RSMasterData'
ClientHeight = 251
ClientWidth = 425
object NameLbl: TLabel
Left = 8
@ -212,7 +212,7 @@ object ContactEditForm: TContactEditForm
end
object cboxCategory: TComboBox
Left = 136
Height = 22
Height = 23
Top = 224
Width = 121
ItemHeight = 15
@ -221,7 +221,7 @@ object ContactEditForm: TContactEditForm
end
object cboxState: TComboBox
Left = 136
Height = 22
Height = 23
Top = 100
Width = 249
ItemHeight = 15
@ -251,8 +251,8 @@ object ContactEditForm: TContactEditForm
end
end
object tabContact: TTabSheet
Caption = 'Con&tact'
ClientHeight = 252
Caption = 'RSContact'
ClientHeight = 251
ClientWidth = 425
ImageIndex = 1
object EMailLbl: TLabel
@ -266,7 +266,7 @@ object ContactEditForm: TContactEditForm
end
object cboxPhoneLbl1: TComboBox
Left = 8
Height = 22
Height = 23
Top = 8
Width = 121
ItemHeight = 15
@ -275,7 +275,7 @@ object ContactEditForm: TContactEditForm
end
object cboxPhoneLbl2: TComboBox
Left = 8
Height = 22
Height = 23
Top = 32
Width = 121
ItemHeight = 15
@ -284,7 +284,7 @@ object ContactEditForm: TContactEditForm
end
object cboxPhoneLbl3: TComboBox
Left = 8
Height = 22
Height = 23
Top = 56
Width = 121
ItemHeight = 15
@ -293,7 +293,7 @@ object ContactEditForm: TContactEditForm
end
object cboxPhoneLbl4: TComboBox
Left = 8
Height = 22
Height = 23
Top = 80
Width = 121
ItemHeight = 15
@ -338,7 +338,7 @@ object ContactEditForm: TContactEditForm
end
object cboxPhoneLbl5: TComboBox
Left = 8
Height = 22
Height = 23
Top = 104
Width = 121
ItemHeight = 15
@ -363,8 +363,8 @@ object ContactEditForm: TContactEditForm
end
end
object tabCustom: TTabSheet
Caption = 'C&ustom'
ClientHeight = 252
Caption = 'RSCustom'
ClientHeight = 251
ClientWidth = 425
ImageIndex = 2
object CustomLbl1: TLabel
@ -437,13 +437,13 @@ object ContactEditForm: TContactEditForm
end
end
object tabNotes: TTabSheet
Caption = '&Notes'
ClientHeight = 252
Caption = 'RSNotes'
ClientHeight = 251
ClientWidth = 425
ImageIndex = 3
object NoteEdit: TMemo
Left = 8
Height = 238
Height = 237
Top = 8
Width = 409
Anchors = [akTop, akLeft, akRight, akBottom]

17
components/tvplanit/source/vpcontacteditdlg.pas
View File

@ -169,6 +169,11 @@ end;
procedure TContactEditForm.SetCaptions;
begin
tabMain.Caption := RSMasterData;
tabContact.Caption := RSDlgContactEdit;
tabCustom.Caption := RSCustom;
tabNotes.Caption := RSNotes;
OkBtn.Caption := RSOKBtn;
CancelBtn.Caption := RSCancelBtn;
NameLbl.Caption := RSNameLbl;
@ -500,7 +505,17 @@ begin
else
Height := MinFormHeight;
EMailLbl.Left := EMailEdit.Left - EMailLbl.Width;
EMailLbl.Left := EMailEdit.Left - GetLabelWidth(EMailLbl) - 8;
Custom1Edit.Left := CustomLbl4.Left + GetLabelWidth(CustomLbl4) + 8;
Custom2Edit.Left := Custom1Edit.Left;
Custom3Edit.Left := Custom1Edit.Left;
Custom4Edit.Left := Custom1Edit.Left;
Custom1Edit.Width := ClientWidth - 8 - Custom1Edit.Left - 8;
Custom2Edit.Width := Custom1Edit.Width;
Custom3Edit.Width := Custom1Edit.Width;
Custom4Edit.Width := Custom1Edit.Width;
end;
{=====}

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

@ -1930,7 +1930,7 @@ begin
else begin
{ Column sizing happens here...}
{ if the in-place editor is active then kill it. }
if cgInPlaceEditor.Visible then
if Assigned(cgInplaceEditor) and cgInPlaceEditor.Visible then
EndEdit(self);
if cgDragBarNumber = -1 then begin
@ -2094,7 +2094,7 @@ procedure TVpContactGrid.WMKillFocus(var Msg : TWMKillFocus);
procedure TVpContactGrid.WMKillFocus(var Msg : TLMKillFocus);
{$ENDIF}
begin
if not cgInplaceEditor.Visible then
if Assigned(cgInplaceEditor) and not cgInplaceEditor.Visible then
Invalidate;
end;
{=====}
@ -2539,7 +2539,7 @@ begin
{ for simplicity, bail out of editing while scrolling. }
EndEdit(Self);
if cgInplaceEditor.Visible then
if Assigned(cgInplaceEditor) and cgInplaceEditor.Visible then
Exit;
case Msg.ScrollCode of

15
components/tvplanit/source/vpsr.inc
View File

@ -243,6 +243,7 @@ resourcestring
RSZipCodeLbl = 'Zip Code:';
RSCompanyLbl = 'Company:';
RSPositionLbl = 'Position:';
RSMasterData = 'Master data';
{ Print Preview dialog captions }
RSDlgPrintPreview = 'Print Preview';
@ -265,6 +266,14 @@ resourcestring
RSDismissBtn = '&Dismiss';
RSSnoozeBtn = '&Snooze';
RSOpenItemBtn = '&Open Item';
RS1Minute = '1 minute';
RSXMinutes = '%d minutes';
RS1Hour = '1 hour';
RSXHours = '%d hours';
RS1Day = '1 day';
RSXDays = '%d days';
RS1Week = '1 week';
{
RS5Minutes = '5 Minutes';
RS10Minutes = '10 Minutes';
RS15Minutes = '15 Minutes';
@ -285,6 +294,7 @@ resourcestring
RS5Days = '5 Days';
RS6Days = '6 Days';
RS1Week = '1 Week';
}
{ Calendar }
RSCalendarPrevMonth = 'Previous Month';
@ -415,3 +425,8 @@ resourcestring
'like to add one now?'; {!!.01}
RSSelectResource = 'No resource has been selected. Would you ' + {!!.01}
'like to select one now?';
{ AboutBox }
RSBrowserError = 'Unable to start web browser. Make sure you have ' +
'it properly setup on your system.';