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
+ Reply to Thread
Results 1 to 2 of 2
Thread
-
New avatar uploaded successfully.
Avatar update completed.
Similar Threads
-
Testing BBCode "CODE' Tag
By Frank-0-Video in forum TestReplies: 0Last Post: 6th Feb 2009, 11:31 -
PHP code used to generate code for Avysinth join mov and avi files
By lindylex in forum User guidesReplies: 0Last Post: 19th Sep 2008, 04:37 -
Region Free code for Samsung DVD-R130 (australian code)
By nicksanders in forum DVD & Blu-ray RecordersReplies: 0Last Post: 1st Aug 2006, 00:26 -
testing onmousover withscript code enclosed
By thecoalman in forum TestReplies: 4Last Post: 11th Dec 2005, 07:22
Statistics
Newest guides
Latest tool updates
New media comments



Quote