VideoHelp Forum

Try DVDFab and download streaming video, copy, convert or make Blu-rays,DVDs! Download free trial !
+ Reply to Thread
Results 1 to 2 of 2
Thread

Threaded View

  1. Member vhelp's Avatar
    Join Date
    Mar 2001
    Location
    New York
    Search Comp PM
    testing syntax highlighting/code color-highlighting/etc ...

    [code=php]
    procedure TForm1.Button1Click(Sender: TObject);
    Var
    Center : TPoint;
    Bitmap : TBitmap;
    begin
    Bitmap := TBitmap.Create;
    Try
    Center.y := (Image.Height div 2)+20;
    Center.x := (Image.Width div 2)+0;
    RotateBitmap_ads(
    Image.Picture.Bitmap, //SourceBitmap : TBitmap;
    Bitmap , //DestBitmap : TBitmap;
    Center , //Center : TPoint;
    Angle );//Angle : Extended): TBitmap;
    Angle := Angle + 15;
    Image2.Picture.Bitmap.Assign(Bitmap);
    Finally
    Bitmap.Free;
    End;
    end;
    [/code]

    EDIT: nope, didnt' work.

    -vhelp 5139
    Quote Quote  
  2. Banned
    Join Date
    Jun 2007
    Location
    UNREACHABLE
    Search Comp PM
    New avatar uploaded successfully.

    Avatar update completed.

    Quote Quote  



Similar Threads