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

GridPrinter: Minor cleanup.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8767 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-21 19:03:24 +00:00
parent a09c467161
commit 352fa06659
5 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/gridprinter/examples/stringgrid/main.lfm
View File

@ -56,14 +56,15 @@ object Form1: TForm1
end
object GridPrinter1: TGridPrinter
Grid = StringGrid1
Footer.Font.Height = -11
Header.Font.Height = -11
Footer.FontSize = 0
Header.Text = 'test||'
Header.FontSize = 0
ShowPrintDialog = gpdPrintDialog
Left = 168
Top = 96
end
object GridPrintPreviewDialog1: TGridPrintPreviewDialog
FormParams.PixelsPerInch = 96
GridPrinter = GridPrinter1
Left = 288
Top = 96

3
components/gridprinter/examples/stringgrid/main.pas
View File

@ -6,8 +6,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls,
ComboEx,
PrintersDlgs, GridPrn, GridPrnPreviewForm, GridPrnPreviewDlg;
PrintersDlgs, GridPrn, GridPrnPreviewDlg;
type

7
components/gridprinter/source/gridprn.pas
View File

@ -5,7 +5,8 @@ unit GridPrn;
interface
uses
Classes, SysUtils, Types, Graphics, StdCtrls, Grids, Printers, PrintersDlgs;
Classes, SysUtils, LCLVersion, Types, Graphics, StdCtrls, Grids,
Printers, PrintersDlgs;
type
TGridPrinter = class; // forward declaration
@ -1411,7 +1412,11 @@ var
begin
// Determine size of checkbox
details := ThemeServices.GetElementDetails(arrtb[ACheckState]);
{$IF LCL_FullVersion >= 2030000}
cSize := ThemeServices.GetDetailSizeForPPI(Details, ScreenInfo.PixelsPerInchX);
{$ELSE}
cSize := ThemeServices.GetDetailSize(Details);
{$IFEND}
cSize.cx := {%H-}ScaleX(cSize.cx);
cSize.cy := {%H-}ScaleY(cSize.cy);
// Position the checkbox within the given rectangle, ARect.

2
components/gridprinter/source/gridprnpreviewform.lfm
View File

@ -103,6 +103,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
BorderSpacing.Top = 2
BevelOuter = bvNone
Color = clRed
ParentBackground = False
ParentColor = False
TabOrder = 0
end
@ -268,6 +269,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
ClientHeight = 619
ClientWidth = 897
Color = clAppWorkspace
ParentBackground = False
ParentColor = False
TabOrder = 1
TabStop = True

2
components/gridprinter/source/gridprnpreviewform.pas
View File

@ -5,7 +5,7 @@ unit GridPrnPreviewForm;
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Types, LazLoggerBase,
Classes, SysUtils, Forms, Controls, Graphics, Types,
StdCtrls, ExtCtrls, ComCtrls, Dialogs, Menus, ActnList,
GridPrn;