Momentan gesetzten Font herausfinden!

Übersicht

BlitzBasic

Beginners-Corner

	Artemis Betreff: Momentan gesetzten Font herausfinden!	Do, März 24, 2005 17:38 Antworten mit Zitat
Hi Leute!! Kann ich den Momentan gesetzten font herausfinden?? Also ungefäher so:BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] t1$=\"1\" t2$=\"2\" t3$=\"3\" t4$=\"4\" LoadFont(\"arial\",Rand(5,15)) f1 = momentanerfont LoadFont(\"arial\",Rand(5,15)) f2 = momentanerfont LoadFont(\"arial\",Rand(5,15)) f3 = momentanerfont LoadFont(\"arial\",Rand(5,15)) f4 = momentanerfont Repeat SetFont f1 Text 10,10,t1$ SetFont f2 Text 10,110,t2$ SetFont f3 Text 10,210,t3$ SetFont f4 Text 10,310,t4$ Until KeyHit(1) Das Beispiel ist natürlich QUATSCH!! Ich brauch das um in einer funktion einem typeobjekt diesen wert zuzuweisen, damit dieser auch in seinem font erscheint!

Artemis

Betreff: Momentan gesetzten Font herausfinden!

Do, März 24, 2005 17:38
Antworten mit Zitat

Hi Leute!!
Kann ich den Momentan gesetzten font herausfinden??
Also ungefäher so:BlitzBasic: [AUSKLAPPEN]


t1$=\"1\"
t2$=\"2\"
t3$=\"3\"
t4$=\"4\"
LoadFont(\"arial\",Rand(5,15))
f1 = momentanerfont
LoadFont(\"arial\",Rand(5,15))
f2 = momentanerfont
LoadFont(\"arial\",Rand(5,15))
f3 = momentanerfont
LoadFont(\"arial\",Rand(5,15))
f4 = momentanerfont
Repeat
  SetFont f1
  Text 10,10,t1$
  SetFont f2
  Text 10,110,t2$
  SetFont f3
  Text 10,210,t3$
  SetFont f4
  Text 10,310,t4$
Until KeyHit(1)

Das Beispiel ist natürlich QUATSCH!!
Ich brauch das um in einer funktion einem typeobjekt diesen wert zuzuweisen, damit dieser auch in seinem font erscheint!

	Apocalyptic	Do, März 24, 2005 18:16 Antworten mit Zitat
Da ich den Zusammenhang zwischen deinem Pseudocode und deiner Erklärung nicht verstehe, weiß ich nicht so ganz, was du willst... Du kannst einfach einer Variable den momentan geladenen Font zuweisen: Code: [AUSKLAPPEN] [EINKLAPPEN] Blubb=LoadFont("Arial",16) Setfont Blubb:ActFont=Blubb Das mit den Types könnte so aussehen: Code: [AUSKLAPPEN] [EINKLAPPEN] Dim Font(2) For i=0 To 2 Font(i)=LoadFont("Arial",16+i6) Next Type Blubb Field Msg$ Field Font% End Type For i=0 To 5 b.Blubb=New Blubb b\Msg="Bla" b\Font=Font(Rand(0,2)) Next i=0 For b.Blubb=Each Blubb SetFont b\Font Text 0,i30,b\Msg i=i+1 Next WaitKey() Wie gesagt, aus deiner Erklärung werd ich nicht so ganz schlau...
Suum cuique [ www.ffs-net.de.vu ] [ Raycaster ]

Apocalyptic

Do, März 24, 2005 18:16
Antworten mit Zitat

Da ich den Zusammenhang zwischen deinem Pseudocode und deiner Erklärung nicht verstehe, weiß ich nicht so ganz, was du willst...

Du kannst einfach einer Variable den momentan geladenen Font zuweisen:

Code: [AUSKLAPPEN]

Blubb=LoadFont("Arial",16)
Setfont Blubb:ActFont=Blubb

Das mit den Types könnte so aussehen:

Code: [AUSKLAPPEN]

Dim Font(2)

For i=0 To 2
Font(i)=LoadFont("Arial",16+i*6)
Next

Type Blubb
Field Msg$
Field Font%
End Type

For i=0 To 5
b.Blubb=New Blubb
b\Msg="Bla"
b\Font=Font(Rand(0,2))
Next

i=0

For b.Blubb=Each Blubb
SetFont b\Font
Text 0,i*30,b\Msg
i=i+1
Next

WaitKey()

Wie gesagt, aus deiner Erklärung werd ich nicht so ganz schlau... Rolling Eyes

Suum cuique

[ www.ffs-net.de.vu ] [ Raycaster ]

	Artemis	Do, März 24, 2005 18:22 Antworten mit Zitat
sorry!!! also:BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Type ding Field x,y,txt$,font End Type Global thing.ding Function creatething(x,y,txt$) thing.ding = New ding thing\x = x thing\y = y thing\txt$ = txt$ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; thing\font = actuellerfont ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; End Function Ich könnte den font natürlich mit übergeben, aber ich hab schon so viele parameter! (Das oben ist auch nur ein pseudocode!!!)

Artemis

Do, März 24, 2005 18:22
Antworten mit Zitat

sorry!!!
also:BlitzBasic: [AUSKLAPPEN]


Type ding
  Field x,y,txt$,font
End Type
Global thing.ding
Function creatething(x,y,txt$)
  thing.ding = New ding
  thing\x = x
  thing\y = y
  thing\txt$ = txt$
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  thing\font = actuellerfont
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
End Function

Ich könnte den font natürlich mit übergeben, aber ich hab schon so viele parameter! (Das oben ist auch nur ein pseudocode!!!)

	Apocalyptic	Do, März 24, 2005 18:30 Antworten mit Zitat
Zu viele Parameter? Naja, du musst eben jedes mal, wenn du SetFont anwendest, der globalen Variable actuellerfont den geladenen Font zuweisen. (Das habe ich oben ja schon angedeutet...)
Suum cuique [ www.ffs-net.de.vu ] [ Raycaster ]

Apocalyptic

Do, März 24, 2005 18:30
Antworten mit Zitat

Zu viele Parameter? Rolling Eyes

Naja, du musst eben jedes mal, wenn du SetFont anwendest, der globalen Variable actuellerfont den geladenen Font zuweisen. (Das habe ich oben ja schon angedeutet...)

Suum cuique

[ www.ffs-net.de.vu ] [ Raycaster ]

	Artemis	Do, März 24, 2005 18:37 Antworten mit Zitat
tja schade!! trotzdem THX

Artemis

Do, März 24, 2005 18:37
Antworten mit Zitat

tja schade!!
trotzdem THX

	Apocalyptic	Do, März 24, 2005 18:46 Antworten mit Zitat
Naja, so schlimm ist es ja auch nicht, dass es dafür keinen Befehl gibt. Wenn dich die eine Zeile zusätzlich zu jedem SetFont stört, kannst du ja ne kleine Funktion schreiben, die den SetFontBefehl ausführt und den geladenen Font eben der Variable zuweist...
Suum cuique [ www.ffs-net.de.vu ] [ Raycaster ]

Apocalyptic

Do, März 24, 2005 18:46
Antworten mit Zitat

Naja, so schlimm ist es ja auch nicht, dass es dafür keinen Befehl gibt. Wenn dich die eine Zeile zusätzlich zu jedem SetFont stört, kannst du ja ne kleine Funktion schreiben, die den SetFontBefehl ausführt und den geladenen Font eben der Variable zuweist...

Suum cuique

[ www.ffs-net.de.vu ] [ Raycaster ]

Zuletzt bearbeitet von Apocalyptic am Do, März 24, 2005 18:47, insgesamt einmal bearbeitet

	Artemis	Do, März 24, 2005 18:46 Antworten mit Zitat
wie dat?

Artemis

Do, März 24, 2005 18:46
Antworten mit Zitat

wie dat?

	Apocalyptic	Do, März 24, 2005 18:50 Antworten mit Zitat
So in etwa: Code: [AUSKLAPPEN] [EINKLAPPEN] Global ActFont f=LoadFont("Arial",16) SetFont2(f) Text 10,10,ActFont WaitKey() Function SetFont2(Font) SetFont Font ActFont=Font End Function Also mit den Types könnte das dann so aussehen:Code: [AUSKLAPPEN] [EINKLAPPEN] Global ActFont Dim Font(2) For i=0 To 2 Font(i)=LoadFont("Arial",16+i6) Next Type Blubb Field Msg$ Field Font% End Type For i=0 To 5 SetFont2(Font(Rand(0,2))) CreateBlubb("Bla") Next i=0 For b.Blubb=Each Blubb SetFont b\Font Text 0,i30,b\Msg i=i+1 Next WaitKey() Function CreateBlubb(Msg$) b.Blubb=New Blubb b\Msg="Bla" b\Font=ActFont End Function Function SetFont2(Font) SetFont Font ActFont=Font End Function
Suum cuique [ www.ffs-net.de.vu ] [ Raycaster ]

Apocalyptic

Do, März 24, 2005 18:50
Antworten mit Zitat

So in etwa:

Code: [AUSKLAPPEN]

Global ActFont

f=LoadFont("Arial",16)

SetFont2(f)

Text 10,10,ActFont

WaitKey()

Function SetFont2(Font)
SetFont Font
ActFont=Font
End Function

Also mit den Types könnte das dann so aussehen:Code: [AUSKLAPPEN]

Global ActFont

Dim Font(2)

For i=0 To 2
Font(i)=LoadFont("Arial",16+i*6)
Next

Type Blubb
Field Msg$
Field Font%
End Type

For i=0 To 5
SetFont2(Font(Rand(0,2)))
CreateBlubb("Bla")
Next

i=0

For b.Blubb=Each Blubb
SetFont b\Font
Text 0,i*30,b\Msg
i=i+1
Next

WaitKey()

Function CreateBlubb(Msg$)
b.Blubb=New Blubb
b\Msg="Bla"
b\Font=ActFont
End Function

Function SetFont2(Font)
SetFont Font
ActFont=Font
End Function

Suum cuique

[ www.ffs-net.de.vu ] [ Raycaster ]

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Momentan gesetzten Font herausfinden!

Betreff: Momentan gesetzten Font herausfinden!