PureBasic

Forums PureBasic
Nous sommes le Lun 24/Juin/2019 19:19

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 1 message ] 
Auteur Message
 Sujet du message: Problème pour imprimer du texte en PB441 (Résolu)
MessagePosté: Mar 16/Fév/2010 7:52 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 25/Avr/2008 11:14
Messages: 1305
bonjour
j'ai un soucis pour imprimer, Le problème ce reproduit sous Acrobate Distiller pour la version PB441,
Alors qu'en PB440 cela fonctionne.

ll semblerait qu'avec DRAWINGMODE(1) le texte est maintenant en blanc sur fond banc.
les fichiers d'impressions ont la même taille d'octet en format PDF sous les deux versions PB441 et PB440.

Quand on utilise DRAWINGMODE(4) on s'aperçoit que le document texte est pris en compte dans l'impression.

## RESOLU, C'est la commande " DrawText(x, y, Texte$ [, CouleurTexte [, CouleurFond]])"
##qui par défaut maintenant donne la couleur blanche au texte, Alors qu'avant, c'était le noir.
## j'ai ajouté un drawtext() dans le code et l'on voit sur la fenêtre que le texte est blanc par défaut.

Cordialement

Ci-joint le fichier de "code archive" qui reproduit ce problème.

Code:
; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=2940&highlight=
; Author: realgarfield (updated for PB4.00 by blbltheworm)
; Date: 02. December 2003
; OS: Windows
; Demo: Yes

Global a.l,auswahl.l


Procedure drucken()
  font.l=LoadFont(0,"Arial",250)
 

  For a=1 To auswahl

    If DefaultPrinter()    ;Standard Drucker wird definiert
       StartPrinting("Drucken") ;bezeichnung für Druckauftrag
       StartDrawing(PrinterOutput())
       DrawingMode(1)
       DrawingFont(font)
       DrawText(1800,100,"Drucken")
       DrawingFont(font)
       DrawText(2000,500,"nach")
       DrawingFont(font)
       DrawText(1800,800,"Auswahl")
       StopDrawing()
       StopPrinting()
    EndIf
  Next a 
EndProcedure 
auswahl=1
Quit.l=0

  OpenWindow(0,0,0,200,240,"Drucken",#PB_Window_ScreenCentered)
  CreateGadgetList(WindowID(0))
  If LoadFont(2,"Arial",15) ; geladenen Arial  Zeichensatz grösse 100 Fettschrift
    SetGadgetFont(#PB_Default,FontID(2))   ; als neuen Standard festlegen
  EndIf
  TextGadget(60,0,10,200,20,"Anzahl Exemplare",#PB_Text_Center)
  If LoadFont(3,"Arial",10) ; geladenen Arial  Zeichensatz grösse 100 Fettschrift
    SetGadgetFont(#PB_Default,FontID(3))   ; als neuen Standard festlegen
  EndIf
  ButtonGadget(1,60,50,20,20,"+")
  ButtonGadget(2,60,80,20,20,"-")
  ButtonGadget(3,20,110,70,20,"Drucken")
  ButtonGadget(4,100,110,70,20,"Abbrechen")
  TextGadget(5,90,60,30,25,"",#PB_Text_Center|#PB_Text_Border)
  SetGadgetText(5,Str(auswahl))
;############################
  StartDrawing(WindowOutput(0))
  DrawingMode(1)
  DrawText(50,200,"test drawtext ")
  StopDrawing()
;############################
  Repeat
    Select WindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            DisableGadget(2,0)
            auswahl=auswahl+1
            SetGadgetText(5,Str(auswahl))
          Case 2
            auswahl=auswahl-1
            SetGadgetText(5,Str(auswahl))
            If auswahl=1
              DisableGadget(2,1)
            EndIf
          Case 3
            GetGadgetText(5)
              drucken()
            auswahl=1
            quit=1
          Case 4
            auswahl=1
            quit=1
        EndSelect
    EndSelect
     
  Until quit=1
End



Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 1 message ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye