VideoHelp Forum
+ Reply to Thread
Results 1 to 2 of 2
Thread
  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

Visit our sponsor! Try DVDFab and backup Blu-rays!