Farbverlauf bei der Form ?

[Vader]

hallo,

wie geht das wenn ich bei der form einen farbverlauf haben möchte,
zb. hellblau zu dunkelblau ??

mfg vader

[Daniel B]

Versuche das mal: http://www.delphi-library.de/viewtop...5e36171fe3cbac

[taipan84]

Allerdings solltest du da im Aufruf der Gradient-Prozeduren nicht

Delphi-Quellcode:

Rect(0, 0, Width, Heigth)

benutzen, sondern

Delphi-Quellcode:

Rect(0, 0, ClientWidth, ClientHeigth)

[Vader]

hallo ,

danke für die tipps !
mfg vader

[ManuMF]

Oder ganz einfach JvGradient nehmen ;-)

Gruß,
ManuMF

[Daniel B]

Zitat:

Zitat von ManuMF

Oder ganz einfach JvGradient nehmen ;-)

Gruß,
ManuMF

Oder einfach mal NICHT für jeden "pups" ne eigene Komponente benutzen. ;)

Gruss...

[Vader]

hallo,

der code funzt

Delphi-Quellcode:

// Erstellt ein Farbverlauf von links nach rechts
procedure DrawGradientV(Canvas: TCanvas; Color1, Color2: TColor; Rect: TRect);
var
  Y, R, G, B: Integer;
begin
  for Y := Rect.Left to Rect.Right do begin
    R := Round(GetRValue(Color1) + ((GetRValue(Color2) - GetRValue(Color1)) *
      Y / (Rect.Right - Rect.Left)));
    G := Round(GetGValue(Color1) + ((GetGValue(Color2) - GetGValue(Color1)) *
      Y / (Rect.Right - Rect.Left)));
    B := Round(GetBValue(Color1) + ((GetBValue(Color2) - GetBValue(Color1)) *
      Y / (Rect.Right - Rect.Left)));


    Canvas.Pen.Color := RGB(R, G, B);  
    Canvas.Pen.Width := 1;
    Canvas.Pen.Style := psInsideFrame;  

 
    Canvas.MoveTo(Y, Rect.Top);
    Canvas.LineTo(Y, Rect.Bottom);  
  end;
end;  

 
// Erstellt ein Farbverlauf von oben nach unten
procedure DrawGradientH(Canvas: TCanvas; Color1, Color2: TColor; Rect: TRect);  
var
  X, R, G, B: Integer;  
begin
  for X := Rect.Top to Rect.Bottom do begin  
    R := Round(GetRValue(Color1) + ((GetRValue(Color2) - GetRValue(Color1)) *
      X / (Rect.Bottom - Rect.Top)));  
    G := Round(GetGValue(Color1) + ((GetGValue(Color2) - GetGValue(Color1)) *
      X / (Rect.Bottom - Rect.Top)));  
    B := Round(GetBValue(Color1) + ((GetBValue(Color2) - GetBValue(Color1)) *
      X / (Rect.Bottom - Rect.Top)));  

 
    Canvas.Pen.Color := RGB(R, G, B);
    Canvas.Pen.Width := 1;  
    Canvas.Pen.Style := psInsideFrame;


    Canvas.MoveTo(Rect.Left, X);  
    Canvas.LineTo(Rect.Right, X);
  end;  
end;

procedure TForm3.FormPaint(Sender: TObject);
begin
DrawGradientH(Canvas, $00AF8000, $00FFD680, Rect(0, 0, Width, Height));
end;

aber ich habe groupbox auf meiner form, die bleiben grau, wie kann man das angleichen ?

mfg vader

[Daniel B]

Dürfte schwierig werden, da CB, Buttons usw. auf das Farbschema von Windows bezogen sind. Müsstest über umwege eine neue Kompo von der ComboBox ableiten, ob es wirklich Wert ist, ist die andere Frage, dann wäre alles in einer Farbe, müsstest Schaltflächen immer besonders hervorheben.

[Luckie]

Zitat:

Zitat von Daniel B

Ach ja, das hier hab ich gerade gefunden:
http://msdn.microsoft.com/library/de...onctlcolor.asp

Na ob er damit

Zitat:

Microsoft Foundation Class Library for Windows CE

viel anfangen kann. :roll:

[Daniel B]

Ja ups, doch so spät, ich geh ins Bett, lösch die letzten zwei Beiträge bitte ;) Danke.