Changeset 361 for branches/guitools-2.0/evfsgui

Timestamp:

Jan 6, 2010, 3:01:57 PM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI basics for printer support

Location:

branches/guitools-2.0/evfsgui

Files:

• changes (modified) (1 diff)
• evfsgui.VRP (modified) (1 diff)
• evfsgui.VRX (modified) (3 diffs)
• evfsgui.VRY (modified) ( previous)

branches/guitools-2.0/evfsgui/changes

@@ -3 +3 @@
 - Debug on/off option is badly implemented (rework required)
 - Create Icon. stem in order to ease maintainance of icons
+
+Version 2.0.0 (Refresh)
+- Changed: Rewrite routines to find .msg and .hlp files
+- Fixed: Set size of throbber object according to screen dimensions
 
 Version 2.0 GA

branches/guitools-2.0/evfsgui/evfsgui.VRP

@@ -8 +8 @@
 VRXWindow: __VREMainWindow,1,1072,1783,891,3951
 VRXWindow: __VRESectionListWindow,1,602,11033,11033,3975
-VRXWindow: __VREToolsWindow,1,1963,819,6992,1661
+VRXWindow: __VREToolsWindow,1,1963,819,6992,1665
 VRXWindow: __VREWindListWindow,1,470,8528,2650,3150
 UserFile: 1

branches/guitools-2.0/evfsgui/evfsgui.VRX

@@ -284 +284 @@
 
     ok = VRSet("Main","Width", 8200)
+    ok = VRseT("Pict_Throbber","Width",  VRMethod( "Screen", "PixelsToTwips", 32 ))
+    ok = VRseT("Pict_Throbber","Height", VRMethod( "Screen", "PixelsToTwips", 32 ))
 
     /* Setup SmbTree View */
@@ -386 +388 @@
         END
         else iterate
+    end
+return
+
+/*:VRX         _PrinterInfo
+*/
+_PrinterInfo: 
+    /* rh = currently selected record handle */
+    capt = VRMethod("CN_SMBTREE", "GetRecordAttr", rh, "Caption")
+    parse var Capt p_printer '0D0A'x .
+    parRH = VRMethod("CN_SMBTREE", "GetRecordAttr", rh, "Parent")
+    capt = VRMethod("CN_SMBTREE", "GetRecordAttr", Parrh, "Caption")
+    parse var Capt p_prtsrv '0D0A'x .
+    p_prtsrv = strip(p_prtsrv)
+    GparRH = VRMethod("CN_SMBTREE", "GetRecordAttr", Parrh, "Parent")
+    capt = VRMethod("CN_SMBTREE", "GetRecordAttr", GParrh, "Caption")
+    parse var Capt p_workgroup '0D0A'x .
+    DescStr = translate(p_prtsrv'#'p_printer'#'p_workgroup'#')
+say '"'DescStr'"'
+    LDescStr = length(DescStr)
+    ok = SysIni('SYSTEM','PM_SPOOLER_PORT',"All:",'ports')
+
+    FoundPort = 0
+    do I = 1 to ports.0
+        if left(ports.i,3) = 'SMB' then do
+            say ports.I
+            say translate(left(SysIni('SYSTEM','PM_'ports.I,'INITIALIZATION'),LDescStr))
+            say DescStr
+            if translate(left(SysIni('SYSTEM','PM_'ports.I,'INITIALIZATION'),LDescStr)) = DescStr then do
+                OurPort = ports.I
+                FoundPort = 1
+                leave
+            end
+        end
+    end
+
+    if Foundport then do
+        ok = SysIni('SYSTEM','PM_SPOOLER_PRINTER',"All:",'printer')
+
+        do I = 1 to printer.0
+            say printer.I
+            prtsummary = SysINi('SYSTEM','PM_SPOOLER_PRINTER',printer.i)
+            parse var prtsummary port ';'PrinterDriver';'PrinterQueue';' .
+            if port = ourPort then do
+                PrinterName = SysINi('SYSTEM','PM_SPOOLER_PRINTER_DESCR',printer.i)
+                parse var Printername Printername ';' .
+                leave
+            end
+
+        end
+
+        CALL VRMessage 'Main', PrinterName' ('PrinterQueue') prints to port ' Port' connected to \\'p_workgroup'\'p_prtsrv'\'p_printer, NLVGetMessage( 1 ), 'I'
+    end
+    else do
+        CALL VRMessage 'Main', NLVGetMessage( 62 ), NLVGetMessage( 5 ), 'E'
     end
 return
@@ -863 +919 @@
     ok = VRset("Menu_Selected_Default_Workgroup","Visible", (Icon = "#62:PMWP.DLL"))
 
-    if Icon = "#65:PMWP.DLL" then do /* Printers not supported at the moment */
+    if Icon = "#65:PMWP.DLL" then do /* Printer installation not supported at the moment */
+        /* call _Printerinfo */
         CALL VRMessage 'Main', NLVGetMessage( 62 ), NLVGetMessage( 5 ), 'E'
         return