rotar imagen en c++ builder

[pulpin]

dime donde estoy errado:

copio el codigo en el notepad y lo guardo como .pas
luego abro el c++ builder, y abro el archivo .pas, pero no me permite compilar el archivo.

lo otro que intento es:

guardo el archivo como .pas en el notepad, luego adiciono el archivo .pas a mi proyecto, luego le doy copilar y me salen varios errores. los cuales tendre que estudiar para resolver.

gracias, espero tu opinion

[[escafandra]]

Claro, Si simplemente has copiado el código, te faltan algunas cosas.
Debes definir una unidad completa con sus cabeceras...

Prueba a compilar este código tal cual, pero guardado en un archivo llamado Rotar.pas. Lo añades a tu proyecto....

Código Delphi [-]
unit Rotar;

//----------------------------------------------------------------------------------------
interface  

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;  

function Rotate(Canvas: TCanvas; Width, Height, iAngle: Integer; Back: LongBool): TBitmap;



//----------------------------------------------------------------------------------------
implementation  

function Rotate(Canvas: TCanvas; Width, Height, iAngle: Integer; Back: LongBool): TBitmap;
var
 Points: array [0..2] of TPoint;
 Radio, Angle, _Angle: Real;
begin
 Points[0] := Point(-Width, Height);
 Points[1] := Point(Width, Height);
 Points[2] := Point(-Width, -Height);
// Points[3] := Point(Width, -Height);
 Radio := Sqrt(Sqr(Width / 2) + Sqr(Height / 2));
 _Angle := (360 - (iAngle mod 360)) * pi / 180;
 iAngle := 3;
 repeat Dec(iAngle);
  Angle := ArcTan(Points[iAngle].Y / Points[iAngle].X) + _Angle;
  if Points[iAngle].X < 0 then
   Angle := Angle + Pi;
  Points[iAngle] := Point(Round((Cos(Angle) * Radio) + Radio), Round(Radio - (Sin(Angle) * Radio)));
 until not LongBool(iAngle);

 Result := TBitmap.Create;
 Result.TransparentColor := clFuchsia;
 Result.Canvas.Brush.Color := clFuchsia;
 iAngle := Round(Radio * 2);
 Result.Height := iAngle;
 Result.Width := iAngle;
 plgblt(Result.Canvas.Handle, Points, Canvas.Handle, 0, 0, Width, Height, 0, 0, 0);
 if Back then Result.Canvas.CopyRect(Rect(0, 0, iAngle, iAngle), Result.Canvas, Rect(iAngle-1, 0, 0, iAngle));
end;

end.

De esta forma seguro que compila
Saludos.



EDITO:

Tambien te compliará si en la linea uses colocas sólamente:

Código Delphi [-]
uses
  Windows, SysUtils, Classes, Graphics;

[pulpin]

pues gracias se resolvieron algunos errores ahora solo me salen 4:

'UNIT' expected but 'INTERFACE' found
undeclared identifier TBitmap
undeclared identifier TCanvas
';' expected but 'IMPLEMENTATION' found
y un fatal error que dice que no puede compilar usando unit " C:\rotar.pas"

[pulpin]

ahora solo me salen estos errores

el de UNIT
el de IMPLEMENTATION
y el ultimo

que me falta

[[escafandra]]

Si has copiado todo el código tal y como te lo he posteado, en un archivo de texto llamado Rotar.pas, no deberías tener errores.

Lo he probado en C++Builder 5 y me compila perfectamente....

Repásalo bien.

Saludos.

[pulpin]

muchas gracias, ya se, me habia equivocado en dos lineas, perdon por el error.

sumale una mas a mi deuda.

[pulpin]

cuando le doy run a mi aplicacion me pide EnJpgGr.h, el archivo de cabecera que no tengo, crees que me falto algo.