Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Ik was hier mee bezig om te proberen theme kleuren te bepalen - maar daarvoor is het niet zinvol. Ik kan me echter voorstellen dat het voor andere applicaties zeker zinvol kan zijn; het bepalen van een kleur op een Form.
Merk op: onder de [huidige] Cocoa widget set werkt dir niet, je krijgt altijd de kleur "zwart" als antwoord. Misschien dat dit in de toekomst veranderd. Onder Linux werkte dit uitstekend, onder Windows heb ik het nog niet geprobeerd.
procedure TForm1.GetPixelColor(X,Y:integer);
var
ValR2, ValG2, ValB2: Byte;
PixelColor : TColor;
begin
PixelColor := self.Canvas.Pixels[X,Y];
valR2 := GetRValue(PixelColor);
valG2 := GetGValue(PixelColor);
valB2 := GetBValue(PixelColor);
// Label1.Caption:='R='+IntToStr(valR2)+' G='+IntToStr(valG2)+' B='+IntToStr(valB2);
end;
Aan jou om iets met de waarden te doen, b.v. weergeven in een TLabel, of als TColor returnvalue (function).
