Pagina1 van 1

Lazarus – Bepaal en pixel kleur waar dan ook op een Form

Lazarus – Bepaal en pixel kleur waar dan ook op een Form

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.
Voorbeelden: "MacOS X - Jouw vraag", "MS Word - Jouw Tip of Truc".

Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent.
Posts/Reacties hebben geen tegenhanger in de andere taal.




RSS Feed

Home Forums Software Development Delphi, Lazarus, Free Pascal Lazarus – Bepaal en pixel kleur waar dan ook op een Form

Dit onderwerp bevat 0 reacties, heeft 1 stem, en is het laatst gewijzigd door  hans 2 maanden geleden.

1 bericht aan het bekijken (van in totaal 1)
  • Auteur
    Berichten
  • 5340

    hans
    Sleutelbeheerder

    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).

1 bericht aan het bekijken (van in totaal 1)



Je moet ingelogd zijn om reacties te kunnen plaatsen voor dit onderwerp.