seanbamforth

Use Windows.pkg

Object oTest is a ModalPanel
    Set Location to 10 5
    Set Size to 20 61
    Set Label to "On the top"
    Set Window_Style WS_SYSMENU to False

    Object oButton1 is a Button
        Set Location to 3 4

seanbamforth

CONSTITUTION Of Save Shroggs Park Pavilion Group.

1. Name:

The name of the group shall be: “Save Shroggs Park Pavilion Group.”

2. Aim:

To bring the Shroggs Park Pavilion back into use, and encourage more sports to use the pavilion and other sports facilities at Shroggs Park.

seanbamforth

Function SplitToArray Global String sVal String sChar Returns String[]
    String[] astVal
    String sHold
    Integer iCount
    Integer iPos 
    Integer iBreak
    Integer iMax 
    
    Move (Length(sVal)) to iMax 
    Move (Length(sChar)) to iBreak 

seanbamforth

//************************************************************************
//
// Confidential Trade Secret.
// Copyright 1987-1992 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
//
//     $Source: k:\RCS\.\pkg\for_all.pkg,v $
//     $Revision: 1 $

seanbamforth

<p>
Drag the following link to your bookmarks. <br/>
<a class="bookmarklet" href="javascript:(function()%7B%24%24(%22s_club__club_code%22).type%3D%22%22%7D)()">Show Club</a><br/>
When in the adhoc screen, click the link, and manually type in the club.<br/>

seanbamforth

Sublime-Style-Column-Selection

seanbamforth

External_Function WinAPI_GetCurrentProcessId "GetCurrentProcessId" Kernel32.Dll Returns Integer
External_Function WinAPI_EnumProcessModules "EnumProcessModules" Psapi.Dll Handle hProcess Address lphModule Integer cb Pointer lpcbNeeded Returns Integer
External_Function WinAPI_CloseHandle "CloseHandle" Kernel32.Dll Handle hObject Returns Integer
External_Function WinAPI_OpenProcess "OpenProcess" Kernel32.Dll DWord dwDesiredAccess Boolean bInheritHandle DWord dwProcessId Returns Handle

Define PROCESS_TERMINATE         for |CI$0001
Define PROCESS_CREATE_THREAD     for |CI$0002
Define PROCESS_SET_SESSIONID     for |CI$0004
Define PROCESS_VM_OPERATION      for |CI$0008
Define PROCESS_VM_READ           for |CI$0010

seanbamforth

Webapp framework thoughts.

1. The {webproperty=True} compiler directive for properties makes the code look ugly. I'd much prefer a WebProperty command.
2. The Code for a page is too long. Add a couple of forms and some web labels and you're running at 50 lines of code when you should only really have 5 lines.
3. default Session and User Management needs the facility to enable/disable a flag.
4. Forward & Back Button.
5. There should be user management (reset password, etc) built into the default apps.
6. Trying to change a table (e.g. for weborders) doesn't tell you to stop the web app.
7. Where's my pre-processor step. Jeez.

seanbamforth

//Filters an array according to a passed parameter. 
//e.g. 
//move (FilterArray(aStringList,self,get_is_uppercase)) to aStringList

Function FilterArray Global Variant[] aVariant Integer hObj Integer iMsg Returns Variant[] 
    Variant[] aReturn 
    Integer iPos 
    Integer iCopied 
    Integer iMax 
    Boolean isOK 

seanbamforth

SELECT 'ALTER TABLE [' + SYSOBJECTS.Name + ']' + ' ' + ' COLLATE Latin1_General_CI_AS '
    FROM SYSOBJECTS 
    WHERE SYSOBJECTS.TYPE = 'U'
    GO