Arsip: component line yg bisa muncul dalam berbagai sudut.

 
user image
more 9 years ago

wati

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
user image
more 9 years ago

mas_kofa

setau aku TShape (standard) tidak supoort untuk keperluan itu......
user image
more 9 years ago

wati

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..
user image
more 9 years ago

mas_kofa

sebenarnya tujuan mu mo buat apa??
user image
more 9 years ago

wati

mau coba belajar bikin jam..jadi jarum pake line gitu...kira kira bisa ga?thanks....
user image
more 9 years ago

singgih32

pake canvas aja
user image
more 9 years ago

madi

@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..
user image
more 9 years ago

musafir

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.
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com