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

tvplanit: Fix PrintPreviewDlg not updating when a new format item is selected.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4904 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-03 15:42:06 +00:00
parent 99b58efb54
commit 5bc136ef28
4 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpprtfmtcbox.pas
View File

@@ -170,14 +170,15 @@ end;
procedure TVpPrintFormatComboBox.Change;
var
NewFormat : Integer;
begin
if not Assigned (FControlLink) then
Exit;
NewFormat := FControlLink.Printer.Find (Text);
NewFormat := FControlLink.Printer.Find(Text);
if NewFormat >= 0 then
FControlLink.Printer.CurFormat := NewFormat;
inherited;
end;
function TVpPrintFormatComboBox.GetAbout: string;