paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 19:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printers: removed dangling semicolon after "then", patch by n7800, merge request !403

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-12-14 22:27:13 +03:00
parent b807160141
commit c53ead5cc8
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/unix/framepagesetup.pas
View File

@ -154,7 +154,7 @@ begin
// center
vCenter := Height div 2;
// adjust center
if CurPageHeight > CurPageWidth then;
if CurPageHeight > CurPageWidth then
vCenter := vCenter - (txtHeight + cDimLineHeight + cPadding) div 2;
// compute height/width
fHeight := Height - cTopBottomMargin * 2 - txtHeight - cDimLineHeight - cPadding;