Textbreite innerhalb der Titelleiste

[kub]

Hallo zusammen,

Ich will mir ein Meldungsfenster, ähnlich wie bei MessageBox erstellen, dem ich u.a. eine Meldung und eine Caption übergeben kann. Mein Problem liegt in der automatischen Anpassung der Fensterbreite an die Caption.

Bei der Anpassung an die Breite des Meldungslabels kann ich einfach Label.Canvas.Textwidth verwenden, wie kann ich aber die erforderliche Breite für die Caption des Fensters ermitteln?

Wahrscheinlich wurde die Frage schon oft gestellt und beantwortet, aber ich finde die Antwort so nicht.

Gruß
Thomas

[Tobinator]

Wenn du in deinem Canvas die Font-Einstellungen umstellst, so wie in der Titelleiste (also Canvas.Font.Name='Schriftart der Titelleiste'; usw...) dann könntest du wieder mit Canvas.TextWidth die breite des Textes in der Titelleiste ermitteln. Dann musst du nur noch den Platz für das X und den Rand usw. mit dazu addieren und dann müsste das passen.
Also so würde ich das machen.

Tobi.

[negaH]

Die API Funktion SystemParametersInfo() müsste dir alles liefern um diese Schriftbreite ausrechnen zu können.

Gruß Hagen

[kub]

Danke für Eure Tipps. Mit folgender Funktion kann ich die Textbreite ermitteln.

Delphi-Quellcode:

function TForm1.GetCaptionWidth: integer;
var
  MyStruct: TNonClientMetrics;
begin
  MyStruct.cbSize:=SizeOf(TNonClientMetrics);
  SystemParametersInfo(
    SPI_GETNONCLIENTMETRICS,
    SizeOf(TNonClientMetrics),
    @MyStruct,
    0);
  Self.Canvas.Font.Handle := CreateFontIndirect (MyStruct.lfCaptionFont);
  Result:= Self.Canvas.TextExtent (Self.Caption).cx;
end;

Ich bin mir jetzt nur nicht sicher, ob ich mit CreateFontIndirect ein Memoryleak erzeuge. Wenn ja, wie kann ich den erzeugten Font freigeben, ohne den Font meines Forms zu zerstören?

[negaH]

Das sollte über den TFont vom TCanvas erschlagen sein. Du weist ja das .Handle zu und die VCL kümmert sich dann darum, ergo schon richtig wie du das gemacht hast. Ich finde keinen Fehler in deinem Source, mal abgesehen davon das du das explizite Self weglassen könntest. Und eben den Punkt das alle Zeichenroutinen die später auf TForm.Canvas aufsetzen nun mit dem Font der Titelzeile arbeiten.

Gruß Hagen

Delphi-Quellcode:

function TForm1.GetCaptionWidth: integer;
var
  Metrics: TNonClientMetrics;
begin
  Metrics.cbSize := SizeOf(Metrics);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(Metrics), @Metrics, 0);
  Canvas.Font.Handle := CreateFontIndirect(Metrics.lfCaptionFont);
  Result := Canvas.TextExtent(Caption).cx; 
  Canvas.Font.Assign(Font); // originalen Font aus TForm.Font restaurieren
end;

[David Martens]

Also ich hole mir die Textbreite immer so:

Delphi-Quellcode:

function GetTextWidth(Text: string; Font: TFont): integer;
var
  WMF       : TMetafile;       // virtuelle WMF bzw. EMF Datei (enthält das Image)
  WMFCanvas : TMetafileCanvas; // virtuelle Oberfläche des Metafiles
begin
  WMF       := TMetafile.Create;
  WMFCanvas := TMetafileCanvas.Create(WMF, 0);

  WMFCanvas.Brush.Style := bsClear;
  WMFCanvas.Font := Font;

  Result := WMFCanvas.TextWidth(Text);

  WMFCanvas.Free;
  WMF.Free;
end;