Forum: Multimedia
Delphi
by .chicken,
3. Mai 2007
Ok, danke da informier ich mich dann morgen drüber, weil das is mir heute zu spät ;-)
Danke für die Hilfe :)
Forum: Multimedia
Delphi
by .chicken,
3. Mai 2007
Also, ich habe mir jetzt eine Funktion zusammengebastelt, aber es funzt irgendwie net richtig!
function GetBlendedColor(Color1, Color2: TColor; Alpha: Integer): TColor;
var
r1, g1, b1, r2, g2, b2, r, g, b: Integer;
begin
r1 := GetRValue(Color1);
g1 := GetGValue(Color1);
b1 := GetBValue(Color1);
r2 := GetRValue(Color2);
Forum: Multimedia
Delphi
by .chicken,
3. Mai 2007
Ja, wusste ich :D
Ok, das hab ich etwas verplant ^^
Forum: Multimedia
Delphi
by .chicken,
3. Mai 2007
Also ich habe folgende verwendet von Wikipedia:
C = αA + (1 − α)B
Die funzt auch eigentlich gut, muss das nur noch etwas optimieren, denke ich poste n Screenie wenn ichs richtig hinbekommen habe ;-)
Forum: Multimedia
Delphi
by .chicken,
3. Mai 2007
Super, danke das seh ich mir genauer an ;-)
Forum: Multimedia
Delphi
by .chicken,
3. Mai 2007
Hmm..ich glaube da hast du falsch verstanden was ich möchte (oder ich deinen Code :D).
Also den Farbverlauf habe ich schon selbst hinbekommen, was ich suche ist sozusagen eine Möglichkeit, eine Farbe "transparent" zu malen.
Dass das so in Delphi nicht direkt Möglich ist ist mir durchaus klar, aber es gibt doch sicherlich eine Mathematische Funktion oder so, die mir einen Farbwert gibt.
An...
Forum: Multimedia
Delphi
by .chicken,
3. Mai 2007
Echt? Kann ich mir nich ne Funktion schreiben um nach und nach die Farben "verschmelzen" zu lassen?
Forum: Multimedia
Delphi
by .chicken,
3. Mai 2007
Also ich schreib mir gerade ein paar simple Grafikfunktionen zusammen, wie zB ein einfacher Farbverlauf.
Jetzt möchte ich gerne eine InnerGlow Funktion, ähnlich der von Photoshop (natuerlich nicht so umfangreich) schreiben.
Also sozusagen ein leuchtender, innerer Border. Hab mir das so gedacht, dass ich es ähnlich eines Farbverlaufs mache, und dabei die Farbe immer transparenter werden lasse...