Transparente Form

[_X_]

Gibt es dafür eine Eigenschaft, oder muss ich da direkt mit der API arbeiten?
Ich denke mal es kann nicht so schwierig sein, weil TPopupNotifier kann es ja auch.
Ich bin aber scheinbar einfach zu blöd, um den Code zu finden, der die Form versteckt.

Ich bitte also einfach mal um Hilfe

mfg _X_

edit:// Titel geändert

[creed steiger]

Versteh ich dich völlig falsch oder suchst du BorderStyle:=bsnone im Objektinspektor?

[_X_]

Danke.
Ich steh mal wieder voll aufm Schlauch.

mfg _X_

[_X_]

Jetzt aber noch eine andere Spezialfrage.
Kann ich das TForm auch noch transparent machen?

mfg _X_

[pluto]

Kann ich das TForm auch noch transparent machen?

Eine Interessante Frage. Meiner Meinung nach geht das nur über API Funktionen. Aber welche Darfst du mich nicht fragen....

[_X_]

Ich habe gerade das hier gefunden: http://bugs.freepascal.org/view.php?id=1804" onclick="window.open(this.href);return false;
Ich spiele da noch ein bisschen rum.
Wenn ich da was zum Zeug bringe, werde ich es hier natürlich melden.

mfg _X_

[Teekeks]

Hi!
Ich würde mich freuen wenn du was darüber rausfinden würdest, ich hätte da auch Interresse daran.
Ich versuch auch mal was hinzukriegen...

Gruß Teekeks

[_X_]

Code: Alles auswählen

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics,
  Dialogs, xatom, X, xlib, gtk2, gdk2x, GTKProc, GtkDef, ctypes;
 
procedure af_setForm_transparency(const f: THandle; const tp: integer);
 
implementation
 
procedure af_setForm_transparency(const f: THandle; const tp: integer);
var
  transparency: double;
  opacity: integer;
  atom_window_opacity: TAtom;
  dpy: PDisplay;
  win: TWindow;
begin
  dpy := XOpenDisplay(nil);
  win := GDK_WINDOW_XWINDOW(PGtkWidget(PtrUInt(f))^.window);
 
 
  transparency := tp / 1000 * 10;
  opacity      := trunc($FFFFFFFF * transparency);
 
  atom_window_opacity := XInternAtom(dpy, '_NET_WM_WINDOW_OPACITY', False);
 
  XChangeProperty(dpy, win, atom_window_opacity, XA_CARDINAL,
    32, PropModeReplace, @PcuChar(opacity), 1);
 
  XCloseDisplay(dpy);
end;

Damit geht es zumindest unter Linux.
Beachten: nur mit einem Fenstermanager der das unterstützt [KDE4, Compiz, Beryl] funktioniert das ganze.

Vielen dank an Pluto, ich wollte den Fehler einfach nicht finden

mfg _X_

[Targion]

WOW! Wo hast du das Rausgefunden? Ich hatte gedacht, man müsse dafür explizit KWin oder Compiz-Funktionen importieren. Aber anscheinend funktioniert ordiäre GTK+-Transparenz auch mit KWin...

[theo]

Aber anscheinend funktioniert ordiäre GTK+-Transparenz auch mit KWin...

Das ist reiner XLib Code.

[Teekeks]

hmmm, schade. Bei mir geht es nicht...
Jetzt weiß ich auch warum: ich nutze KDE3.
Kann man das dafür auch basteln? Rein generell gibt es dort auch schon Tranzparente Formen.

[Targion]

Aber anscheinend funktioniert ordiäre GTK+-Transparenz auch mit KWin...

Das ist reiner XLib Code.

Stimmt, habe nur die Einbindung der gtk2-libs gesehen und den Rest schnell überflogen.

[_X_]

Kann man das dafür auch basteln?

http://en.gentoo-wiki.com/wiki/X.Org/Tr ... cy#KDE_3.x Keine Garantie für Fehler und/oder Schäden.
Ich weiß nicht, ob das jetzt geht; Ich selber verwende KDE4, weil der KDE3 grundsätzlich veraltet ist.

mfg _X_

[_X_]

WOW! Wo hast du das Rausgefunden?

http://www.space-out.net/readarticle.php?article=1
Ich habe nur den Code übersetzt

mfg _X_

[Kuster Peter]

Ist ja toll, läuft leider mit Windows nicht. Was muss ich anpassen?

Peter