Problem mit matrizetransoframtion
Liste der Anhänge anzeigen (Anzahl: 1)
in der Anglage könnt ihr das programm sehen! Eigentlich soll das programm eine genzeichnete Figur drehen!
Mein probleem ist das die figur gedrehr wird awer auch gleichzeitig kleiner oder grösser wird während dem drehen!doch das will ich eigentlich nicht! Hier ist der code wie ich die Matrize transformiert habe!
Delphi-Quellcode:
hoffe jemand versteht mein probleem! falls jemand eine ahnung hat wie man das bewerkstelligen kann dann kann er mir villeich im icq schreiben! wenn es zu aufwendig ist es hier zu erklären!
procedure TForm1.TBChange(Sender: TObject);
begin lblAngle.Caption := FloatToStr( (tb.Position-33)*(pi/32)); sgm.cells[0,0]:=floattostr(cos(strtofloat(lblAngle.caption)+sin(strtofloat(lblAngle.caption)))); sgm.cells[1,0]:=floattostr(-sin(strtofloat(lblAngle.caption)+cos(strtofloat(lblAngle.caption)))); sgm.cells[0,1]:=floattostr(-sin(strtofloat(lblAngle.caption)+cos(strtofloat(lblAngle.caption)))); sgm.cells[1,1]:=floattostr(cos(strtofloat(lblAngle.caption)+sin(strtofloat(lblAngle.caption)))); sgMDblClick(sender); repaint; end; danke mit bestem gruss einsamerwolf |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:14 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz