Problem mit Label Transparents

[Natcree]

Sorry ja das panel hat keine transp. Habe color auf clnone gesetzt. Hat jemand noch eine Idee???

[Andreas L.]

Zitat von Natcree:

Habe color auf clnone gesetzt. Hat jemand noch eine Idee???

Vielleicht liegt hier das Problem. Wie siehts aus wenn du die Panel-Eigenschaften wieder zurück setzt? Color := clBtnFace, ParentColor := True und ParentBackground := True

[Natcree]

Ändert leider Auch Nichts.. hmmmmmm???

[Der schöne Günther]

Kannst du ein kleines Beispiel-Projekt zum Reproduzieren des Fehlers einstellen?

[Natcree]

Hier mal ein Beispiel. Das Video im Mediaplayer1 sowie das Lied im Mediaplayer2 auf form1 sollte noch geändert werden. da diese Dateien zu gross sind zum Hochladen. Mit Klick auf Mitgliederverwaltung öffnet sich die Form2. danach auf datensatz einlesen Klicken.

[stahli]

Mal eine Einschätzung unter Vorbehalt (kann falsch sein, ist aber mein letzter Kenntsnisstand):

Ein Label zeichnet sich auf dem Canvas seines Parents. Deshalb wird ein Label immer hinter Controls gezeichnet. Hier ist eine Transparenz lösbar, weil das Label dann nur seinen Text zeichnen muss.

Bei Panels ist das schwieriger. Eine echte Transparenz gibt es hier nicht. Ein Panel kann die Farbe seines Parents übernehmen, dann ist es nicht direkt zu sehen.
Ist der Parent aber nicht einfarbig, hilft das auch nicht. Dann könnte man den passenden Ausschnitt des Parent-Canvas auf den Panel-Canvas kopieren und dann z.B. noch Text darauf zeichnen.
Das ist natürlich aufwendig und schwierig.
Wenn ein Panel andere Controls überdeckt (z.B. über zwei Schaltern mit dem gleichen Parent liegt), ist eine Transparenz gar nicht mehr zu erreichen.

Man kann Panels "ausstanzen" oder "ausschneiden" (über Regionen), so dass Teile des Panels "fehlen" und somit eine echte Transparenz entsteht. Dann werden aber auch Controls abgeschnitten, die über der Region liegen. Es sind sozusagen richtige Löcher, die dann auch keine Mausereignisse abfangen können.

Sobald ein Videoplayer ins Spiel kommt wird es noch komplizierter.
Da werden dann die Daten aus einem Videobildspeicherbereich oder so verarbeitet. Da wird man dann auch je nach System mit verschiedenen Ergebnissen rechnen müssen.


Firemonkey bietet da etwas mehr Flexibilität, hat aber auch wieder Schwächen. Die VCL kann man sich leider nicht als übereinander liegende Folien vorstellen, die transparente Bereiche enthalten können.

Ich hoffe, das passt so ungefähr...

[Natcree]

also gibt es "keine" Lösung für mein Problem. Sehe ich das Richtig???

[baumina]

Ich kann dir versichern, es gibt eine Lösung für dein kleines Problemchen. Mach ein kleines Testprogramm bei dem das Phänomen auftritt, damit ich es nachvollziehen kann. Denn dein angehängtes Programm beinhaltet Spezialkomponenten, die bei mir nicht installiert sind, so dass ich es nicht in mein Delphi laden kann.

[Natcree]

So Hier noch mal ne Funktionierende Version. Das Mit der Transparenz des Labels hat sich erledigt. Das geht jetzt. Siehe Beispiel.rar . Wie gehabt sollte der Filename des Videos im Mediaplayer auf eine eigene Videodatei geändert werden. Und jetzt sind alle Komponenten Standartkomponenten.

Habe nur noch ein Problem. Normalerweise sollte er im 2 Fenster beim erneuten Klicken das Label auf '' setzen. Es passiert aber nichts..

Woran kann das liegen hier mal der Quelltext

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus, unit1;

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form2: TForm2;

implementation

{$R *.dfm}

var
a:string;
i:integer;

procedure LaufschriftLabel(ZuschreibenderTextAuswaehlen:string;TimerAuswaehlen:TTimer;LabelAuswaehlen:TLabel);
begin
  a:=ZuschreibenderTextAuswaehlen;
  inc(i);
  if i > length(a)then
  begin
  TimerAuswaehlen.Enabled:=false;
  exit;
  end;
  LabelAuswaehlen.caption:= LabelAuswaehlen.caption + a[i];
end;

procedure TForm2.FormShow(Sender: TObject);
begin
brush.Style:=bsclear;
label2.caption:='';
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
LaufschriftLabel('Hallo das ist ein Test',timer1,label2);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
label2.caption:='';
i:=-1;// hier müsste er die Globale Variable Zurücksetzen
timer1.Enabled:=true;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
close;
form1.button1.Visible:=true;
end;

end.

[baumina]

Irgendwie scheint das damit zusammenzuhängen brush.Style:=bsclear; , nimmst du die Zeile raus, klappt das alles prima. Ich habe leider nur im Moment die nicht Zeit das alles ganz genau zu analysieren.