Spaltenansicht in einem Hint

[punker76]

Hallo Delphi-Leute (Cracks)!!!

Ich brauche unbedingt Hilfe!!!

Gibt es eine Möglichkeit, in einem Hint (egal welches Control) eine Art Spaltendarstellung zu ermöglichen???

Beispiel: als Hint Fenster

Delphi-Quellcode:

-----------------------------------------------------
|Irgendein Text:          Inhalt      zweiter Inhalt|
|Nochein Text:            Inhalt      zweiter Inhalt|
|Und noch ein Text:       Hallo       zweiter Inhalt|
-----------------------------------------------------

ich danke schon mal im vorraus um Hilfe.


cu punker76

[kiar]

application.hint:='1.zeile '#13#10+'2.zeile';

mal so versuchen.

[MrKnogge]

hast duschon mal

Delphi-Quellcode:

Hint := 'Erste Zeile' + #10#13 + 'ZweiteZeile';

versucht ?

PS: Willkommen in der DP !

[punker76]

Das mit den mehrzeiligen Trenner weiss ich schon (sorry)!

Ich möchte eine Art Spaltendarstellung im Hint, als obs ein Grid währ.

sozusagen alle Texte im gleichen Abstand.

cu punker76

[kiar]

Delphi-Quellcode:

var
  tage : array[1..7] of string;
     i : integer;
     s : String;
 begin
     tage[1]:= 'Montag';
     tage[2]:= 'Dienstag'; 
     tage[3]:= 'Mittwoch';
     tage[4]:= 'Donnerstag'; 
     tage[5]:= 'Freitag'; 
     tage[6]:= 'Sonnabend'; 
     tage[7]:= 'Sonntag';
     s:='Wochentag'
     application.hint := s+ tage[1]+datetostr(now+1]+#13#10+
                         s+ tage[2]+datetostr(now+2];
end;

jetzt stehen im hint

Delphi-Quellcode:

      wochentag montag 12.01.2004
      wochentag dienstag 13.01.2004

hint ist ein string, da hast du alle möglichkeiten

[himitsu]

Da der Tabulator im Hint nicht funktioniert, bleibt noch die Möglichkeit die Zwischewnräume mit Leerzeichen aufzufüllen. (entweder von Hand, oder automatisch)

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
  Function TA(S: String; B: Integer): String;
    Begin
      While TextLaenge(Form1.Font, S) < B do  S := S + ' ';
      Result := S;
    End;

  Begin
    Form1.Hint :=
      TA('123', 30) + TA('abc', 30) + 'xyz'#13 +
      TA('12', 30) + TA('ab', 30) + 'xy'#13 +
      TA('1', 30) + TA('a', 30) + 'x';
  End;

Funktion TextLaenge siehe
Code-Library -> Grafik / Sound / Multimedia -> Länge und Höhe eines Textes (String)

TA erweitert einfach nur den String, bis er mindestens 30 Pixel lang ist.

in TextLaenge(Form1.Font, S) muß der Font angegeben werden, der auch im Hint angezeigt wird, sonst wird nicht richtig gerechnet.
Ich hab hier im Beispiel Form1.Font verwendet, da ich jetzt nicht weiß, wo der Font für die Hint's gespeichert ist.

[punker76]

:-D danke für deine hilfe, das problem besteht nur darin, dass dein tipp nur mit proportionaler schrift funktioniert, zum beispiel 'Courier New'. diese schriftart sieht aber in einem hint nicht toll aus.

cu

[Mario]

Der HTML-Hint von TMS-Software unterstützt die gesuchte Funktion, auch wenn es die Beispiele auf deren Webseite nicht vermuten lassen:
http://www.tmssoftware.com/htmlhint.gif
http://www.tmssoftware.com/

[punker76]

:cry: das kostet aber geld. ich wollte das gerne selber machen.

thanks...

[Mario]

Zitat:

Zitat von punker76

:cry: das kostet aber geld. ich wollte das gerne selber machen.

Jein, die kommerzielle Nutzung kostet Geld, keine Frage, aber nicht kommerziell darf es kostenlos verwendet werden.

[punker76]

:-D Ich hab mich mal ein Wochenende hingesetzt und gab mir meine eigene Komponente geschrieben.
Funktioniert SUPER ;-) :-D

http://jkarger.de/hint.jpg

cu

[Luckie]

Könntets du die eventuell in der Freeware oder sogar OpenSource Sparte anbieten? Wäre nett.

[punker76]

jepp, kein problem, werde es vielleicht heute jedoch nicht schaffen...

[punker76]

So nu isses soweit, der Code steht in folgenden Foren:

1) Code: Spaltenansicht in einem Hint

2) [DELETE]
cu

[edit=Sharky]Link 2 entfernt da Sakura das entsprechende Posting gelöscht hat. Mfg, Sharky[/edit]