Textausgabe in ein Image

[sharkpeter]

Hallo,

erst habe ich gedacht es liegt noch an der alten Version 3.94, musste mich
aber eines besseren belehren lassen.

Man erstelle ein Image und versuche über die Position 4096 einen Text zu
plazieren. Fehlanzeige

Hier ein Testprogramm dafür:

Code: Alles auswählen

; Testprogramm mit pb_4_00

#Window_0 = 0  
#ImageN_0 = 0
#Scro_0   = 0
#ImGad_0  = 1

; Dieses Programm soll zeigen, das es nicht möglich ist einen Text oberhalb
; der Position 4096 zu plazieren und auch anzuzeigen. Programm einfach starten
; und dann mal nach rechts srollen. Siehe da, leere Felder.
; Erst habe ich gedacht, das es an PB_3.94 liegt und habe den Test mit
; PB_4.00 wiederholt, aber da ist es genauso.

  If CreateImage(#ImageN_0,5000,300)
    StartDrawing(ImageOutput(#ImageN_0))
      For a = 0 To 4800 Step 100
        DrawText(a,50,"X-Position")
        DrawText(a,70,Str(a))
      Next a
    StopDrawing()
  Else
    End
  EndIf
    
  If OpenWindow(#Window_0,  0,  0,603,420,"Test Bildgröße")
    If CreateGadgetList(WindowID(#Window_0))
      ScrollAreaGadget(#Scro_0  ,  2,  2,600,284,5020,264, 20)
        ImageGadget   (#ImGad_0 ,  0,  0,180,180,ImageID(#ImageN_0))
      CloseGadgetList()
      Quit=#False   
      Repeat
        Select WaitWindowEvent()
          Case #PB_Event_CloseWindow
            Quit=#True
        EndSelect
      Until Quit
    Else
      End
    EndIf
  Else
    End
  EndIf
  End

Sollte dies ein Bug sein? Weil wenn ich ein Bild erstellen kann das größer
ist als 4096 Pixel, so sollte ich dort auch einen Text positionieren können.

Jetzt kann man fragen, warum denn ein Bild so groß sein muß ... Manchmal
muß es halt, ich wollte ein Diagramm zeichnen lassen und die Abszissen beschriften.

Gruß Jens

[nco2k]

bei mir klappts einwandfrei.

c ya,
nco2k

[Jason]

Hier ein Testprogramm dafür:

Hier funktioniert es... Win98SE, PB4 beta 8...

[ts-soft]

4800 sagt der ganz Rechte

[Kiffi]

4800 sagt der ganz Rechte

dito

Grüße ... Kiffi

[Falko]

Code: Alles auswählen

; Testprogramm mit pb_4_00
#Window_0 = 0  
#ImageN_0 = 0
#Scro_0   = 0
#ImGad_0  = 1
; Dieses Programm soll zeigen, das es nicht möglich ist einen Text oberhalb
; der Position 4096 zu plazieren und auch anzuzeigen. Programm einfach starten
; und dann mal nach rechts srollen. Siehe da, leere Felder.
; Erst habe ich gedacht, das es an PB_3.94 liegt und habe den Test mit
; PB_4.00 wiederholt, aber da ist es genauso.
  If CreateImage(#ImageN_0,9000,300)
    StartDrawing(ImageOutput(#ImageN_0))
      For a = 0 To 9000 Step 100
        DrawText(a,50,"X-Position")
        DrawText(a,70,Str(a))
      Next a
    StopDrawing()
  Else
    End
  EndIf
    
  If OpenWindow(#Window_0,  0,  0,603,420,"Test Bildgröße")
    If CreateGadgetList(WindowID(#Window_0))
      ScrollAreaGadget(#Scro_0  ,  2,  2,600,284,9020,264, 20); hier eine Änderung von Falko
        ImageGadget   (#ImGad_0 ,  0,  0,180,180,ImageID(#ImageN_0))
      CloseGadgetList()
      Quit=#False   
      Repeat
        Select WaitWindowEvent()
          Case #PB_Event_CloseWindow
            Quit=#True
        EndSelect
      Until Quit
    Else
      End
    EndIf
  Else
    End
  EndIf
  End

[sharkpeter]

@Falko,
komisch, der Code von dir unterscheidet sich nur in der Größe des Bildes. Bei dir sind es 9000 Pixel und es funktioniert.

@Jason,
da bin ich aber froh, weil ich auch Win9x benutze, daran liegt es dann schon einmal nicht.

ABER:
Ich habe eben mal ein wenig experimentiert mit der Größe und siehe da es stellt sich folgendes heraus:

- ab 8065 geht es wieder, zwischen 4096 und 8065, Fehlanzeige. Da kommt dann das unten im Bild dargestellte heraus.

Code: Alles auswählen

; Testprogramm mit pb_4_00
  #Window_0 = 0 : #ImageN_0 = 0 : #Scro_0   = 0 : #ImGad_0  = 1

  #Size = 4200; 8065 ; ab 8065 geht es wieder

  If CreateImage(#ImageN_0,#Size,300)
    StartDrawing(ImageOutput(#ImageN_0))
      For a = 0 To #Size-100 Step 100
        DrawText(a,50,"X-Position"): DrawText(a,70,Str(a))
      Next a
    StopDrawing()
  EndIf
    
  If OpenWindow(#Window_0,  0,  0,603,420,"Test Bildgröße")
    If CreateGadgetList(WindowID(#Window_0))
      ScrollAreaGadget(#Scro_0  ,  2,  2,600,284,#Size+20,264, 20)
        ImageGadget   (#ImGad_0 ,  0,  0,  1,  1,ImageID(#ImageN_0))
      CloseGadgetList()
      Quit=#False   
      Repeat
        Select WaitWindowEvent()
          Case #PB_Event_CloseWindow
            Quit=#True
        EndSelect
      Until Quit
    EndIf
  EndIf
  End

Und hier das Bild:

[ts-soft]

tja, ja, ja, weiß nicht:

[Falko]

Unter XP und unter VirtuellPC mittels Win98SE getestet.
Alles in Ordnung.

Windows Me macht da wohl was anderes. Ich müsste nur noch testen, wenn ich Purebasic auf win98SE installiere, ob dann beim Compilieren der Fehler entsteht.

[Edit]
Habe jetzt PB4B9 incl. Updates auf meinem VirtuellPC mit diesem Source
unter Win98SE kompiliert. Wird ohne Probleme einwandfrei gestartet und
zeigt keine leeren Textfelder wie im obigen Image an.
Daher gehe ich von aus, das es an Windows Me liegen muss. Entweder sind dort die aktuellen Treiber wie DirectX usw. nicht auf den neusten Stand, oder Me macht eh schon Probleme.

Man bin ich froh, das ich damals von Me weg war
[/Edit]
Gruß Falko

[sharkpeter]

@Falko,

Beta9 habe ich auch. Ist schon eigenartig. Ich für meinen Teil habe entschieden,
das ich das Image dann eben auf 4000 begrenze und fertig ist der Laden.

An DirektX kann es ja wohl auch nicht liegen, die werden doch bei 2D gar nicht
benötigt, oder irre ich da.

@TS
hast dir ja richtig Mühe gegeben mit der Grafik

Hier noch ein Bild (SSFK-Grafik) für den Grund der Sache:

[img]http://www.winbahn.de/BilderPureBoard/T ... 1[PNG].png[/img]

Gruß Jens