obrut o 180 stopni

sciaglem kod z FAQ jak obrucic obraz o 180 stopni. Teraz przeszukalem cale FAQ i nie moge znaleŹĆ jesczez raz tego postu a kod jest taki:

procedure TForm1.Button1Click(Sender: TObject);
var
Canvas:TCanvas;
begin
Canvas.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;
end.

A chodzi o to ze kod sie kompiluje ale sie nie obraza obraz bo blad wyskakuje czemu???

Jak ja cię "obrucę" to skoczysz natychmiast po słownik :)

var
Can: TCanvas;
begin
Can := TCanvas.Create;
try
Can.Handle := CreateDC('DISPLAY',nil,nil,nil);
Can.CopyRect(Rect(0,0,Screen.Width,Screen.Height),Can,
Rect(0,Screen.Height,Screen.Width,0));
finally
Can.Free;
end;
end;

A ja to zwykle robię tak:

var
Can: TCanvas;
Uchwyt: HWND;
begin
Uchwyt := GetDC(0);
Can := TCanvas.Create;
try
Can.Handle := Uchwyt;
Can.CopyRect(Rect(0,0,Screen.Width,Screen.Height), Can,
Rect(0,Screen.Height,Screen.Width,0));
ReleaseDC(Handle, Uchwyt);
finally
Can.Free;
end;
end;

Siła przyzwyczajenia :) A swoją drogą to nie obrót tylko symetria względem OX