Delphi-PRAXiS
Seite 1 von 4  1 23     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi 2 Farben auf einer Form mit weichen Übergängen (https://www.delphipraxis.net/102286-2-farben-auf-einer-form-mit-weichen-uebergaengen.html)

Aurelius 26. Okt 2007 08:48


2 Farben auf einer Form mit weichen Übergängen
 
Hallo DP'ler :hi:

Kann man irgendiwe erreichen dass es in einem Formular 2 Farben mit weichen Übergängen gibt? Also dass z.b. die linke Seite Dunkel ist und sich die Farbe, je weiter man nach rechts kommt, ins helle wandelt?

sirius 26. Okt 2007 09:01

Re: 2 Farben auf einer Form mit weichen Übergängen
 
ja

Brainshock 26. Okt 2007 09:02

Re: 2 Farben auf einer Form mit weichen Übergängen
 
Suche im Forum nach "Gradient" oder schaue dir das mal an Form gradient fill.

Aurelius 26. Okt 2007 09:15

Re: 2 Farben auf einer Form mit weichen Übergängen
 
Ok, hab was gefunden. Dankeschön :D

@ sirius: bist du Microsoft-Mitarbeiter?

Zitat:

Ein kleines amerikanisches Flugzeug hat sich im dichten Nebel verflogen.Der Pilot kreist um das oberste Stockwerk eines Bürohauses, lehnt sich aus dem Cockpit und brüllt durch ein offenes Fenster:"Wo sind wir?"
Ein Mann blickt von seinem PC auf: "In einem Flugzeug!"Der Pilot dreht eine scharfe Kurve und landet fünf Minuten später mit dem letzten Tropfen Treibstoff auf dem Flughafen von Seattle.Die verblüfften Passagiere wollen wissen, wie der Pilot es geschafft habe, sich zu orientieren."Ganz einfach", sagt der Pilot.
"Die Antwort auf meine Frage war kurz, korrekt und völlig nutzlos. Ich hatte also mit der Microsoft-Hotline gesprochen. Das Microsoft-Gebäude liegt 5 Meilen westlich vom Flughafen Seattle, Kurs 87 Grad."
Den konnt ich mir jetzt nicht verkneifen...:D

Dunkel 26. Okt 2007 09:32

Re: 2 Farben auf einer Form mit weichen Übergängen
 
Zitat:

Zitat von xX0815Xx
@ sirius: bist du Microsoft-Mitarbeiter?

{ ... }

Den konnt ich mir jetzt nicht verkneifen...:D

Moment! Du hast gefragt ob es geht, nicht wie es geht. Auf Deine Frage war die Antwort von sirius völlig ausreichend.
Fazit: lerne Fragen ordentlich zu stellen, dann bekommst Du auch ordentliche Antworten.

Das konnte ich mir jetzt nicht verkneifen... :stupid:

Aurelius 26. Okt 2007 09:37

Re: 2 Farben auf einer Form mit weichen Übergängen
 
In dem Zusammenhang hast du wohl recht, aber ich kann mit der Antwort nicht viel anfangen. War ja uch nur als kleiner Witz gedacht :stupid:

Egal, lassen wir das

sirius 26. Okt 2007 14:18

Re: 2 Farben auf einer Form mit weichen Übergängen
 
Fragen zu stellen ist auch nicht einfach.
Und mir fielen spontan einige Lösungsmöglichkeiten zu deiner Frage ein. Nur ich kenne den Zusammenhang in deinem Programm nicht, um dir dafür eine favorisierte Variante vorzustellen. Und alle aufzuschreiben und zu erklären,w ar mir zu viel :nerd:

Relicted 26. Okt 2007 14:36

Re: 2 Farben auf einer Form mit weichen Übergängen
 
OT:
Zitat:

Zitat von Dunkel
Moment! Du hast gefragt ob es geht, nicht wie es geht. Auf Deine Frage war die Antwort von sirius völlig ausreichend.
Fazit: lerne Fragen ordentlich zu stellen, dann bekommst Du auch ordentliche Antworten.

Das konnte ich mir jetzt nicht verkneifen... :stupid:

und auf "wiefragen" ist die beste antwort "gut!"

gruß
reli

Aurelius 28. Okt 2007 20:07

Re: 2 Farben auf einer Form mit weichen Übergängen
 
So, ich hab nochmal eine Frage zum Thema. Ich würde gerne per Befehl zur LAufzeit diesen Übergang schaffen.

Delphi-Quellcode:
procedure TfrmMain.FormPaint(Sender: TObject);
begin
 DrawGradientH(Canvas, clGreen, clTeal, Rect(0, 0, Width, Height));
end;

procedure TfrmMain.chkbHorizontalClick(Sender: TObject); //horizontaler Übergang
begin
  if chkbHorizontal.Checked then
  begin
    chkbVertikal.Checked := FALSE;
    DrawGradientH(Canvas, clbColor1.Selected, clbColor2.Selected, Rect(0, 0, Width, Height));
  end;
end;

procedure TfrmMain.chkbVertikalClick(Sender: TObject); //vertikaler Übergang
begin
  if chkbVertikal.Checked then
  begin
    chkbHorizontal.Checked := FALSE;
    DrawGradientV(Canvas, clbColor1.Selected, clbColor2.Selected, Rect(0, 0, Width, Height))
  end;
end;
Ich nutze ein XPManifest, dh. die ganzen Felder wie eine Combobox werden auch nach diesem Design gefärbt. Wenn ich das Ganze jetzt aber zur Laufzeit per Checkboxen ändere wird die Form richtig gefärbt, aber alle anderen Felder wie die Combobox bleiben in der ursprünglichen Farbe.

Kann man das irgendwie ändern so dass alles richtig gefärbt wird?

lbccaleb 28. Okt 2007 20:28

Re: 2 Farben auf einer Form mit weichen Übergängen
 
bei einigen komponenten kannst du ja transparenz einschalten, das sollte für dich reichen nur wenn ich das jetzt gerade richtig in erinnerung habe, kannst du das natürlich ausgerechnet bei checkboxen nicht, in dem fall würde mir im mom nichts anderes einfallen als nach einer entsprechenden komponente zu suchen, die transparenz unterstützt!!! ich glaube die checkbox auder der jedi vcl kann das...

mfg


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:10 Uhr.
Seite 1 von 4  1 23     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz