Transparentes Fenster

[Mathias]

Wie kann ich ein Fenster transparent machen, ohne das der Inhalt( Botton, etc) auch transparent wird.

Ich habe folgendes probiert:

Code: Alles auswählen

AplphaBlend := True;
AlphaBlendValue := 0;

Nur hier werden die Buttons auch transparent.

[jwdietrich]

Das würde mich auch sehr interessieren. Ich müsste für ein Projekt ein nicht rechteckiges Fenster erstellen, das plattformübergreifend auf Mac, Windows und Linux so dargestellt wird. Seit längerer Zeit ist diesbezüglich eine Frage auf codekicker offen. Eine Lösung könnte ein teiltransparentes Fenster darstellen, aber bis jetzt habe ich das auch nicht hinbekommen.

[Mathias]

@jwdietrich

Dein Problem könntest vielleicht so lösen. Diese Beispiel erzeugt ein Fenster in Form eines Flansches.

Code: Alles auswählen

procedure TAboutForm.FormCreate(Sender: TObject);
var
  x1, x2, y1, y2 : Integer;
const
  r : Integer= 25;
begin
  Caption := '';
  LabelTime.Caption := TimeToStr(Time);
  x1 := 90; y1 := 90; x2 := Width - 90; y2 := Height - 90;
  FRegion := CreateRoundRectRgn(5, 10, Width - 10, Height - 10, Width, Height);
  if FRegion <> 0 then begin
    Reg := CreateRoundRectRgn(x1 - r, y1 - r, x1 + r, y1 + r, r * 2, r * 2);
    CombineRgn(FRegion, FRegion, Reg, RGN_DIFF);
    Reg := CreateRoundRectRgn(x1 - r, y2 - r, x1 + r, y2 + r, r * 2, r * 2);
    CombineRgn(FRegion, FRegion, Reg, RGN_DIFF);
    Reg := CreateRoundRectRgn(x2 - r, y1 - r, x2 + r, y1 + r, r * 2, r * 2);
    CombineRgn(FRegion, FRegion, Reg, RGN_DIFF);
    Reg := CreateRoundRectRgn(x2 - r, y2 - r, x2 + r, y2 + r, r * 2, r * 2);
    CombineRgn(FRegion, FRegion, Reg, RGN_DIFF);
    SetWindowRgn(Handle, FRegion, True);
  end;
  DC := GetWindowDC(Handle);
end;

Mein Problem konnte ich auch lösen:

Code: Alles auswählen

procedure MakeFormTransparent(Form: TScrollingWinControl);
var
  AControl: TControl;
  A, Margin, X, Y, CtlX, CtlY: integer;
  ClientRgn, FullRgn, CtlRgn: HRGN;
begin
  with Form do begin
    Margin := (Width - ClientWidth) div 2;
    FullRgn := CreateRectRgn(0, 0, Width, Height);
    X := Margin;
    Y := Height - ClientHeight - Margin;
    ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
    CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
    for A := 0 to ControlCount - 1 do begin
      AControl := Controls[A];
      if (AControl is TWinControl) or (AControl is TGraphicControl) then begin
        with AControl do begin
          if Visible then begin
            CtlX := X + Left;
            CtlY := Y + Top;
            CtlRgn := CreateRectRgn(CtlX, CtlY, CtlX + Width, CtlY + Height);
            CombineRgn(FullRgn, FullRgn, CtlRgn, RGN_OR);
          end;
        end;
      end;
    end;
    SetWindowRgn(Form.Handle, FullRgn, True);
  end;
end; 

Aufruf:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  MakeFormTransparent(Form1);
end;

Ich habe TScrollingWinControl anstelle TForm verwendet, das ich auch transparente Frame machen kann.

[Mathias]

Ich habe da ein wenig mit der xlib rumgebastelt.
Und habe folgendes hingekriegt.
Das Fenster ist voll transparent, aber das Zeugs, welches man reinzeichnet, ist in voller Farbe, was natürlich angepasst werden kann.
Als Demo, habe ich einen Pseudo-Button gezeichnet.

Ist sowas mit der LCL auch möglich, oder muss sie da passen.

Im Anhang noch der Linux-Code, wen es jemand ausprobieren will.

[fliegermichl]

Du kannst im Objektinspektor des Formulares Alphablend auf true stellen und je kleiner der Wert in AlphablendValue ist, um so durchsichtiger wird das Formular.

[Mathias]

Du kannst im Objektinspektor des Formulares Alphablend auf true stellen und je kleiner der Wert in AlphablendValue ist, um so durchsichtiger wird das Formular.

Dies ist mir bekannt, nur wird da alles transparent, inklusive aufgesetzte Komponenten und alles was man ins Canvas zeichnet.
Oder kriegst du es irgendwie hin, Fenster transparent, aber der Button darauf in Vollfarbe.
In meinem Beispiel ist nur der Canvas transparent, aber die blauen Kreise und der Button sin in Vollfarbe.
Die beiden schwarzen Kästen, sins Sub-Windows, welche man als eigene Widget brauchen kann.

[Soner]

Du musst eine Farbe als Transparenzfarbe definieren. Alles was du mit dieser Farbe zeichnest wird durchsichtig.
Ich habe mir immer gefragt warum haben die LCR-Programmierer Alphablending als Eigenschaft hinzugefügt aber Colorkey nicht.
Hier wird gezeigt wie es gemacht wird.

[Mathias]

Du musst eine Farbe als Transparenzfarbe definieren. Alles was du mit dieser Farbe zeichnest wird durchsichtig.
Ich habe mir immer gefragt warum haben die LCR-Programmierer Alphablending als Eigenschaft hinzugefügt aber Colorkey nicht.
Hier wird gezeigt wie es gemacht wird.

Dies sind mir nach einer Variante für Windows aus.

[Soner]

Du musst eine Farbe als Transparenzfarbe definieren. Alles was du mit dieser Farbe zeichnest wird durchsichtig.
Ich habe mir immer gefragt warum haben die LCR-Programmierer Alphablending als Eigenschaft hinzugefügt aber Colorkey nicht.
Hier wird gezeigt wie es gemacht wird.

Dies sind mir nach einer Variante für Windows aus.

Wolltest du nicht Lösung für Windows?

Ich dachte erst du fragst Lösung für Linux-Desktop, dann habe ich die Forenkategorie nachgeschaut da stand irgendwas von Windows. Sorry, ich lese manchmal nicht genau.

Aber ich glaube unter Linux-Desktop ist es auch ähnlich nur die Windowmanager müssen es unterstützen, das nennt man Compositor. Die meisten Windowmanager haben früher Xcompositor verwendet. Danach haben einige es in ihre Windowsmanger eingebaut.
Dann hat irgendein Student vor 20 Jahren, bei IBM glaube ich, mit einem Projekt angefangen das beides zusammenfasst und andere "moderne" Sachen bietet, das Projekt nennt sich Wayland, wenn er noch weiter studiert wird das Projekt in den nächsten 20 Jahren zu 85% fertig.

Wenn es kein Compositior eingeschaltet war, dann wurde einfach Desktophintergrundbild im Programm als Hintergrund gezeichnet, das ergibt die Illusion von Transparenz.

[Mathias]

Noch was lustiges im Anhang zum ausprobieren, leider flimmert es ein wenig.