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

tvplanit: Add "Don't ask again" checkbox to VpPrtFmt editor save prompt by using a TTaskDialog. Update resource strings and translations.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8540 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-12 11:33:16 +00:00
parent 521c9e0d90
commit 03e1ff9059
25 changed files with 479 additions and 176 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/design/vpprtfmted.pas
View File

@ -74,14 +74,15 @@ var
frmPrtFmtEd : TVpPrtFmtEditor;
{$IFDEF VERSION6}
procedure EditPrtFmts(Designer : TIDesigner; Link : TVpControlLink);
procedure EditPrtFmts(Designer: TIDesigner; Link: TVpControlLink);
{$ELSE}
procedure EditPrtFmts(Designer : TIFormDesigner; Link : TVpControlLink);
procedure EditPrtFmts(Designer: TIFormDesigner; Link: TVpControlLink);
{$ENDIF}
begin
frmPrtFmtEd := TVpPrtFmtEditor.Create(Application);
frmPrtFmtEd.Designer := Designer;
frmPrtFmtEd.ControlLink := Link;
frmPrtFmtEd.ShowSavePrompt := false;
frmPrtFmtEd.Execute;
if Assigned(Designer) then
Designer.Modified;