paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-17 17:08:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printers, fix typo in selectprinter sample

Browse Source 
git-svn-id: trunk@19006 -
This commit is contained in:
jesus 2009-03-16 05:29:02 +00:00
parent d75f823e24
commit e451ddd26b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/printers/samples/dialogs/frmselprinter.pas
View File

@ -88,7 +88,7 @@ var
Ratio: Double; Ratio: Double;
begin begin
if (AWidth<=0) or (AHeight<=0) then begin if (AWidth<=0) or (AHeight<=0) then begin
if Graphic.Height=0 then if Graphic.Width=0 then
ratio := 1 ratio := 1
else else
ratio := Graphic.Height/Graphic.Width; ratio := Graphic.Height/Graphic.Width;