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

TvPlanit/FullDemo: Fix updating of the MonthView popup menu translation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8295 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-14 08:31:42 +00:00
parent ae38604d97
commit d427be1d38
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/tvplanit/source/vpmonthview.pas
View File

@ -269,6 +269,7 @@ type
{ Popup menu } { Popup menu }
procedure InitializeDefaultPopup; procedure InitializeDefaultPopup;
procedure PopupDropDownEvent(Sender: TObject);
procedure PopupToday(Sender: TObject); procedure PopupToday(Sender: TObject);
procedure PopupNextMonth(Sender: TObject); procedure PopupNextMonth(Sender: TObject);
procedure PopupPrevMonth(Sender: TObject); procedure PopupPrevMonth(Sender: TObject);
@ -521,6 +522,7 @@ begin
Width := 300; Width := 300;
FDefaultPopup := TPopupMenu.Create(Self); FDefaultPopup := TPopupMenu.Create(Self);
FDefaultPopup.OnPopup := PopupDropDownEvent;
Self.PopupMenu := FDefaultPopup; Self.PopupMenu := FDefaultPopup;
LoadLanguage; LoadLanguage;
@ -1211,6 +1213,8 @@ procedure TVpMonthView.InitializeDefaultPopup;
var var
NewItem : TMenuItem; NewItem : TMenuItem;
begin begin
FDefaultPopup.Items.Clear;
if RSToday <> '' then begin if RSToday <> '' then begin
NewItem := TMenuItem.Create(Self); NewItem := TMenuItem.Create(Self);
NewItem.Caption := RSToday; NewItem.Caption := RSToday;
@ -1254,7 +1258,11 @@ begin
FDefaultPopup.Items.Add(NewItem); FDefaultPopup.Items.Add(NewItem);
end; end;
end; end;
{=====}
procedure TVpMonthView.PopupDropDownEvent(Sender: TObject);
begin
InitializeDefaultPopup;
end;
procedure TVpMonthView.PopupToday(Sender: TObject); procedure TVpMonthView.PopupToday(Sender: TObject);
begin begin