Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Das kann ich nicht bestätigen. Unter Win7 mit PB5.72LTSx86 erhalte ich als Ergebnis:MightyMAC hat geschrieben:...
EDIT: Ich habe jetzt gerade PB 5.72 64-bit installiert. Hier funktioniert es ohne Probleme. D.h. das Problem tritt bei allen 32-bit Versionen auf. Das sollte es aber nicht, oder?
Code: Alles auswählen
EnableExplicit
Procedure.d GetLineHeight()
VectorFont(LoadFont(0, "Segoe UI", 12), 12)
VectorTextHeight("a")
ProcedureReturn 15.2
EndProcedure
Procedure.d GetWholeHeight()
Protected Result.d
Result = 0.0
Debug "Stimmt: " + GetLineHeight()
Result + GetLineHeight()
Debug "Stimmt nicht: " + Result
ProcedureReturn Result
EndProcedure
OpenWindow(0, 0, 0, 500, 300, "Test")
CanvasGadget(0, 0, 0, 500, 300)
StartVectorDrawing(CanvasVectorOutput(0))
Debug "Stimmt natürlich auch nicht: " + GetWholeHeight()
StopVectorDrawing()
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
Code: Alles auswählen
EnableExplicit
LoadFont(0, "Segoe UI", 12)
Procedure.d GetLineHeight(Font)
Protected r1.d
If StartVectorDrawing(WindowVectorOutput(0))
VectorFont(FontID(Font))
r1 = VectorTextHeight("a")
StopVectorDrawing()
EndIf
ProcedureReturn r1
EndProcedure
Procedure.d GetLineHeight2(Font)
Protected r1.d
If StartDrawing(WindowOutput(0))
DrawingFont(FontID(Font))
r1 = TextHeight("a")
StopDrawing()
EndIf
ProcedureReturn r1
EndProcedure
Procedure.d GetWholeHeight()
Protected Result.d
Debug "VectorDrawing"
Result = 0.0
Debug "Ok: " + GetLineHeight(0)
Result + GetLineHeight(0)
Debug "Faild: " + Result
Debug "2dDrawing"
Result = 0.0
Debug "Ok: " + GetLineHeight2(0)
Result + GetLineHeight2(0)
Debug "Ok: " + Result
ProcedureReturn Result
EndProcedure
OpenWindow(0, 0, 0, 500, 300, "Test")
Debug "Result: " + GetWholeHeight()
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
Mit beiden Prozeduren.MightyMAC hat geschrieben:Mit beiden Procedures?