fushnisoft

using SoftVelocity.ClarionNet.CommonProperties;
using SoftVelocity.ClarionNet.Windows;
using System.ComponentModel;
using System.ComponentModel.Design;
using System.Drawing;
namespace CustomPanelControl
{
    [WindowDesignerClassAttribute, Designer(typeof(PanelControlDesigner), typeof(IDesigner)), ToolboxBitmap(typeof(MyPANEL), "PANEL.ico")]
    public class MyPANEL : SoftVelocity.ClarionNet.Windows.PANEL

fushnisoft

<?xml version="1.0"?>
<AppearanceProperties xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <DockTabStripAppearance>
    <xGradientBegin>-13816528</xGradientBegin>
    <xGradientEnd>-13816528</xGradientEnd>
    <xTextColor>ControlDark</xTextColor>
  </DockTabStripAppearance>
  <DockPadTitleAppearance>
    <xActiveBackColorGradientBegin>-16745780</xActiveBackColorGradientBegin>
    <xActiveBackColorGradientEnd>-16745780</xActiveBackColorGradientEnd>

fushnisoft

  PROGRAM

  Include('ConsoleSupport.inc'),ONCE

Console                 ConsoleSupport
                        MAP
Main                      PROCEDURE()
MyTest                    PROCEDURE(<*STRING pString>)
                        END
  CODE

fushnisoft

  MEMBER()
  INCLUDE('RefHandler.inc'),ONCE
  MAP
  END

RefHandler.Init PROCEDURE(*LONG pTheField)
  CODE

  IF pTheField = 0
    ! Create a new instance and assign the address to the storage field

fushnisoft

**Note: The idea for this is based on a combination of PsGet, http://psget.net/ and SublimeText Package Control, https://sublime.wbond.net/ **

• Easy install via powershell

(new-object Net.WebClient).DownloadString("http://ClarionHub.com/GetCwGet.ps1") | iex

Proposed commands:

• cwpackage-install
• cwpackage-update

fushnisoft

$doc = New-Object System.Xml.XmlDocument
$doc.Load("C:\Dev\Clarion\ClarionProperties.xml")
$XPath = "/ClarionProperties/Properties[@name='WorkbenchMemento']"  
$node = ( $doc | Select-Xml -XPath $XPath ).Node  
$node.bounds.value = "1,2,3,4"
$doc.Save("C:\Dev\Clarion\ClarionProperties.xml")

fushnisoft

      Member()
      Include('ConsoleSupport.inc'),ONCE
    Map
        MODULE('32-bit Windows API')
            ! General functions
            GetLastError(),DWORD,PASCAL
 
            ! Console functions
            GetStdHandle(DWORD),HANDLE,PASCAL,PROC,RAW
            WriteConsole(Handle,Long,Dword,long,long),bool,Raw,Pascal,name('WriteConsoleA')

fushnisoft

GetJsonData PROCEDURE(LONG pDate)
Json JsonClassType
  CODE

  Json.Init()
  Json.InitWriter()
  Json.WriteStartObject()

  Json.WritePropertyName('key')
  Json.WriteValue('ASDR-WERT-DFGG-RRTY')

fushnisoft

OcxIsRegistered              PROCEDURE(STRING pName) ! ,BYTE
resultQ                      QUEUE(oleQ)
                             END
  CODE
  OleDirectory(resultQ, 0, 3) ! <-- OLE Servers
  OleDirectory(resultQ, 1, 3) ! <-- OLE Controls
  Get(pResultQ, 0)
  LOOP
    Get(pResultQ, Pointer(pResultQ)+1)
    IF ErrorCode()

fushnisoft

$rtn = New-Object psobject -Property @{"Value"=$null; "name" = $null; "path"=$null} 
1..500 | 
ForEach-Object { 
    $rtn.Value = $_ 
    $rtn.name = (new-object -com shell.application ).namespace($_).title 
    $rtn.path = (new-object -com shell.application ).namespace($_).self.path 
    if($rtn.name -ne $null) 
    { 
        Write-Host "$($rtn.value) $($rtn.name) $($rtn.path)" 
    }