Farbe zu string?

[Die Muhkuh]

Wie kann ich denn eine Farbe die ich per Mouse.CursoerPos abrufe in einen String umwandeln?

[Sanchez]

Mouse.CursorPos liefert keine Farbe sondern einen TPoint. Wie kommst du zu deiner Farbe?

[Die Muhkuh]

Hier mal der Code:

Delphi-Quellcode:

function GetPixel(Pos1: TPoint): TColor;
var 
  DC: HDC; 
  Handle: HWND; 
begin 
  Handle:=WindowFromPoint(Pos1);
  DC:=GetDC(Handle);
  Pos1.x := Mouse.CursorPos.x;
  Pos1.y := Mouse.CursorPos.y;
  result:=Windows.GetPixel(DC, Pos1.X, Pos1.Y);
  ReleaseDC(Handle, DC);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.caption := inttostr(GetPixel(Pos1));
end;

[Sanchez]

Du bekommst die Farbe aber mit GetPixel nicht mit CursorPos. Du hast die Farbe ja eh schon in einem String gestopft.

[Die Muhkuh]

Zitat:

Zitat von Spider

Wie kann ich denn eine Farbe die ich per Mouse.CursoerPos abrufe in einen String umwandeln?

Man hab ich umständlich geschrieben! Ich meinte die Farbe (Pixel) wird durch die Mouse.Cursorpos bestimmt! Nicht die Farbe sondern das Pixel!

[Sebastian Nintemann]

Hallo Spider, wie meinst du denn 'die Farbe als String'?

Guck Dir mal ColorToString an (soweit ich mich erinnere Hex-Darstellung als 4byte Cardinal, also etwa so $00BBGGRR).

Ansonsten:

Delphi-Quellcode:

function ColorStr(const aCol: Cardinal; const Hex: boolean = false): string;
begin
  result := '';
  case Hex of
    true:
      result := '#'+IntToHex(Byte(aCol),2)+IntToHex(Byte(aCol shr $08),2)+IntToHex(Byte(aCol shr $10),2);
    false:
      result := 'RGB('+IntToStr(Byte(aCol))+','+IntToStr(Byte(aCol shr $08))+','+IntToStr(Byte(aCol shr $10))+')';
  end;
end;

Mit Hex kannst du angeben ob du ein RGB-Trippel (Standard, Hex = false) oder in hexadezimaler Darstellung (HTML-Darstellung, Hex = true) haben willst.

Gruß, Sebastian

[Die Muhkuh]

Sorry, aber es geht genauso wie ich es geschrieben hatte! :oops:

[Alexander]

Ansonsten kuck mal in die Sourcen der Units und such mal nach ColorToString und StringToColor

[Sebastian Nintemann]

Wie meinst du denn wie du es geschrieben hast?
IntToStr? Liefert dir eine Zahl (als String) aus der die Farbe auf den ersten Blick nicht ersichtlich ist. Da würde ich doch IntToHex bevorzugen.

Gruß, Sebastian