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

Fix compilation of trunk under linux

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4120 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2015-05-09 00:17:07 +00:00
parent 62e4a54c9e
commit 9253e59e67
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -34459,10 +34459,14 @@ begin
S := S + Format('\red%d\green%d\blue%d;', [J and $FF, (J shr 8) and $FF, (J shr 16) and $FF]);
end;
S := S + '}';
{$ifndef INCOMPLETE_WINAPI}
if (GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_IMEASURE, @LocaleBuffer[0], Length(LocaleBuffer)) <> 0) and (LocaleBuffer[0] = '0'{metric}) then
S := S + '\paperw16840\paperh11907'// This sets A4 landscape format
else
S := S + '\paperw15840\paperh12240';//[JAM:marder] This sets US Letter landscape format
{$else}
S := S + '\paperw16840\paperh11907';// This sets A4 landscape format
{$endif}
// Make sure a small margin is used so that a lot of the table fits on a paper. This defines a margin of 0.5"
S := S + '\margl720\margr720\margt720\margb720';
Result := S + Buffer.AsString + '}';