Ein Recordzeichen ganz vorne Zeigen lassen

[CreativeMD]

Hi
Ich will eine Aufnahme Exe programmieren und damit man sieht, ob man aufnimmt,
will ich das man rechts oben einen Recordzeichen sieht (z.b Ein roter Punkt).
Mir ist keine passendes Stichwort eingefallen, so konnte ich auch nicht in Google suchen.
Könnte mir jemand weiter helfen?

Vielen Dank im voraus

[DeddyH]

Rechts oben wovon?

[CreativeMD]

Also vor allen anderen Fenstern

[DeddyH]

Wie wäre es mit einem transparenten durchklickbaren Overlay-Fenster mit einem Image drauf? Ich komme gerade nicht auf den Namen des Styles, aber dazu sollte in der DP etwas zu finden sein.

[CreativeMD]

Tu meinst ich soll ein Fenster über den Bildschirm machen?

[himitsu]

Oder meinst du ein TrayIcon? (unten rechts bei der Uhr)

Zitat von CreativeMD:

so konnte ich auch nicht in Google suchen.
Könnte mir jemand weiter helfen?

icon neben der uhr

[Popov]

Einfach in TransparentColorValue die transparente Farbe setzten, TransparentColor auf True setzten, dann noch BorderStyle auf bsNone und schon ist das Formular unsichtbar. Wenn du jetzt etwas auf dem Formular schreibst, wobei die Font Color unterschiedlich TransparentColorValue sein sollte, schon hast du ein Record-Zeichen auf dem Monitor.

[DeddyH]

Das ist aber nur die halbe Miete, durchklickbar sollte es schon sein. Der zu setzende ExStyle müsste WS_EX_LAYERED sein, ist mir eben wieder eingefallen.

[CreativeMD]

Sorry
aber wenn ich TranparentColer auf True setze ist es nicht duchsichtig und wo soll ich die Eigenschaft ExStyle zuweisen?

[Popov]

In diesem Fall ist es nur eine dreiviertel Miete. Label, aber auch TextOut geben Texte mit Schriftglättung aus. Auf diese Weise sieht man Teile der Hintergrundfarbe, was hässlich aussehen kann.

Aber ich hab gerade eine Funktion zur Hand mit der man für den Font die Schriftglättung an und abschalten kann.

Delphi-Quellcode:

{Schaltet Font Smoothing/anti-aliasing für Font an oder aus}
procedure FontSmoothing(Font: TFont; Antialiased: Boolean);
const
  Quality: array [Boolean] of LongInt =
    (NONANTIALIASED_QUALITY, ANTIALIASED_QUALITY);
var
  tagLOGFONT: TLogFont;
begin
  GetObject(Font.Handle, SizeOf(TLogFont), @tagLOGFONT);
  tagLOGFONT.lfQuality := Quality[Antialiased];
  Font.Handle := CreateFontIndirect(tagLOGFONT);
end;

//Edit: @CreativeMD

Zitat:

aber wenn ich TranparentColer auf True setze ist es nicht duchsichtig

Alleine ist zu wenig, steht aber alles im Beitrag.