unit AppDir;

interface
uses
{$IFDEF MSWINDOWS}
   Windows,
{$ENDIF}
{$IFDEF POSIX}
  Posix.Stdlib,
{$ENDIF}
  SysUtils;

var
  Directory: string;

implementation

{$IFDEF MSWINDOWS}
function GetModuleFileNameStr(Instance: THandle): string;
var
  buffer: array [0..MAX_PATH] of Char;
begin
  GetModuleFileName( Instance, buffer, MAX_PATH);
  Result := buffer;
  Result:=StringReplace(Result,'\\?\','',[]);
end;
{$ENDIF}

initialization
{$IFDEF MSWINDOWS}
  Directory:=IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)));
{$ELSE}
  {$IFDEF POSIX}
    Directory:=IncludeTrailingPathDelimiter(ExtractFilePath(String(AnsiString(realpath(PAnsiChar(AnsiString(ParamStr(0))),nil)))));
  {$ELSE}
    Directory:=ExtractFilePath(ParamStr(0))
  {$ENDIF}
{$ENDIF}

end.

      Bmp:=TBitmap.Create;
      Bmp.PixelFormat:=pf32bit;
      Bmp.Width:=100;
      Bmp.Height:=100;
      Bmp.Canvas.MoveTo(0,0);
      Bmp.Canvas.LineTo(100,100);
      Bmp.Canvas.TextOut(10,10,'123');  <-- Под центосом падает тут.

  procedure TCanvas.Draw(X, Y: Integer; Bmp: TBitmap);
type
  TRGB = packed record B, G, R: byte end;
  TRGBA = packed record B, G, R, A: byte end;
var
  SCol : ^TRGB;
  DCol : ^TRGBA;
var
  i,j : Integer;
begin
  for i:=0 to Bmp.Height-1 do begin
    SCol:=Bmp.Scanline[i];
    DCol:=FBmp.Scanline[i+Y];
    Inc(DCol,X);
    for j:=0 to Bmp.Width-1 do begin
        if (SCol.R<>255) or (SCol.G<>255) or (SCol.B<>255) then begin
        DCol.R:=SCol.R;
        DCol.G:=SCol.G;
        DCol.B:=SCol.B;
        DCol.A:=255;
      end;
      Inc(SCol);
      Inc(DCol);
    end;
  end;
end;

function TCanvas.TextHeight(const Text: string): Integer;
begin
  Result:=trunc(abs(Font.Height)*1.45);
end;


function TCanvas.TextWidth(const Text: string): Integer;
begin
  Result:=Length(Text)*trunc(abs(Font.Height)*0.7);
end;