PageControl mit transparentem Hintergrund gesucht

[DelTurbo]

Du musst dein programm auch starten. In der IDE wird das nicht richtig angezeigt. Wenn du es startest sieht es wie im anhang aus.

[ryLIX]

Zitat von DelTurbo:

Du musst dein programm auch starten. In der IDE wird das nicht richtig angezeigt. Wenn du es startest sieht es wie im anhang aus.

Das ist das gestartete Form...
Kann es sein das es daran liegt das ich hier in Delphi2009 hab

[DelTurbo]

Uff, das weiss ich leider nicht. Ich hab nur das 7er. Aber da macht es halt das was du willst. Deswegen hab ich das grad nicht verstanden. Ich dachte schon wir reden aneinander vorbei

Also ich kann es mir eigentlich nicht vorstellen das es an der version liegt. Aber da sollte jemand antworten der 2009 hat.

[DelTurbo]

Nochwas, hast du kein Windows XP wo du das mal testen kannst. Wie ich schon schrieb hatte ich mal CheckBoxen die waren überall transparent, nur auf Windows 2000 nicht. Vielleicht liegt es ja daran. Mehr fällt mir leider nicht ein.

[ryLIX]

Zitat von DelTurbo:

Nochwas, hast du kein Windows XP wo du das mal testen kannst. Wie ich schon schrieb hatte ich mal CheckBoxen die waren überall transparent, nur auf Windows 2000 nicht. Vielleicht liegt es ja daran. Mehr fällt mir leider nicht ein.

Ja hab ich aber eigentlich sollte es bei Vista klappen O.o

Tante Edit meint das es bei Windows Xp auch net klappt ....

[ryLIX]

Ich versuch nun mal das Problem anders anzugehen.

Liegt es vielleicht daran wie ich den Hintergrund zeichne?

Delphi-Quellcode:

procedure TForm1.JvPanel1Paint(Sender: TObject);
var
  img: TJPEGImage;
  Count, I, X, Y : Integer;
  SrcRct: TRect;
  Brush: TBrush;
begin
  img := TJPEGImage.Create;
  img.LoadFromFile('back.jpg');
  Count := round(JvPanel1.Width / img.Width);
  for I := 0 to Count do
  begin
    X := JvPanel1.Left + round(img.Width * I);
    Y := JvPanel1.Top;
    JvPanel1.Canvas.Draw(X, Y, img);
  end;
end;

Ich hab auch schon versucht das ganze direkt auf des Canvas vom Formular zu zeichnen aber das macht keinen Unterschied...

Zu dem hab ich alles Mögliche an 3rdParty Komponenten probiert die Transparenz unterstützen.
Es ist eigentlich immer so das mein Panel was hinter dem PageControl liegt ignoriert wird...

Ich versteh nur nicht warum...

[DelTurbo]

Weil nach meinen infos es nur eins richtig macht. Ich habe dir nochmal einen shot gemacht mit 4 Pagecontrols drauf. Das Sheet1 ist immer OHNE transparenz. Das Sheet2 immer mit. Wie du siehst gelinkt es nur dem unteren das richtig zu machen.

[ryLIX]

Das doch nicht normal oder? -.-

Ich hab jetzt mal eine Demo angehängt mit einem Raize PageControl drauf.
Code für die Tranzparenz umschaltung:

Delphi-Quellcode:

  if rzPageControl1.Transparent then
    rzPageControl1.Transparent := false
  else
    rzPageControl1.Transparent := true;

Den Code für das Image auf dem Panel hab ich weiter oben gepostet.

[DelTurbo]

*hust*

Irgenwie sieht es wirklich anders aus. Das Panel was du nutzt, ist das aus dem packet JVCL339CompleteJCL211-Build3536.zip? Weil das habe ich nicht drauf. Dann müsste ich das nachher mal installen und dann jag ich das mal durch. Weil langsam wird man ja wuschig. Hast du auch wirklich dieses packet geladen? http://www.raize.com/DevTools/RzComps/RC5Trial.zip bzw. die vollversion.

Weil es bringt ja nicht viel wenn wir mit unterschiedlichen sachen arbeiten.

[DelTurbo]

Nachtrag: Ich habe übrigens ein Image genommen. Kein Panel. Versuch das doch mal.