VideoHelp Forum

Our website is made possible by displaying online advertisements to our visitors. Consider supporting us by disable your adblocker or Try ConvertXtoDVD and convert all your movies to DVD. Free trial ! :)
+ 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