DGL • Thema anzeigen - An der Farbabfrage ist was Faul.

An der Farbabfrage ist was Faul.

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Gento

Betreff des Beitrags: An der Farbabfrage ist was Faul.

Verfasst: Mo Dez 31, 2007 02:14

DGL Member

Registriert: So Apr 01, 2007 17:51
Beiträge: 42
Wohnort: Hamm/Westf.

Code:

procedure TForm1.Mausposition(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var Maus_Pos_X,Maus_Pos_Y:Byte;
    Color:Array[0..2]of byte;
 
begin
  Maus_Pos_X:=X;
  Maus_Pos_Y:=255-Y;
  glReadPixels(Maus_Pos_X,Maus_Pos_Y,1,1,GL_RGB,GL_UNSIGNED_BYTE ,@Color[0]);
  Form1.ColorLupe.Canvas.Brush.Color:=Color[0]+(Color[1]*256)+(Color[2]*256*256);
  Form1.Colorlupe.Canvas.Rectangle(0,0,40,40);
 
  Form1.Colorlupe.Canvas.Brush.Color:=$ffffff;
 
  Form1.Colorlupe.Canvas.TextOut(42,0,'R:'+Inttostr(Color[0]));
 
  Form1.Colorlupe.Canvas.TextOut(42,13,'G:'+Inttostr(Color[1]));
 
  Form1.Colorlupe.Canvas.TextOut(42,26,'B:'+Inttostr(Color[2]));
 
 
  end;

Die Farbe wird in Zeile 9 immer richtig dargestellt.
Nach der ersten Anzeige steht Anzeige 14 wie Angenagelt.
Zeile 16 + 18 zeigen dann Werte über Bytegröße an.

Ich schein ein Brett vorm Kopp zu haben,weiß jemand Rat ? :oops:

lg Gento

Nach oben

Lord Horazont

Betreff des Beitrags:

Verfasst: Mo Dez 31, 2007 12:20

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Erstmal: Wieso speicherst du die Mausposition in einer Byte-Variable ab? Und was soll das 255-Y? Sinnvoller wäre es doch ClientHeight-Y zu verwenden, wenn du schon die Y-Achse umdrehen willst. Dann brauchst du auch Integer als Typ für die Mausposition und nicht Byte. Vielleicht hängts damit zusammen..

Gruß Lord Horazont

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

Gento

Betreff des Beitrags:

Verfasst: Mo Dez 31, 2007 14:09

DGL Member

Registriert: So Apr 01, 2007 17:51
Beiträge: 42
Wohnort: Hamm/Westf.

Nach Diversen Versuchen keine Verbesserung.

Code:

procedure TForm1.Mausposition(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var Maus_Pos_X,Maus_Pos_Y:Integer;
    Color:Array[0..2]of Byte;
    R,G,B:Byte;
begin
 // If IM_IRQ=Drin then Exit;
 // Im_IRQ:=Drin;
  Maus_Pos_X:=X;
  Maus_Pos_Y:=255-Y;
  glReadPixels(Maus_Pos_X,Maus_Pos_Y,1,1,GL_RGB,GL_UNSIGNED_Byte,@Color[0]);
  R:=Color[0];
  G:=Color[1];
  B:=Color[2];
  Form1.ColorLupe.Canvas.Brush.Color:=R+(G*256)+(B*256*256);
  Form1.Colorlupe.Canvas.Rectangle(0,0,40,40);
  Form1.Colorlupe.Canvas.Brush.Color:=$ffffff;
  Form1.Colorlupe.Canvas.TextOut(42,0,'R:'+Inttostr(R)+'     ');
  Form1.Colorlupe.Canvas.TextOut(42,13,'G:'+Inttostr(G)+'     ');
  Form1.Colorlupe.Canvas.TextOut(42,26,'B:'+Inttostr(B)+'     ');
 // Im_IRQ:=raus;
end;

Hier das Produkt : http://www.Gento.de/Farben.rar

lg Gento

p.s. Guten Rutsch ins Neue Jahr

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Mo Dez 31, 2007 14:37

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Zitat:

Nach der ersten Anzeige steht Anzeige 14 wie Angenagelt.

Für mich sieht das so aus, als würde der Rotwert direkt vom Slider abhängen. Je weiter links der ist, desto roter das Bild und folglich desto größer der angezeigte R-Wert. Das jeweilige Bild sind nur alle möglichen Grün- und Blauwerte für diesen einen Rotton.
Somit sehe ich eigentlich nur "Works as intended"?

MfG

Nach oben

Gento

Betreff des Beitrags:

Verfasst: Mo Dez 31, 2007 14:44

DGL Member

Registriert: So Apr 01, 2007 17:51
Beiträge: 42
Wohnort: Hamm/Westf.

Das ganze soll ein RGB-Farbmodell/Würfel sein.
Mit dem Regler ziehe ich in die Tiefe.
So will ich alle 16 Millionen Farben erreichen.(8Bit tiefe je R G B)

Gento

Edit:Ich hab mir die Beschreibung des Farbwürfel's nochmal genau anbesehen.
R ändert sich nur durch die Tiefe :oops:

Also war da ein 'denkfehler' bei mir.

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 9 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.