rotar imagen en c++ builder

[[escafandra]]

Guarda el código delphi en un archivo exclusivo para él. Nombralo como quieras por ejemplo MODULO.PAS

Incluyelo en el proyecto como harías con otro módulo escrito en C.

Incluye el archivo cabecera MODULO.HPP donde tengas que usar esas funciones escritas en delphi. Ese archivo cabecera lo va a crear Builder automáticamente cuando compiles es código delphi.

Saludos.

[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.