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;

[negaH]

Das gibt dir aber nicht die Textbreite mit der Schriftart in der Titelzeile = Non Client Area eines Fensters zurück. Davon abgesehen wäre es dann sinnvoller über einen TBitmap.Canvas zu gehen statt über die langsammen WMF/EMFs. Der einzige Nachteil über TForm.Canvas zu gehen ist der das das TForm.Handle vorher alloziert sein muß. Unter Umständen, wenn man mit kubs Methode arbeitet, und das TForm noch ohne Handle=hWnd ist, zb. beim Laden aus dem DFM, wird intern über .HandleNeeded das TForm.Handle zu frühzeitig erzeugt. Das kann dann einige unerwünschte Nebenwirkungen mit sich bringen.

Gruß Hagen

[David Martens]

Also ich hab mal beide Varianten gegenüber gestellt.

Angepasst an meine Combobox mit 7.000.000 Zellen (7 mal 1.000.000).

einmal:

Delphi-Quellcode:

var
  WMF       : TMetafile;       // virtuelle WMF bzw. EMF Datei (enthält das Image)
  WMFCanvas : TMetafileCanvas; // virtuelle Oberfläche des Metafiles
  i, j, iWidthTest : integer;

begin
  WMF       := TMetafile.Create;
  WMFCanvas := TMetafileCanvas.Create(WMF, 0);

  WMFCanvas.Brush.Style := bsClear;

  WMFCanvas.Font  := Self.Font;

  for i := 0 to FGrid.RowCount - 1 do
  begin
    for j := 1 to FGrid.ColCount - 1 do
    begin
      if FGrid.ColWidths[j] < WMFCanvas.TextWidth(FGrid.Cells[j, i]) + 9 then
        if WMFCanvas.TextWidth(FGrid.Cells[j, i]) + 5 < FMaxColWidth then
        begin
          FGrid.ColWidths[j] := WMFCanvas.TextWidth(FGrid.Cells[j, i]) + 9;
        end
        else
        begin
          FGrid.ColWidths[j] := FMaxColWidth;
        end;
    end;
  end;

  WMFCanvas.Free;
  WMF.Free;
  ...

und dann:

Delphi-Quellcode:

var
  i, j, iWidthTest : integer;
  Metrics : TNonClientMetrics;
begin
  Metrics.cbSize := SizeOf(Metrics);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(Metrics), @Metrics, 0);
  Canvas.Font := Font;

  for i := 0 to FGrid.RowCount - 1 do
  begin
    for j := 1 to FGrid.ColCount - 1 do
    begin
      if FGrid.ColWidths[j] < Canvas.TextExtent(FGrid.Cells[j, i]).cx + 9 then
        if Canvas.TextExtent(FGrid.Cells[j, i]).cx + 5 < FMaxColWidth then
        begin
          FGrid.ColWidths[j] := Canvas.TextExtent(FGrid.Cells[j, i]).cx + 9;
        end
        else
        begin
          FGrid.ColWidths[j] := FMaxColWidth;
        end;
    end;
  end;
  ...

mit meinem WMF bin ich NICHT signifikant schneller. Meine Variante braucht 4,1.. e-5 und die Metrics braucht 4,2.. e-5.

[negaH]

@David:

erstmal gehts nicht um schneller oder langsammer sondern um die Frage: ist die so ermitteltete Breite eines Textes identisch zur Breite wenn man sie in der Schriftart in der Titelzeile eines Fenster zeichnen würde. Und die Antwort ist, nein. Du weist dem WMF Canvas nur den Font deklariert im TForm zu und nicht den den das Windows OS zum Zeichnen der Titelzeile verwendet. (quasi Thema verfehlt)

Es gibt nur eine Methode das zu machen:
1.) mit SystemParamatersInfo() den Font als Struktur vom Betriebssystem holen
2.) diese Struktur und ein GDI Font Handle mit CreateFontIndirekt() umwandlen
3.) diese Handle einen Canvas.Font.Handle zuweisen oder direkt über das Windows GDI API das Gleiche ohne Umwege über den TCanvas.Font machen.

Nun streiche mal all diese Funktinen aus Kubs Funktion heraus und schau was im Vergleich zu deinem Vorschlag übrig bleibt. Ich sage es nur ungern so deutlich, es bleibt ne Menge heiße Luft die keinerlei Vorteile bringt, eher Nachteile.

Angenommen man möchte die Breite eines Textes im Font des TForms ermitteln, dann geht das am einfachsten so:

Delphi-Quellcode:

funcntion TForm1.GetTextWidth(const Text: String): Integer;
begin
  Result := Canvas.TextWidth(Text);
end;

Also ein Einzeiler der exakt das gleiche Resultat bringt wie dein Source !

Gruß Hagen

PS: verzeih mir bitte die eventuell harten Worten, aber es ist nunmal nicht anders.

[kub]

Hi,
vielen Dank für eure Hilfe!

Ich werde bei der von Hagen verbesserten Funktion bleiben. Trotzdem danke für alle Vorschläge.

Gruß
Thomas