Auf eine bestime Farbe zeichnen ?

[Delphiturbo]

Hallo,

mit dem Code wird einen Text auf PC-Desktop gezeichnet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 MyHand: HWND;
 MyDc: HDC;
 MyCanvas: TCanvas;
 TransText: string;
begin
 TransText:='Hallo';
 MyHand := GetDesktopWindow;
 MyDc := GetWindowDC(MyHand);
 MyCanvas := TCanvas.Create;
 MyCanvas.Handle := MyDC;
 BeginPath(MyCanvas.Handle);
 MyCanvas.Font.Color := clwhite;
 MyCanvas.Font.Name := 'Arial';
 MyCanvas.Font.Size := 80;
 SetBkMode(MyCanvas.Handle,TRANSPARENT);
 EndPath(MyCanvas.Handle);
 MyCanvas.TextOut(100,100,TransText);
end;

Ich möchte den Text aber nur auf bestimmte Farbe in Desktop zeichnen
Wer weiß was :?:

[Medium]

Da wirst du wohl oder übel selbst Hand anlegen müssen. Folgende Schritte in etwa:

- Screenshot vom aktuellen Desktop machen (Screenshot)
- Den Text auf ein temporäres Bitmap ausgeben
- Die Pixel im Screenshot auf die entsprechende Farbe prüfen, die im temporären Bitmap zum Text gehören
- Wenn ein Pixel ein Textpixel ist und der entsprechende Pixel auf dem Screenshot die richtige Farbe hat, dann den Pixel auf dem Desktop setzen

Wenn du geglättete Fonts willst, kannst du den Grauwert eines Pixels im temp. Bitmap als Alpha interpretieren, und mit der Pixelfarbe auf dem Screenshot entsprechend verrechnen, und diese Farbe dann auf den Desktop zeichnen. Aber du wirst glaube ich nicht drum herum kommen, das ganze pixelweise "zu Fuß" machen zu müssen.