Entwickler-Ecke :: Thema anzeigen - Text fett/bold in Hint

CodexX - Mi 06.02.08 23:37
Titel: Text fett/bold in Hint

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 - Do 07.02.08 00:07

Hi,

Delphi-Quelltext

1:
2:
3:
4:

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

Gruß

Calculon
--

CodexX - Do 07.02.08 00:43

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 - Do 07.02.08 08:22

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 - Do 07.02.08 17:46

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 - Do 07.02.08 18:01

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

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 - Do 07.02.08 19:35

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:

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.

Zorro - So 10.02.08 16:07

Yogu hat folgendes geschrieben:

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:

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 - 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

Delphi-Quelltext

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

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

Delphi-Quelltext

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

CodexX - Fr 15.02.08 00:42

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 - Fr 15.02.08 16:46

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

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!