Hallo!
Wenn alle vor mir gegebenen Tipps fehlschlagen sollten, was ich nicht glaube, kannst Du noch folgendes machen:
Delphi-Quellcode:
constructor TMainWindow.Create(ADisplay: TDefDisplay);
//----------------------------------------------------------------
var ATSizeVar: TSize; //Eine Variable vom richtigen Typ definieren
//----------------------------------------------------------------
begin
inherited Create;
Display := ADisplay;
Font := Display.CreateFont('-*-' + Display.GetDefaultFontName(fcSerif) +
'-*-r-normal--36-*-*-*-*-*-iso8859-1');
Window := ADisplay.DefaultScreen.CreateWindow(nil, wtWindow);
Window.Title := 'fpGFX Hello World example';
Window.OnPaint := Paint;
Window.Canvas.SetFont(Font);
TextSize.cx := Window.Canvas.TextWidth(HelloWorldString);
TextSize.cy := Window.Canvas.FontCellHeight;
Window.SetClientSize( gfxBase.Size( (TextSize.cx * 3) div 2, TextSize.cy * 2) );
ATSizeVar.cx := 0; //--- Diese Variable mit dem zu ---
ATSizeVar.cy := 0; //--- übergebenden Wert belegen ---
//Und dann statt Size(0,0) gleich ATSizeVar einsetzen. GGF mit Typumwandlung!
TGDIWindow(Window).SetMinMaxClientSize( gfxBast.TSize(TextSize), TSize(ATSizeVar) );
|
Window.Show; |--- und hier
end; --- einsetzen
Na, dann hoffe ich mal, das es dann klappt!
profmaster