- 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;