2 Farben auf einer Form mit weichen Übergängen

[Aurelius]

Danke sehr

Delphi hab ich hier auf Arbeit nicht (hab grad Pause und wenig zu tun )

[Aurelius]

Ich nutze diesen Codefor i := 0 to ControlCount - 1 do frmMain.Controls[i].Invalidate; Das hilft aber leider nicht, der Hintergrund der einzelnen Controls wird immer noch nicht geändert. Auch .Repaint hilft da nicht.

[Deep-Sea]

Du hast recht ...

Delphi-Quellcode:

procedure TMeineForm.MyRepaint;
var
  I: Integer;
begin
  DisableAlign;
  For I := 0 to ControlCount - 1 do With Controls[0] do
  begin
    Parent := nil;
    Parent := Self;
  end;
  EnableAlign;
end;

Das sollte zumindest klappen. Ruf es aber nicht im OnPaint auf, sondern da, wo du auch den Hintergrund änderst.
PS: Das "Controls[0]" ist kein Fehler, es muss so sein


(Und wer schlägt mich jetzt, weil die Lösung so doof ist?)

[Aurelius]

Sehr schön

Vielen Dank für deine Hilfe, hast mir bis jetzt sehr geholfen. Nachher gleich testen!

[Aurelius]

So, ich habs ausprobiert, funktioniert leider nicht

Trotzdem ein großes Danke für deine Hilfe

[Deep-Sea]

Zitat von xX0815Xx:

So, ich habs ausprobiert, funktioniert leider nicht

Echt nicht? Ich hab's probiert, bei mir ging's ...

[Aurelius]

Bei mir eben nicht Kann aber auch sein dass ich mich vertan hab. Ich kanns ja nochmal testen.

P.S.: Kannst du mir erklären wieso im Code Controls[0] verwendet wird? Das versteh ich nämlich nicht.

[Deep-Sea]

Ganz einfach ^^
Wenn du den Parent eines Controls auf nil setzt und anschließend wieder zuweist, wird das Control aus der Controls-Liste des Parents entfernt und beim zuweisen am Ende der Controls-Liste des Parents wieder gehängt. Das zweite Control rutscht beim entfernen an die erste Stelle - sprich Index 0. Nachdem der Parent auch hier neu gesetzt wurde, rückt das nächste Control nach, usw...

[Aurelius]

Ach so, ist ja logisch. Danke für die Erklärung!

Ich werds heut abend nochmal testen und meld mich dann.

[Aurelius]

Wenn ich das Ganze so mache funktioniert es leider nicht...

Delphi-Quellcode:

procedure TfrmMain.chkbHorizontalClick(Sender: TObject);
begin
  if chkbHorizontal.Checked then
  begin
    chkbVertikal.Checked := FALSE;
    frmMain.Repaint;
    MyRepaint;
  end;
end;

procedure TfrmMain.chkbVertikalClick(Sender: TObject);
begin
  if chkbVertikal.Checked then
  begin
    chkbHorizontal.Checked := FALSE;
    frmMain.Repaint;
    MyRepaint;
  end;
end;