<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>I think there ara som issues with the fonts.
<br>
<br>
frmreportdesignermain.pp around line 395
<br>
<br>
if gTTFontCache.SearchPath.Count=0 then
<br>
begin
<br>
{$IFDEF UNIX}
<br>
gTTFontCache.SearchPath.Add(ExtractFilePath(ParamStr(0))+'..<i
class="moz-txt-slash"><span class="moz-txt-tag">/</span>demos/fonts<span
class="moz-txt-tag">/</span></i>');
<br>
gTTFontCache.SearchPath.Add(GetUserDir + '.fonts/');
<br>
gTTFontCache.SearchPath.Add('<i class="moz-txt-slash"><span
class="moz-txt-tag">/</span>usr/share/fonts/truetype/ubuntu-font-family<span
class="moz-txt-tag">/</span></i>');
<br>
gTTFontCache.SearchPath.Add('<i class="moz-txt-slash"><span
class="moz-txt-tag">/</span>usr/share/fonts/truetype/dejavu<span
class="moz-txt-tag">/</span></i>');
<br>
{$ENDIF}
<br>
end;
<br>
if (gTTFontCache.Count=0) then
<br>
gTTFontCache.BuildFontCache; // calls directly to fpTTF
<br>
<br>
in fpTTF
<br>
<br>
procedure TFPFontCacheList.BuildFontCache;
<br>
var
<br>
lPath: String;
<br>
i: integer;
<br>
begin
<br>
if FSearchPath.Count < 1 then
<br>
raise ETTF.Create(rsNoSearchPathDefined); // here is the
exception raised
<br>
<br>
I think in windows is no searchpath definded by default. The lines
in should: because its also true for windows.
<br>
<br>
if gTTFontCache.SearchPath.Count=0 then
<br>
begin
<br>
gTTFontCache.SearchPath.Add(ExtractFilePath(ParamStr(0))+'..<i
class="moz-txt-slash"><span class="moz-txt-tag">/</span>demos/fonts<span
class="moz-txt-tag">/</span></i>');
<br>
gTTFontCache.SearchPath.Add(GetUserDir + '.fonts/');
<br>
{$IFDEF UNIX}
<br>
gTTFontCache.SearchPath.Add('<i class="moz-txt-slash"><span
class="moz-txt-tag">/</span>usr/share/fonts/truetype/ubuntu-font-family<span
class="moz-txt-tag">/</span></i>');
<br>
gTTFontCache.SearchPath.Add('<i class="moz-txt-slash"><span
class="moz-txt-tag">/</span>usr/share/fonts/truetype/dejavu<span
class="moz-txt-tag">/</span></i>');
<br>
{$ENDIF}
<br>
end; <br>
</p>
<p>---------------------------------</p>
<p>If i say create a new report, another issue is, the DPI settings
in Ruler are not initialised or set. So you get un runtimeerror
here</p>
<p>procedure TDrawRuler.RecalcParams;<br>
var I:Integer;<br>
begin<br>
FPPU:=PixelsPerUnit(DPI,FUnits); // DPI is zero<br>
FMajorTicks:=(DPI/FPPU); //<- FFPPU is zero
-> divison by zero!<br>
I:=Trunc(FMajorTicks);<br>
case I of<br>
<br>
</p>
<p>Fix: <br>
</p>
<p>constructor TDrawRuler.Create(ACanvas: TCanvas);<br>
begin<br>
FCanvas:=ACanvas;<br>
FFont:=TFont.Create;<br>
Color:=clWhite;<br>
FTickColor:=cldkGray;<br>
FType:=rtTop;<br>
FUnits:=ruCm;<br>
FZeroOffset:=0;<br>
FDPI:=96; //<--- should be an basic value<br>
RecalcParams;<br>
end;<br>
<br>
</p>
<p><br>
Andreas
<br>
</p>
</body>
</html>