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"/> <Type Value="LFM"/>
</Item64> </Item64>
</Files> </Files>
<i18n>
<EnableI18N Value="True"/>
<OutDir Value="../languages"/>
<EnableI18NForLFM Value="True"/>
</i18n>
<RequiredPkgs Count="3"> <RequiredPkgs Count="3">
<Item1> <Item1>
<PackageName Value="FCL"/> <PackageName Value="FCL"/>

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

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

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

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

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

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

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

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

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

@ -169,6 +169,11 @@ end;
procedure TContactEditForm.SetCaptions; procedure TContactEditForm.SetCaptions;
begin begin
tabMain.Caption := RSMasterData;
tabContact.Caption := RSDlgContactEdit;
tabCustom.Caption := RSCustom;
tabNotes.Caption := RSNotes;
OkBtn.Caption := RSOKBtn; OkBtn.Caption := RSOKBtn;
CancelBtn.Caption := RSCancelBtn; CancelBtn.Caption := RSCancelBtn;
NameLbl.Caption := RSNameLbl; NameLbl.Caption := RSNameLbl;
@ -500,7 +505,17 @@ begin
else else
Height := MinFormHeight; 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; end;
{=====} {=====}

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

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

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

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