Feature Requests: Print & ExtractComments

[ABeltz]

Hallo Zusammen,

Sollte ich nicht ganz auf den Schlauch stehen, so würde ich mir zwei zusätzliche GUI Funktionen wünschen:

1. Print
Leider vermisse ich den Menuepunkt "Print".
Denkbare Modifikationen: - Print active Window, - Print all open Windows, - Print with / without Inclusions.

2. Extract Comments,
als Dokumentation Erstellungshilfe würde ich mir einen Menüpunkt wünschen, bei dem alle Kommentare aus den Quelldateien extrahiert, und diese in ein separates, neues Fenster anzeigt.

Meine Software: - Kubuntu 23.10 mit PureBasic 6.03 LTS (Linux - X64)

Danke für Eure Zeit.

[H.Brill]

Ja, das vermisse ich auch.
Gerade, weil ich öfter zweigleisig (XProfan + PureBasic) fahre.
Profan hat da

Code: Alles auswählen

WinCopy W   ' druckt das angegebene Fenster
ScreenCopy [X1,Y1 - X2,Y2]  ' druckt den angegebenen Innenbereich des akt. Fensters. ohne Parameter : gesamter Innenbereich des Fensters.

Wäre cool, sowas auch in PB zu haben.

[mk-soft]

Ist schon etwas älter ...

Windows Only

Code: Alles auswählen

Procedure MakeDesktopScreenshot(x,y,Width,Height)
  
  Protected hImage, hDC, DeskDC, hCursor
  Protected pt.point
  
  hImage = CreateImage(#PB_Any,Width,Height)
  If hImage
    hDC = StartDrawing(ImageOutput(hImage))
    If hDC
      DeskDC = GetDC_(GetDesktopWindow_())
      If DeskDC
        BitBlt_(hDC,0,0,Width,Height,DeskDC,x,y,#SRCCOPY)
      EndIf
      ReleaseDC_(GetDesktopWindow_(),DeskDC)
    EndIf
    StopDrawing()
  EndIf
  
  ProcedureReturn hImage
  
EndProcedure

[mk-soft]

Habe das noch bei mir gefunden ...

Code: Alles auswählen

#wndw=1
#gadget1=1
#gadget2=2

Procedure PrintWindow(wndid)
    Define imageid
   
    w=WindowWidth(wndid)
    h=WindowHeight(wndid)
    If CreateImage(imageid,w,h)
        If StartDrawing(WindowOutput(wndid))
            imageid = GrabDrawingImage(#PB_Any,0,0,w,h)
            StopDrawing()
        EndIf
    EndIf
       
    If PrintRequester()
        If StartPrinting("Print window")
            If StartDrawing(PrinterOutput())
                DrawImage(ImageID(imageid), 40, 40, w * 10, h * 10)
                StopDrawing()
            EndIf
            StopPrinting()
        EndIf

    EndIf
EndProcedure

w=200
h=200
If OpenWindow(#wndw,0,0,w,h+64, "test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

    ButtonGadget(#gadget2, 10, 10, 100, 30, "print")
    
    ListViewGadget(#gadget1,4,210,w-8,50)
    AddGadgetItem(#gadget1,-1,"Line 1")       
  
          
    Repeat
        EventID = WaitWindowEvent()
        
        If EventID = #PB_Event_Gadget
            If EventGadget() = #gadget2
                PrintWindow(#wndw)  
            EndIf
        EndIf
                    
    Until EventID = #PB_Event_CloseWindow
 
EndIf

End

[ABeltz]

Vielen Dank für Eure Rückmeldungen

@mk-soft: bin mir nicht sicher, ob ich richtig verstanden wurde. Ich meinte eine Print-Funktion in der PB IDE. Sorry, falls ich mich unklar oder zu knapp ausgedrückt haben sollte.

[HeX0R]

Dazu gibt's nen Feature Request

[ABeltz]

Dazu gibt's nen Feature Request

Alles klar. Danke für den Hinweis

[NicTheQuick]

Ich bin immer wieder verwundert warum man Code drucken möchte. Was ist der Hintergrund? Ich habe gerade mal in VSCode geschaut und der hat auch keine Druckfunktion. Was will man damit denn auf einem Stück Papier? Ich habe da ein ernsthaftes Unverständnis und ich kann mir auch kaum vorstellen, dass dieses Feature jemals eingebaut wird.

[H.Brill]

Ich drucke auch gerne mal Quelltext und auch Teile der Hilfe / Doku aus.
Finde ich oftmals entspannter, wenn ich dann auf dem Sofa liege und
lesen kann. So kommen mir auch öfter Ideen oder Problemlösungen in den
Sinn, wenn ich nach draußen eine rauchen gehe. Warum das bei mir so ist,
weiß ich nicht.

Für gewerblich, um dem Kunden sowas zu drucken, ist das eine andere Sache.
Aber für privat kann das jeder halten, wie er will.

[mk-soft]

Papier macht keinen sind.
Früher wurden die Siemens S5 Programme ausgedruckt. Das wollte ein Kunde auch bei einen S7 Programm. Nach dem wir 6 dicke Ordner abgegeben haben, wollte der Kunden danach nie wieder Ausdrücke haben.