odwracanie kolorów pulpitu

odwracanie kolorów pulpitu
TS
  • Rejestracja: dni
  • Ostatnio: dni
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

ojcieczhackme
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 23
0

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

Kopiuj
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;
TS
  • Rejestracja: dni
  • Ostatnio: dni
0

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

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.