GridPrinter: Add xml docs for the GridPrintPreviewDialog.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8649 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-12-14 18:37:53 +00:00
parent 5f4edeff99
commit b6cbe7c8aa
3 changed files with 53 additions and 0 deletions

View File

@@ -206,6 +206,7 @@ const
SPACE_CHECKMARK = ' ' + CHECKMARK;
{ Returns true when X1 is in range between X2-Delta and X2+Delta. }
function InRange(X1, X2, Delta: Integer): Boolean; inline;
begin
Result := (X1 >= X2-Delta) and (X1 <= X2+Delta);
@@ -213,6 +214,7 @@ end;
{ Returns X if it is in the range between X1 and X2, otherwise either X1 or X2,
depending on wheter X is <X1 or >X2. }
function EnsureRange(X, X1, X2: Integer): Integer;
begin
if X < X1 then
@@ -226,6 +228,7 @@ end;
{ Appends a checkmark to the given caption string if AEnable is true.
Meant to better show the checked state of menu items having icons. }
function MarkAsChecked(ACaption: String; AEnable: Boolean): String;
begin
if AEnable then