Ich hab meinen Rechner eben nebenbei ein wenig Rechnen lassen (welch Wunder xD) und hab ein wenig in der Sprachreferenz gelesen. In der Graphicsklasse gab es das (Methoden eines Graphics) um die Höhe und Weite eines Strings zu ermitteln. Ich zitier mal eben aus dem Köpfchen mit meinen Worten:
StringWidth(Text) Ermittelt die Weite von "Text" in Pixel in Abhängigkeit von der Schriftart und Größe StringHeight(Text, WrapWidth) Ermittelt die Höhe von "Text" in Pixel in Abhängigkeit von der Schriftart und Größe. WrapWidth gibt an, bei welcher Weite "Text" umgebrochen wird und eine neue Zeile begonnen wird. Am 19.10.2007 18:12 Uhr schrieb "Michael Köhler" unter <[EMAIL PROTECTED]>: > Gerne doch...ich versuch es mal aus dem Kopf zu beschreiben > > Dim Mein_Bild As Picture > Dim Mein_Graphics As New Graphics > Dim Mein_String As New StringShape > > Mein_String.Text="Ich bin gedreht!" > Mein_String.TextFont="Arial" > Mein_String.Rotation=3.1415/2 '90-grad-Drehung > > Mein_Bild=NewPicture(100,200,2) > Mein_Bild.Graphics.DrawObject Mein_String,50,50 > > Mein_Graphics=OpenPrinterDialog() > > If Mein_Graphics<>NIL Then > Mein_Graphics.DrawPicture Mein_Bild,0,0 > End If > > War glaub ich genau so und klappt auch ganz gut. Irgendwie, ich weis jetzt > nicht wie, kann man auch die Größe(bzgl. Weite und Höhe des Strings) > bestimmen und dann könnte man das Bild entsprechend erzeugen. Ich hab da ja > jetzt nur mal so feste Werte vorgegeben. Wenn ich daheim bin schau ich > nochmal wie das ging. Ich brauchte nämlich die Höhe und Weite von Strings > beim Drucken damit ich wusste wann ich ne neue Seite einleiten musste. > > Grüße Michael > > Am 19.10.2007 17:38 Uhr schrieb "Enno Bussmann" unter <[EMAIL PROTECTED]>: > >> Michael Köhler schrieb: >>> Hab ich eben beim "Testen" auch rausbekommen, dass es nur als Bild zu >>> drucken ist...Rossi war da ein wenig schneller. Hab auch RB5.5 >>> >>> >>> >> Und wenn du mir jetzt auch noch freundlicherweise erklärt, wie du das in >> ein bild malst, dann kapiere ich es hoffentlich endlich mal. >> Dazu folgende ausgangssituation: ich habe für einen freund ein programm >> begonnen, mit dem er seine videoeinleger drucken kann und alles steht >> bis auf die beiden senkrechten beschriftungen, die aus jeweils derselben >> textzeile bestehen. >> Diese textzeile wird wiederum aus zwei editfields in einem einzigen >> fenster zusammengesetzt, sodass man eigentlich den paint-event des >> fensters nützen könnte. >> Ich habe bewusst auf ein weiteres fenster mit standkorrekturmöglichkeit >> verzichtet und alle druckanweisungen im action event eines pushbuttons >> untergebracht. >> >> Danke im Voraus >> >> enno >
