Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Farbe unter dem Mauszeiger erkennen

   
    by TStringlist, 9. Feb 2005
  Hier nochmal das Beispiel für eine diesbezügliche Ergebnisausgabe im RGB- & Hex-Format:
  
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  var DC : HDC;
  AColor : Array of Byte;
  begin
  DC:=CreateDC('DISPLAY',NIL,NIL,NIL);
  DWord(AColor) := GetPixel(DC,Mouse.CursorPos.X,Mouse.CursorPos.Y);
  DeleteDC(DC);
• Forum: Programmieren allgemein

  Re: Farbe unter dem Mauszeiger erkennen

   
    by TStringlist, 23. Jan 2005
  Moin, Moin
  
  Klar Shr, dürfte ja auch eine ganze Stange schneller sein. (Die Ecke war mir da im Moment aber auch gar nicht so wichtig.)
  
  ...das Bild, über welchem er aber immer mit dem Cursor drüber ist! Die Ergebnismenge ist also eher größer als notwendig gewesen ...und sollte event. jetzt nur auf das Bild reduziert werden? Z.B. so:
  
  with Mouse, Image1 do
  if (CursorPos.X <...
• Forum: Programmieren allgemein

  Re: Farbe unter dem Mauszeiger erkennen

   
    by TStringlist, 23. Jan 2005
  Hier nochmal eine nette kurze Lösung mittels GetPixel:
  
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  var DC : HDC;
  AColor : DWord;
  begin
  DC:=CreateDC('DISPLAY',NIL,NIL,NIL);
  AColor := GetPixel(DC,Mouse.CursorPos.X,Mouse.CursorPos.Y);
  DeleteDC(DC);