You've already forked lazarus-ccr
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:
@@ -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
|
||||
|
Reference in New Issue
Block a user