AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Farben ersetzen

Ein Thema von Jarmen_Kell · begonnen am 19. Mär 2005 · letzter Beitrag vom 25. Feb 2006
Antwort Antwort
ferby

Registriert seit: 15. Aug 2004
Ort: Wien
841 Beiträge
 
Delphi 2010 Enterprise
 
#1

Re: Farben ersetzen

  Alt 21. Feb 2006, 18:49
Hallo,

ich möchte die Prozedur so umschreiben das ich statt den drei RGB Werten einen Integer Wert bekomme.
Jede Farbe hat in Delphi seinen eigenen Integer Wert, wie bekomme ich den aus den RGB Werten?


Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  x,y: integer;
  fLine: PRGBQuad;
begin
  for y := 0 to Grafik.Height - 1 do
  begin
    fLine := Grafik.ScanLine[y];
    for x := 0 to Grafik.Width - 1 do
    begin
      if (fLine.rgbBlue = 255) and (fLine.rgbGreen = 255) and (fLine.rgbRed = 255) then
      begin
        fLine^.rgbBlue := 0;
        fLine^.rgbGreen := 0;
        fLine^.rgbRed := 255;
      end;
    Inc(fLine);
    end;
  end;
end;

wie bekomme ich daraus:

Delphi-Quellcode:
        fLine.rgbBlue := 0;
        fLine.rgbGreen := 0;
        fLine.rgbRed := 255;
einen einzigen Integer Wert???
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:53 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz