Imprimer le contenu d'une ListIconGadget ??
Publié : mer. 08/avr./2009 19:03
Bonjour, je suis nouvel utilisateur de PureBasic et déjà bloqué sur mon premier projet ^^" (prometteur hum...)
Voila en gros je souhaiterais pouvoir imprimer le contenu de ma ListIconGadget, tout ce que j'arrive à faire c'est imprimer le gadget donc ce qui nécessite de descendre la ScrollBare n'est pas imprimé.
Voila où j'en suis dans mon code :
Heuu petit détail, je ne comprend absolument rien à ce qui est codé la ^^"
J'espère que quelqu'un comprendra mieux que moi et pourras m'aider
Voila en gros je souhaiterais pouvoir imprimer le contenu de ma ListIconGadget, tout ce que j'arrive à faire c'est imprimer le gadget donc ce qui nécessite de descendre la ScrollBare n'est pas imprimé.
Voila où j'en suis dans mon code :
Code : Tout sélectionner
OpenLibrary(0, "user32.dll")
Prototype PrintWindow(hwnd, hdc, flags)
PrintWindow_.PrintWindow = GetFunction(0, "PrintWindow")
result = DefaultPrinter()
[.....]
Case #Button_15
GetWindowRect_(GadgetID(#ListIcon_4), @listrect.RECT)
width = listrect\right-listrect\left
height = listrect\bottom-listrect\top
CreateImage(0, width, height, 24)
hdc = StartDrawing(ImageOutput(0))
PrintWindow_(GadgetID(#ListIcon_4), hdc, #Null)
StopDrawing()
If result
resulta = StartPrinting("Job 1")
If resulta
newwidth = PrinterPageWidth()
newheight = newwidth/width*height
ResizeImage(0, newwidth, newheight)
StartDrawing(PrinterOutput())
DrawImage(ImageID(0),0,0)
StopDrawing()
StopPrinting()
Else
MessageRequester("!!!", "Erreure lors de l'imprétion !")
EndIf
Else
MessageRequester("!!!", "Aucune imprimante trouvée !")
EndIf
J'espère que quelqu'un comprendra mieux que moi et pourras m'aider