Text fett/bold in Hint

CodexX · Beiträge: 118 WinXP Delphi XE

Ich würde gerne Text in einem Hint fett hervorheben können. Von Haus aus geht das wohl nicht und große Komponenten möchte ich deswegen nicht unbedingt einbingen müssen.
Was ist die einfachste Methode? Vielleicht wurde das schon irgendwo beantwortet, ich habe leider nichts Passendes gefunden...

Calculon · Verfasst: Do 07.02.08 00:07

Hi,

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
  screen.HintFont.Style := [fsbold];
end;

Gruß

Calculon
--

_________________
Hallo Mutti

Lannes · Verfasst: Do 07.02.08 00:25

Hallo,

wenn Du nur Teile fett hervorheben möchtest, hilft das weiter:
swissdelphicenter: [url=www.swissdelphicente...php?id=1390]...einen grafischen Hint erstellen?
[/url]

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

CodexX · Beiträge: 118 WinXP Delphi XE

Mir geht es tatsächlich darum, nur bestimmte Testteile fett darzustellen.
Also etwas wie:

Zitat:

Titel1
Ein bisschen Text

Titel2
Noch mehr Text

Aber in dem Beispiel bei SDC sehe ich auch nur die Möglichkeit, diese Eigenschaften für das ganze Hint-"Fenster" festzulegen.
Ich bräuchte die Stilfestlegung eben gezielt...

Bernhard Geyer · Beiträge: 721 Erhaltene Danke: 3

CodexX hat folgendes geschrieben:

Aber in dem Beispiel bei SDC sehe ich auch nur die Möglichkeit, diese Eigenschaften für das ganze Hint-"Fenster" festzulegen.
Ich bräuchte die Stilfestlegung eben gezielt...

Entweder viel selbst implementieren oder fertige Komponenten wie vom ElPack verwenden die hier HTML-Code unterstützen.

CodexX · Beiträge: 118 WinXP Delphi XE

Bernhard Geyer hat folgendes geschrieben:

Entweder viel selbst implementieren ...

Ja, daran scheiter's ja leider gerade.

Bernhard Geyer hat folgendes geschrieben:

... oder fertige Komponenten wie vom ElPack verwenden die hier HTML-Code unterstützen.

149$ für eine Fett-Markierung ...

Also ich sehe ja in dem SDC Beispiel, wie man die Klasse ableiten kann, aber ich habe leider keine Idee, wie man die Markierungen Zeilenweise oder Wortweise festlegen könnte. Deswegen ja meine Bitte um Hilfe...

Yogu · Verfasst: Do 07.02.08 18:01

In Paint kannst du den Text komplett selber schreiben. Also auch unterschiedlich formatieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var i, X, Y: Integer;
const
  BoldChar = '$' // Zeichen für fett an- und ausmachen

Canvas.Font.Style := Canvas.Font.Style - [fsBold]; // Nicht fett am anfang
X := 0; // Linke Position auf null

for i := 1 to Length(Caption) do
  if Caption[i] = BoldChar then                         // Wenn Fett-Zeichen
  begin
    if not ([fsBold] in Canvas.Font.Style) then         // Wenn noch nicht fett,
      Canvas.Font.Style = Canvas.Font.Style + [bsBold]  // dann fett;
    else                                                // sonst
      Canva.sFont.Style = Canvas.Font.Style - [bsBold]; // nicht fett.
  end
  else if Caption[i] = #13 then          // Wenn Zeilenumbruch
  begin
    inc(Y, Canvas.Font.Height);          // Um Zeilenhöhe erhöhen
    X := 0;                              // X wieder auf links setzen
  end
  else                                   // Wenn anderes Zeichen
  begin
    Canvas.TextOut(X, Y, Caption[i];     // Zeichen an Position anzeigen
    inc(X, Canvas.TextWidth(Caption[i]); // Position erneuern
  end;

CodexX · Beiträge: 118 WinXP Delphi XE

OK, wir kommen der Sache näher.

Die gewünschten Bereiche werden nun richtig markiert.
Leider geht die Möglichkeit des Zeilenumbruchs in einem Textstring verloren:

markieren

Delphi-Quelltext

1:	Caption := 'Erste Zeile'+#13#10+'Zweite Zeile'

ignoriert den Zeilenumbruch einfach. Wie kriegt man das wieder hin?
Ja, man könnte das TextOut für jede gewünschte Zeile neu aufrufen, aber der gesamte Text soll ja nur in einem Textstring drinstehen und damit sollte Caption auch nur ein Mal von TextOut ausgegeben werden.

Yogu · Verfasst: Do 07.02.08 19:40

Ok, das hab ich vergessen. Habs hinzugefügt, siehe mein erster Post.

CodexX · Beiträge: 118 WinXP Delphi XE

edit: Okay, passt. Danke sehr!

CodexX · Beiträge: 118 WinXP Delphi XE

Gut, das funktioniert jetzt auf der MainForm und auf den UnterForms, aber leider nicht beim Tooltipp des TrayIcons (TCoolTrayIcon). Wie weise ich das dem explizit zu?

Yogu · Verfasst: Do 07.02.08 22:56

Ich glaube, die Hints kannst du da nicht verändern. So wie das aussieht, regelt Windows das komplett Du kannst aber auf das MouseMove-Ereignis reagieren und deinen Toolip manuell anzeigen lassen.

CodexX · Beiträge: 118 WinXP Delphi XE

Hm, das ist ja doof. Na dann versuche ich mal herauszufinden, wie man einen Tooltipp gezielt an einer Stelle anzeigen kann...

Zorro · Beiträge: 76 Win 2000, Win XP Pro Delphi 7 Architect

Yogu hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

...
    if Canvas.Font.Style = [] then  // Wenn noch nicht fett,
      Canvas.Font.Style = [bsBold]  // dann fett;
    else                            // sonst
      Canva.sFont.Style = [];       // fett.

Würde ich noch verfeinern, damit eventuelle vorhandene (andere) Styles (zB kursiv) nicht verlorengehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

if not (Canvas.Font.Style >= [fsBold] then          // wenn noch nicht fett
  Canvas.Font.Style := Canvas.Font.Style + [fsBold] // dann fett
else
  Canvas.Font.Style := Canvas.Font.Style - [fsBold] // nix mehr fett

Greetz
Zorro

Yogu · Verfasst: So 10.02.08 20:16

Gut,

Zorro, das ist eine gute Idee. :zustimm:

Ich habs mal ergänzt. So langsam wird die Funktion noch richtig professionell

Allerdings hab ich noch was verbessern müssen: Du darfst nicht einfach mit

markieren

Delphi-Quelltext

1:	if Canvas.Font.Style = [] then {...}

kontrollieren, ob noch nicht fett geschrieben wird, sondern auf das nichtvorkommen von fsBold prüfen:

markieren

Delphi-Quelltext

1:	if not ([fsBold] in Canvas.Font.Style) then {...}

CodexX · Beiträge: 118 WinXP Delphi XE

Hm, ich komme nicht weiter. Gibts da jetzt eine Möglichkeit das Hint beim Erscheinen im Tray abzufangen und statt dessen sein eigenes anzuzeigen? Sowas wie onHintPopup habe ich leider nicht gefunden und dann müsste es ja noch an die richtige Stelle... Eieiei...

Yogu · Verfasst: Fr 15.02.08 16:46

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

type
  TForm1 = class(TForm)
  {...}
  private
    procedure WndProc(var Message: TMessage); override;
  {...}
  end;

{...}

procedure TForm1.WndProc(var Message: TMessage);
var Point: TPoint;
begin
  case Message.Msg of
    WM_TRAYMSG:
      case Message.lParam of
        WM_MOUSEMOVE:
        begin
          GetCursorPos(Point);
          { Hint anzeigen }
        end;
      end;
    else
      inherited WndProc(Message);
  end;
end;

Eigentlich müsste es klappen.

Grüße,
Yogu

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme