Hint mit Tabulator formatieren

[bernau]

Zitat von ralfschwalbe:

da wirst Du Dein eigenes THintWindow bauen müssen...

Das denke auch....

[David Martens]

Du kannst dir ja die Breite der einzelnen Texte berechnen und dann zu einer gestimmten Breite auffüllen.

Hier wie ich die Breite der DropdownListe für ComboBoxen ermittle:

Delphi-Quellcode:

procedure OnComboBoxDropdown(Sender: TObject);
var
  WMF       : TMetafile;       // virtuelle WMF bzw. EMF Datei (enthält das Image)
  WMFCanvas : TMetafileCanvas; // virtuelle Oberfläche des Metafiles
  i, Width : integer;
begin
  WMF       := TMetafile.Create;
  WMFCanvas := TMetafileCanvas.Create( WMF, 0);

  WMFCanvas.Brush.Style := bsClear;
  WMFCanvas.Font := TComboBox(Sender).Font;

  Width := TComboBox(Sender).Width;

  for i := 0 to TComboBox(Sender).Items.Count - 1 do
  begin
    Width := max(Width ,WMFCanvas.TextWidth(TComboBox(Sender).Items[i]) + 25);
  end;

  TComboBox(Sender).Perform(CB_SETDROPPEDWIDTH, Width, 0);

  WMFCanvas.Free;
  WMF.Free;
end;

Im Grunde reicht dir WMFCanvas.TextWidth(String) mit den richtigen Fonteinstellungen für die einzelnen Texte und das muß dann nur mit Leerzeichen sinnvoll aufgefüllt werden.

[idefix2]

Ich fürchte, mit Leerzeichen bekommt man bei Zeichensätzen mit variabler Buchstabenbreite nichts ordentlich untereinander

[David Martens]

Ich hab mal ein wenig gestöbert und das hier gefunden: Creating custom hints for yoru application/component

Ein bisschen Modifikation bei:

Delphi-Quellcode:

sHeight := HintWindow.Canvas.TextHeight(s) * sList.Count;
HintWindow.ActivateHint(
  Rect(P.X,P.Y, P.x + sWidth + 6, P.Y + sHeight),s);

sollte eigentlich reichen.

[BerndS]

Hallo Bernau, ich habe bei mir ein einfaches TTabHintWindow drin. Sieht dann so aus:

Delphi-Quellcode:

  TTabHintWindow=class(THintWindow) // Stellt auch Tabs mit dar
  public
    function CalcHintRect(MaxWidth: Integer; const AHint: string;AData: Pointer): TRect; override;
    procedure Paint; override;
  end;

Delphi-Quellcode:

function TTabHintWindow.CalcHintRect(MaxWidth: Integer;
  const AHint: string; AData: Pointer): TRect;
begin
  Result := Rect(0, 0, MaxWidth, 0);
  DrawText(Canvas.Handle, PChar(AHint), -1, Result, DT_CALCRECT or DT_LEFT or DT_EXPANDTABS or
    DT_WORDBREAK or DT_NOPREFIX or DrawTextBiDiModeFlagsReadingOnly);
  Inc(Result.Right, 6);
  Inc(Result.Bottom, 2);
end;

procedure TTabHintWindow.Paint;
var
  R: TRect;
begin
  R := ClientRect;
  Inc(R.Left, 2);
  Inc(R.Top, 2);
  Canvas.Font.Color := clInfoText;
  DrawText(Canvas.Handle, PChar(Caption), -1, R, DT_LEFT or DT_NOPREFIX or DT_EXPANDTABS or
    DT_WORDBREAK or DrawTextBiDiModeFlagsReadingOnly);
end;

Delphi-Quellcode:

initialization
  HintWindowClass:=TTabHintWindow;// Tabulatoren werden unterstützt
end.

Ist schon recht alt, daher kann ich nicht sagen, wo das her ist.
Gruß Bernd

[bernau]

Zitat von BerndS:

Hallo Bernau, ich habe bei mir ein einfaches TTabHintWindow drin.

Perfekt. Das war's. Danke!

[bernau]

Habe doch noch ein Problem. Wenn ich folgendes anzeigen will, sind die Texte nach dem Tabstop nicht mehr untereinander

Delphi-Quellcode:

TextZumAnzeigen :=
  'Spalte1'+#9+'Spalte2'+#13+#10+
  'ein gaaaaaaaaaaaaaanz langer Text'+#9+'Spalte2';

Gibt es so was wie LB_SETTABSTOPS für Listboxen?