unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
frxClass, StdCtrls, Grids, frxCross, frxDesgn, TeCanvas, TeeEdiGrad,
Buttons, TeePenDlg, ColorButton, ExtCtrls, jpeg, mcmImageKernel
//findet er nicht,
mcmImageTransform
//findet er nicht;
type
TForm1 =
class(TForm)
...
Image1: TImage;
mcmImageTransform1: TmcmImageTransform;
...
procedure RotateTImage(Source: TImage);
private
{ Private declarations }
public
{ Public declarations }
end;
...
var
Form1: TForm1;
implementation
{$R *.DFM}
...
procedure TForm1.rotateTImage(Source: TImage);
var
ImageTransform: TmcmImageTransform;
begin // findet natürlich alle Tmcm... nicht
ImageTransform := TmcmImageTransform.create(Self);
ImageTransform.SourceImage[0] := TmcmImage.Create;
ImageTransform.SourceImage[0].DibHandle := SourceReleaseHandle;
ImageTransform.Rotate(True, 45);
// Rotate 45 grad
//return rotated Image back to source
Source.handle := ImageTransform.ResultImage.ReleaseHandle;
ImageTransform.SourceImage[0].Free;
ImageTransform.ResultImage.Free;
TmcmImageTransform.Free;
end;
...
end.