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/vpprtfmtdlg.pas
View File

@ -47,6 +47,7 @@ type
private
FControlLink: TVpControlLink;
FDrawingStyle: TVpDrawingStyle;
FShowSavePrompt: Boolean;
FWindowState: TWindowState;
protected
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
@ -58,6 +59,7 @@ type
published
property ControlLink : TVpControlLink read FControlLink write SetControlLink;
property DrawingStyle: TVpDrawingStyle read FDrawingStyle write FDrawingStyle default ds3d;
property ShowSavePrompt: Boolean read FShowSavePrompt write FShowSavePrompt default true;
property WindowState : TWindowState read FWindowState write FWindowState default wsNormal;
property Options;
@ -77,6 +79,7 @@ begin
inherited Create(AOwner);
FControlLink := SearchControlLink (Owner);
FDrawingStyle := ds3d;
FShowSavePrompt := true;
FPlacement.Height := 480;
FPlacement.Width := 640;
@ -93,7 +96,9 @@ begin
PrtFmtDlg.WindowState := WindowState;
PrtFmtDlg.ControlLink := ControlLink;
PrtFmtDlg.DrawingStyle := FDrawingStyle;
PrtFmtDlg.ShowSavePrompt := FShowSavePrompt;
Result := PrtFmtDlg.Execute;
if Result then FShowSavePrompt := PrtFmtDlg.ShowSavePrompt;
finally
PrtFmtDlg.Free;
end;