tlg master delpih...gimana caranya bisa berubah posisi component Line/tshape yg bisa berubah rubah posisi sudut..posisi bisa dalam 30 derajat,45derajat,50 derajat dll...pls tlg ya..thanks

setau aku TShape (standard) tidak supoort untuk keperluan itu......

kata temen aq dia pake component line di vb bisa di buat posisinya bisa tampil dalam berbagai sudut...apakah delphi ga punya component line spt di vb yg bisa buat posisi berubah rubah kah?thanks...mohon bimbingannya..

sebenarnya tujuan mu mo buat apa??

mau coba belajar bikin jam..jadi jarum pake line gitu...kira kira bisa ga?thanks....

pake canvas aja

@wati: mau coba belajar bikin jam..jadi jarum pake line gitu...kira kira bisa ga?thanks....

coba tanya mbah google, kata ajaibnya...abra kadabra...eh...analog clock delphi source..

Coba script ini procedure TForm1.FormPaint(Sender: TObject); var i:byte; jam,menit,detik,milidetik:word; Diameter:integer; JariJam, JariMenit, JariDetik, TebalGaris, UkuranHuruf : byte; begin Diameter := 440; TebalGaris := 5; UkuranHuruf := 12; jariJam := 150; jariMenit := 180; JariDetik := 200; Canvas.Ellipse(5,5,Diameter - 5 ,Diameter - 5 ); for i:=1 to 12 do Canvas.TextOut( (Diameter div 2)-round((jariDetik-6)sin(-i pi/6))-6, (Diameter div 2)-round((jariDetik-6)cos(-i pi/6))-11, inttostr(i)); DecodeTime(Now,jam,menit,detik,milidetik); Canvas.Pen.Color:=clRed; Canvas.Pen.Width:=2; Canvas.MoveTo(Diameter div 2,Diameter div 2); Canvas.LineTo( (Diameter div 2)-round(jariDetiksin(-detik pi/30)), (Diameter div 2)-round(jariDetikcos(-detik pi/30))); Canvas.Pen.Color:=clGreen; Canvas.Pen.Width:=3; Canvas.MoveTo(Diameter div 2,Diameter div 2); Canvas.LineTo( (Diameter div 2)-round( jariMenitsin(-menit pi/30-detikpi/1800)), (Diameter div 2)-round( jariMenit cos(-menitpi/30-detik pi/1800))); Canvas.Pen.Color:=clBlue; Canvas.Pen.Width:=4; Canvas.MoveTo(Diameter div 2,Diameter div 2); Canvas.LineTo( (Diameter div 2)-round( jariJamsin(-jam pi/6-menitpi/360)), (Diameter div 2)-round( jariJam cos(-jampi/6-menit pi/360))); end; procedure TForm1.Timer1Timer(Sender: TObject); begin onPaint(Sender); end; end.