odwracanie kolorów pulpitu

0

nigdzie nie znalazłem, więc piszę:

Jak za pomocą DELPHI odwrócić kolory ekranu?
Jak za pomocą DELPHI obrócić pulpit o 180%?

pozdrawiam

0

Słabo szukałeś;] Fraza w Googlach "obróć ekran w Delphi" i dwa pierwsze z góry (PIERWSZY NA 4PROGRAMMERS!!!):]

procedure TForm1.Button1Click(Sender: TObject);
var
Canvas: TCanvas;
begin
Canvas:=TCanvas.Create;
try
  Canvas.Handle:=CreateDC('DISPLAY',nil,nil,nil);
  Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),Canvas,Rect(0,Screen.Height,Screen.Width,0));
finally
  Canvas.Free;
end;

end;
0

no dzięki :) a o obrócenie KOLORÓW? :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1