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

GridPrinter: Beginning to add documentation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8646 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-12-12 23:27:06 +00:00
parent 91007cf405
commit 266cfd42a1
9 changed files with 721 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -484,7 +484,7 @@ const
Result := StringReplace(Result, AParam, s, [rfReplaceAll, rfIgnoreCase]);
end;
begin
begin
Result := FSectionText[AIndex];
Result := StringReplace(Result, '$DATE', DateToStr(Now), [rfReplaceAll, rfIgnoreCase]);
Result := StringReplace(Result, '$TIME', TimeToStr(Now), [rfReplaceAll, rfIgnoreCase]);