DataFlex Wiki - User contributions [en]

AJAX - Return Arrays and Structs to your JavaScript with XML

2008-11-20T18:47:01Z

Pinkynarf: New page: = Functionality = The VDF AJAX Library provides the functionality for developers to call published methods within a WBO and receive a return value (for Functions). This is done using a Re...

= Functionality =

The VDF AJAX Library provides the functionality for developers to call published methods within a WBO and receive a return value (for Functions). This is done using a Remote Method Invokation (RMI). Using RMI's for returning a single datatype is fairly straight-forward. If you want to return a Struct, Array , or an Array of Structs you need to do some more work. Remember, you are returning these datatypes to JavaScript and there is no direct translation from a Windows Struct or Array to a JavaScript Struct or Array.

= The Solution =

The solution is to return the data in an XML document. XML can be formatted to return a Struct of data, and Array, or an Array of Structs.

= Calling the WBO Function from JavaScript =

This is an example of a JavaScript function using the RMI to call a function of the webapp. It called the Function NameCasing of the oMyWBO. It passes a single argument of sName. When the Function returns, it will call the JavaScript method onNameCasing.

function nameCasing(sName) {
var oRMI = new VdfRemoteMethodInvocation(true, "oMyWBO", "get_NameCasing", null, onNameCasing);
oRMI.addParameter(sName);
oRMI.sendCall();
}

= Creating the XML in the WBO =

1) create an XML document 
2) add elements to the XML 
3) get the memory address of the XML document 
4) destroy the VDF connection to the address 
5) return the memory address. This will return the XML document to the JavaScript 

{ Published = True }
{ Description = "" }
Function NameCasing String sName Returns Address
Handle hoRoot hoXML hoEvent
Address aXml
// create xml document
Get Create U_cXMLDOMDocument to hoXML
Set pbValidateOnParse of hoXML to False
Get CreateDocumentElement of hoXML "response" to hoRoot
Send AddElement of hoRoot "lowercase" (lowercase(sName))
Send AddElement of hoRoot "uppercase" (Uppercase(sName))
Send AddElement of hoRoot "propercase" (Uppercase(Left(sName,1))+lowercase(Right(sName,(length(sName)-1))))
Get paXml of hoXml to aXml
Send Destroy of hoRoot
Send Destroy of hoXML
Function_Return aXML
End_Function // NameChanges

= Parsing the XML in JavaScript =

1) check to see if there were any errors 
2) make sure we have a return value 
3) create the XML parser object 
4) get the values from the XML

function onNameCasing(oRMI) {
// If no errors
if (oRMI.iErrorNumber==0){
if (oRMI.sReturnValue!=null){
// create XML parser
try { // code for IE
xmlDoc=new ActiveXObject("Microsoft.XMLDOM");
xmlDoc.async="false";
xmlDoc.loadXML(oRMI.sReturnValue);
} catch(e) { // code for Mozilla, Firefox, Opera, etc.
try {
parser=new DOMParser();
xmlDoc=parser.parseFromString(oRMI.sReturnValue,"text/xml");
} catch(e) {
alert(e.message);
return;
}
}
}
if (xmlDoc!=null){
var sLower="", sUpper="", sProper="";
sLower=xmlDoc.getElementsByTagName("lowercase")[0].childNodes[0].nodeValue;
sUpper=xmlDoc.getElementsByTagName("uppercase")[0].childNodes[0].nodeValue;
sProper=xmlDoc.getElementsByTagName("propercase")[0].childNodes[0].nodeValue;
//todo: do something with these values
}
}
}

[[Category:Web Programming]]
[[Category:AJAX]]

AJAX Library for Visual DataFlex

2008-11-20T18:14:08Z

Pinkynarf: /* Examples */

{{underconst}}

The '''AJAX Library for Visual Dataflex''' allow developers to develop web applications using the latest AJAX technologies.

The goal of the Visual DataFlex AJAX library is to bring the experience from the Windows version of Visual DataFlex to the web using [[AJAX]] techniques.

You probably already now how to create a datamodel [[Using DataDictionaries]] from earlier [[Visual DataFlex]] programming experience.

Now just attach your [[Data Dictionaries]] [[Using AJAX Web Browser Objects]] - this brings your existing datamodel to the ajax world.

== Basics ==
*[[Using DataDictionaries]]
*[[How to develop ASP pages]]

== Frequent issues ==
*[[Adding the AJAX Library to your application]]
*[[Creating a AJAX Web application]]
*[[Using AJAX Web Browser Objects]]
*[[Creating a AJAX Form]]
*[[AJAX Remote Method Invocation ]]

== Examples ==
*[[AJAX Rating Example]]
*[[AJAX - Return Arrays and Structs to your JavaScript with XML]]

==See Also==
*[[Using cAjaxSessionManager]]

==External Links==
*[http://www.visual-dataflex.co.uk/1seater.asp?pageid=948 Library Download]

[[Category:Web Programming]]
[[Category:AJAX]]

Calculating the cost of inventory kits

2008-09-04T18:28:19Z

Pinkynarf: /* Example */

Below is the logic which can be used to calculate the cost of an inventory item (kit) which is made up of other inventory items. The cost of these kits will change when the parts used to make them change. To get the cost, we use a function that calls itself.

Look at the code sample below. We first call this function with the inventory part number that is a kit. The function will then loop through the kit table to find all the inventory items which are used in this kit. For each item in the kit, it calls itself. We do this because a kit can be used as a part for a different kit.

== Code Sample ==

Function GetPartCost Integer iPartNum Returns Number
Number nCost nTotal
Clear Inv
Move iPartNum to Inv.Number
Find eq Inv by Index.1
If (Found) Begin
If (Inv.Kit="Y") Begin
Clear Kit
Move Inv.Number to Kit.PartNum
Find ge Kit by Index.1
If (Found) Indicate Found as (Kit.PartNum=Inv.Number)
While (Found)
// Function calls itself with new part number
// beware of kits containing themself.
Get GetPartCost Kit.KitPartNum to nCost
Add (Kit.Qty*nCost) to nTotal
Find gt Kit by Index.1
If (Found) Indicate Found as (Kit.PartNum=Inv.Number)
Loop
// Return the kit's total cost
Function_Return nTotal
End
Else Begin
// Return the item's cost
Function_Return Inv.Cost
End
End
Else Begin
Error 999 ("Part not found: "+String(iPartNum))
Function_Return 0
End
End_Function

== Example ==

You are a restaurant owner and you want to know what each of your meals cost. One of the items on your menu is a hamburger. The logic might look something like this:

Famous Dave's Sliders
1 Homemade Kaiser Roll
1/3 pound Ground Sirloin
1 slice of American Cheese
1 slice of Sharp Cheddar Cheese
Lettuce
2 slices of Tomato
3 ounces of Secret Sauce
8 ounces of Steak Fries
1 Pickle Wedge

The Kaiser Roll and the Special Sauce are kits, because you make them. So you also need to determine their cost.

Kaiser Rolls
1 pound Flour
2 cups Water
1/3 cup Sugar
12 ounces of yeast
1/4 cup Extra Virgin Olive Oil

Special Sauce
1 Tbsp Ingredient A
1 cup Ingredient B
1/2 Tbsp Ingredient C
1/2 Tbsp Ingredient D
3 ounces Ingredient E
1 Tbsp Ingredient F
1 tsp Ingredient G

== Summary ==
So, by calling the GetPartCost of the main menu item, it will automatically traverse all kits to get to the root items and return their cost.

GetPartCost Famous Dave's Sliders
GetPartCost Homemade Kaiser Roll
GetPartCost Flour
GetPartCost Water
GetPartCost Sugar
GetPartCost Yeast
GetPartCost Olive Oil
GetPartCost Ground Sirloin
GetPartCost American Cheese
GetPartCost Sharp Cheddar Cheese
GetPartCost Lettuce
GetPartCost Tomato
GetPartCost Secret Sauce
GetPartCost Ingredient A
GetPartCost Ingredient B
GetPartCost Ingredient C
GetPartCost Ingredient D
GetPartCost Ingredient E
GetPartCost Ingredient F
GetPartCost Ingredient G
GetPartCost Steak Fries
GetPartCost Pickle Wedge

[[Category: Visual Dataflex]]

Calculating the cost of inventory kits

2008-09-04T18:26:54Z

Pinkynarf: New page: Below is the logic which can be used to calculate the cost of an inventory item (kit) which is made up of other inventory items. The cost of these kits will change when the parts used to m...

Below is the logic which can be used to calculate the cost of an inventory item (kit) which is made up of other inventory items. The cost of these kits will change when the parts used to make them change. To get the cost, we use a function that calls itself.

Look at the code sample below. We first call this function with the inventory part number that is a kit. The function will then loop through the kit table to find all the inventory items which are used in this kit. For each item in the kit, it calls itself. We do this because a kit can be used as a part for a different kit.

== Code Sample ==

Function GetPartCost Integer iPartNum Returns Number
Number nCost nTotal
Clear Inv
Move iPartNum to Inv.Number
Find eq Inv by Index.1
If (Found) Begin
If (Inv.Kit="Y") Begin
Clear Kit
Move Inv.Number to Kit.PartNum
Find ge Kit by Index.1
If (Found) Indicate Found as (Kit.PartNum=Inv.Number)
While (Found)
// Function calls itself with new part number
// beware of kits containing themself.
Get GetPartCost Kit.KitPartNum to nCost
Add (Kit.Qty*nCost) to nTotal
Find gt Kit by Index.1
If (Found) Indicate Found as (Kit.PartNum=Inv.Number)
Loop
// Return the kit's total cost
Function_Return nTotal
End
Else Begin
// Return the item's cost
Function_Return Inv.Cost
End
End
Else Begin
Error 999 ("Part not found: "+String(iPartNum))
Function_Return 0
End
End_Function

== Example ==

You are a restaurant owner and you want to know what each of your meals cost. One of the items on your menu is a hamburger. The logic might look something like this:

Famous Dave's Sliders
1 Homemade Kaiser Roll
1/3 pound Ground Sirloin
1 slice of American Cheese
1 slice of Sharp Cheddar Cheese
Lettuce
2 slices of Tomato
3 ounces of Secret Sauce
8 ounces of Steak Fries
1 Pickle Wedge

The Kaiser Roll and the Special Sauce are kits, because you make them. So you also need to determine their cost.

Kaiser Rolls
1 pound Flour
2 cups Water
1/3 cup Sugar
12 ounces of yeast
1/4 cup Extra Virgin Olive Oil

Special Sauce
1 Tbsp Ingredient A
1 cup Ingredient B
1/2 Tbsp Ingredient C
1/2 Tbsp Ingredient D
3 ounces Ingredient E
1 Tbsp Ingredient F
1 tsp Ingredient G

So, by calling the GetPartCost of the main menu item, it will automatically traverse all kits to get to the root items and return their cost.

GetPartCost Famous Dave's Sliders
GetPartCost Homemade Kaiser Roll
GetPartCost Flour
GetPartCost Water
GetPartCost Sugar
GetPartCost Yeast
GetPartCost Olive Oil
GetPartCost Ground Sirloin
GetPartCost American Cheese
GetPartCost Sharp Cheddar Cheese
GetPartCost Lettuce
GetPartCost Tomato
GetPartCost Secret Sauce
GetPartCost Ingredient A
GetPartCost Ingredient B
GetPartCost Ingredient C
GetPartCost Ingredient D
GetPartCost Ingredient E
GetPartCost Ingredient F
GetPartCost Ingredient G
GetPartCost Steak Fries
GetPartCost Pickle Wedge

Portal:Windows Applications

2008-09-04T18:00:25Z

Pinkynarf: /* Advanced */

The '''Visual Dataflex Portal''' is the place to come for articles and tutorials on developing [http://en.wikipedia.org/wiki/Microsoft_Windows Windows] applications with '''[[Visual DataFlex]]'''.

Before beginning the more advanced stuff you should consider reading [http://www.visual-dataflex.co.uk/1seater.asp?pageid=1028 Vincent's book] or attend a 5 days training. Now - on with the show:

==Articles==
*'''[[Visual DataFlex]]''' (covering the basic stuff)

==Tutorials==
*How to add '''[[Add Workspace Parameter|Workspace Parameters]]''' using [[cIniFile]]
*[[Running_VDF_programs_as_Windows_Services]]
*[[Using On_key for undefined keys]]
*[[Passing the workspace as a parameter]]
*[[Add Workspace Parameter|Adding Workspace Parameters]] using the [[cIniFile]] class
*Adding [[SMTP Email]] to your application using an [[ActiveX]] control
*[[Run only one instance of your application]]
*[[Customize prompt lookup behavior in a dbgrid]]
*[[Print the content of an embedded IE html control]]
*[[Return data from every object in a dbView]]
*[[Print to a file using reports]]
*[[Visual Modelling of multiple visual objects]]
*[[ExpressConnectivity]]

==Advanced==
* [[Add icons with subset of images to CodeJock CommandBars]]
* [[Programmatically edit a treeview label]]
* [[Muli-row select for Grid control]]
* [[Calculating the cost of inventory kits]] - Functions that call themselves

==External links==
* http://www.vdf-guidance.com
* http://visualdataflexdeveloper.org/
* http://www.visualdataflex.com
* http://www.visualdataflex.ru (Russian)
* http://www.dataaccess.com
* http://www.dataaccess.nl
* [http://www.sture.com/wasp/ WASP Newsgroup search] engine
* [http://www.starzen.com StarZen Technologies] Addon Tools, Books, Magazines, Consulting
* [http://www.redeemedsoftware.com Redeemed Software] Crystal Report Utilities, Autocomplete, and more
* [http://www.redeemedhosting.com Redeemed Hosting] VDF Webapp Hosting and Virtual Servers

==Requested Articles / Works in progress==

*[[Converting from DOS to Windows]]
*[[COM|Using COM Objects]] (reuse existing functionality)

[[Category:Portals]]
[[Category:DataFlex (Character Mode)]]

User:Pinkynarf

2008-09-04T06:26:18Z

Pinkynarf:

David Martinko 
Custom Software Developer 
[http://www.redeemedsoftware.com Redeemed Software Company] Crystal Tools, Custom Software (windows, webapps, webservices) 
[http://www.redeemedhosting.com Redeemed Hosting] Electos Website hosting, VDF Webapp Hosting, Virtual Servers

User:Pinkynarf

2008-09-04T06:25:48Z

Pinkynarf: New page: David Martinko Custom Software Developer [http://www.redeemedsoftware.com Redeemed Software Company] Crystal Tools, Custom Software (windows, webapps, webservices) [http://www.redeemedhost...

David Martinko
Custom Software Developer
[http://www.redeemedsoftware.com Redeemed Software Company] Crystal Tools, Custom Software (windows, webapps, webservices)
[http://www.redeemedhosting.com Redeemed Hosting] Electos Website hosting, VDF Webapp Hosting, Virtual Servers

Portal:Development Tools

2008-09-04T05:01:19Z

Pinkynarf: /* Other Tools */

For any Dataflex Developer there are a range of tools useful for many situations.

==Data Access Tools==
[[Data Access]] provide a core of development tools vital to Dataflex development.
*[[Visual DataFlex Studio]]
*[[Database Builder]]
*[[Database Explorer]]

==Third Party Development Environments==
Other tools have been developed by the dataflex community over the years. These tools frequently take inspiration from the larger development community and often preview features which eventually make it into the official VDF Studio.
*[[Eclipse]]
*[[The Hammer]]

==Dataflex Libraries==
*[[VDFQuery]]
*[[StarZen's Wizard]]
*[[StarZen's Date form control]]
*[[Evolution]]
*[[cWindowsEx Framework]]

== Crystal Report Tools ==
*[[Mass Verify]] Change database locations, Verify Database on hundreds of reports,...
*[[Crystal Spellcheck]] Check Crystal Reports for Typo's
*[[Mass Convert]] Convert Native DF Crystal Reports to SQL
*[[Mass S&R]] Search and Replace text in your Crystal Reports

==Other Tools==
*[[VDF Structure Viewer]]
*[[Version Control]]
*[[File Comparison]]
*[[Text Editors]]
*[[SFS Compare]] Compare and Modify Database Structures

[[Category:Development Tools]]

Multi-row select for Grid control

2008-09-04T04:52:45Z

Pinkynarf:

== Functionality ==
This code demonstrates how to select multiple rows in a Grid. The code will work no matter how many columns. The object of this code is to allow the user to use the SHIFT+RCLICK or CTRL+RCLICK key to select multiple rows just like a spreadsheet program.

== Example ==
Paste this code into a test view to test it and see how it works. Once compiled, you will see a narrow column on the left that acts as a margin. Clicking this gray cell will highlight the row. Using SHIFT or CTRL and clicking another gray cell will select multiple rows.

Object oGrid1 is a Grid
Set Location to 7 26
Set Size to 116 207
Set Line_Width to 4 0
Set Form_Width 0 to 8
Set Header_Label 0 to ""
Set Form_Width 1 to 60
Set Header_Label 1 to "Column 1"
Set Form_Width 2 to 60
Set Header_Label 2 to "Column 2"
Set Form_Width 3 to 60
Set Header_Label 3 to "Column 3"

// BEGIN MULTI-SELECT CODE
// DO NOT MODIFY
Set Select_Mode to Multi_Select
Property Integer[] paiSelected
Property Integer piLastSelected 0
Procedure Select_Toggling Integer iItem Integer iState
Integer iCurrent iCol iLast iCount iFrom iTo iRet iUpdate
Integer[] aiSelected aiEmpty
//
Get Dynamic_Update_State to iUpdate
Set Dynamic_Update_State to False
// Get base item
Move (Current_Item(Self)) to iCurrent
Move (Mod(iCurrent , Line_Size(Self))) to iCol
Subtract iCol from iCurrent
// get list of selected items
Move (paiSelected(Self)) to aiSelected
Move (SizeOfArray(aiSelected)) to iCount
//
Move (GetAsyncKeyState(VK_CONTROL)) to iRet
If (iRet<>0) Begin
If (iState) Begin
// add selected item
Move iCurrent to aiSelected[iCount]
// Update last selected with this item
Set piLastSelected to iCurrent
// Select Current row
For iCol from 0 to (Line_Size(Self)-1)
Forward Send Select_Toggling (iCurrent+iCol) iState
Loop
End
Else Begin
// remove selected item
For iItem from 0 to (iCount-1)
Move aiSelected[iItem] to iLast
If (iLast=iCurrent) Move -1 to aiSelected[iItem]
Loop
// Update last selected with this item
Set piLastSelected to -1
End
End
Else Begin
// If shift is used, we will ignore
// the state of the clicked row
// unselect everything
For iItem from 0 to (iCount-1)
Move aiSelected[iItem] to iLast
For iCol from 0 to (Line_Size(Self)-1)
Forward Send Select_Toggling (iLast+iCol) False
Loop
Loop
Move aiEmpty to aiSelected
//
Move (GetAsyncKeyState(VK_SHIFT)) to iRet
If ((iRet<>0) and (piLastSelected(Self)<>-1)) Begin
// select everything in between
// do not mark this as the last current row,
// the first item of the shift remains
If (iCurrent > piLastSelected(Self)) Begin
Move (piLastSelected(Self)) to iFrom
Move iCurrent to iTo
End
Else Begin
Move iCurrent to iFrom
Move (piLastSelected(Self)) to iTo
End
Move 0 to iCount
For iItem from iFrom to (iTo+3)
// Add to array
Move iItem to aiSelected[iCount]
Increment iCount
// select
For iCol from 0 to (Line_Size(Self)-1)
Forward Send Select_Toggling (iItem+iCol) True
Loop
// next row
Add 3 to iItem
Loop
End
Else Begin
// no shift or control key was pressed
// Update last selected with this item
Move iCurrent to aiSelected[0]
Set piLastSelected to iCurrent
// Select Current item
For iCol from 0 to (Line_Size(Self)-1)
Forward Send Select_Toggling (iCurrent+iCol) iState
Loop
End
End
Set Dynamic_Update_State to iUpdate
Set paiSelected to aiSelected
End_Procedure // Select_Toggling

Procedure Mouse_Up Integer iWindowNumber Integer iPosition
Integer iCol
Move (Mod(iWindowNumber , Line_Size(Self))) to iCol
Forward Send Mouse_Up iWindowNumber iPosition
If (iCol<>1) Send Select_Toggling 0 False
End_Procedure // Mouse_Up
// END MULTI-SELECT CODE

//Sample method of how to fill a grid
Procedure DoFillGrid
Integer iRow iMaxRows
Move 20 to iMaxRows
For iRow from 0 to iMaxRows
Send Add_Item Msg_None ""
Send Add_Item Msg_None ("Col 1, row " + String (iRow))
Send Add_Item Msg_None ("Col 2, row " + String (iRow))
Send Add_Item Msg_None ("Col 3, row " + String (iRow))
Set Entry_State item (iRow*4) to False
Set ItemColor item (iRow*4) to clBtnFace
Loop
End_Procedure // DoFillgrid
Send DoFillgrid
End_Object // oGrid1

Object oButton1 is a Button
Set Size to 14 70
Set Location to 151 44
Set Label to "Show Selection"
// Example on how to get selected rows
Procedure OnClick
Integer[] aiSelected
Integer iItem iCount
Get paiSelected of oGrid1 to aiSelected
Move (SizeOfArray(aiSelected)) to iCount
Showln "Selected Row base_item(s) are"
For iItem from 0 to (iCount-1)
Showln (Character(9)) aiSelected[iItem]
Loop
End_Procedure // OnClick
End_Object // oButton1

[[Category: Visual Dataflex]]

Multi-row select for Grid control

2008-09-04T04:40:31Z

Pinkynarf:

This code demonstrates how to select multiple rows in a Grid. The code will work no matter how many columns. The object of this code is to allow the user to use the SHIFT+RCLICK or CTRL+RCLICK key to select multiple rows just like a spreadsheet program. Paste this code into a test view to test it and see how it works. Once compiled, you will see a narrow column on the left that acts as a margin. Clicking this gray cell will highlight the row. Using SHIFT or CTRL and clicking another gray cell will select multiple rows.

Object oGrid1 is a Grid
Set Location to 7 26
Set Size to 116 207
Set Line_Width to 4 0
Set Form_Width 0 to 8
Set Header_Label 0 to ""
Set Form_Width 1 to 60
Set Header_Label 1 to "Column 1"
Set Form_Width 2 to 60
Set Header_Label 2 to "Column 2"
Set Form_Width 3 to 60
Set Header_Label 3 to "Column 3"

// BEGIN MULTI-SELECT CODE
// DO NOT MODIFY
Set Select_Mode to Multi_Select
Property Integer[] paiSelected
Property Integer piLastSelected 0
Procedure Select_Toggling Integer iItem Integer iState
Integer iCurrent iCol iLast iCount iFrom iTo iRet iUpdate
Integer[] aiSelected aiEmpty
//
Get Dynamic_Update_State to iUpdate
Set Dynamic_Update_State to False
// Get base item
Move (Current_Item(Self)) to iCurrent
Move (Mod(iCurrent , Line_Size(Self))) to iCol
Subtract iCol from iCurrent
// get list of selected items
Move (paiSelected(Self)) to aiSelected
Move (SizeOfArray(aiSelected)) to iCount
//
Move (GetAsyncKeyState(VK_CONTROL)) to iRet
If (iRet<>0) Begin
If (iState) Begin
// add selected item
Move iCurrent to aiSelected[iCount]
// Update last selected with this item
Set piLastSelected to iCurrent
// Select Current row
For iCol from 0 to (Line_Size(Self)-1)
Forward Send Select_Toggling (iCurrent+iCol) iState
Loop
End
Else Begin
// remove selected item
For iItem from 0 to (iCount-1)
Move aiSelected[iItem] to iLast
If (iLast=iCurrent) Move -1 to aiSelected[iItem]
Loop
// Update last selected with this item
Set piLastSelected to -1
End
End
Else Begin
// If shift is used, we will ignore
// the state of the clicked row
// unselect everything
For iItem from 0 to (iCount-1)
Move aiSelected[iItem] to iLast
For iCol from 0 to (Line_Size(Self)-1)
Forward Send Select_Toggling (iLast+iCol) False
Loop
Loop
Move aiEmpty to aiSelected
//
Move (GetAsyncKeyState(VK_SHIFT)) to iRet
If ((iRet<>0) and (piLastSelected(Self)<>-1)) Begin
// select everything in between
// do not mark this as the last current row,
// the first item of the shift remains
If (iCurrent > piLastSelected(Self)) Begin
Move (piLastSelected(Self)) to iFrom
Move iCurrent to iTo
End
Else Begin
Move iCurrent to iFrom
Move (piLastSelected(Self)) to iTo
End
Move 0 to iCount
For iItem from iFrom to (iTo+3)
// Add to array
Move iItem to aiSelected[iCount]
Increment iCount
// select
For iCol from 0 to (Line_Size(Self)-1)
Forward Send Select_Toggling (iItem+iCol) True
Loop
// next row
Add 3 to iItem
Loop
End
Else Begin
// no shift or control key was pressed
// Update last selected with this item
Move iCurrent to aiSelected[0]
Set piLastSelected to iCurrent
// Select Current item
For iCol from 0 to (Line_Size(Self)-1)
Forward Send Select_Toggling (iCurrent+iCol) iState
Loop
End
End
Set Dynamic_Update_State to iUpdate
Set paiSelected to aiSelected
End_Procedure // Select_Toggling

Procedure Mouse_Up Integer iWindowNumber Integer iPosition
Integer iCol
Move (Mod(iWindowNumber , Line_Size(Self))) to iCol
Forward Send Mouse_Up iWindowNumber iPosition
If (iCol<>1) Send Select_Toggling 0 False
End_Procedure // Mouse_Up
// END MULTI-SELECT CODE

//Sample method of how to fill a grid
Procedure DoFillGrid
Integer iRow iMaxRows
Move 20 to iMaxRows
For iRow from 0 to iMaxRows
Send Add_Item Msg_None ""
Send Add_Item Msg_None ("Col 1, row " + String (iRow))
Send Add_Item Msg_None ("Col 2, row " + String (iRow))
Send Add_Item Msg_None ("Col 3, row " + String (iRow))
Set Entry_State item (iRow*4) to False
Set ItemColor item (iRow*4) to clBtnFace
Loop
End_Procedure // DoFillgrid
Send DoFillgrid
End_Object // oGrid1

Object oButton1 is a Button
Set Size to 14 70
Set Location to 151 44
Set Label to "Show Selection"
// Example on how to get selected rows
Procedure OnClick
Integer[] aiSelected
Integer iItem iCount
Get paiSelected of oGrid1 to aiSelected
Move (SizeOfArray(aiSelected)) to iCount
Showln "Selected Row base_item(s) are"
For iItem from 0 to (iCount-1)
Showln (Character(9)) aiSelected[iItem]
Loop
End_Procedure // OnClick
End_Object // oButton1

Multi-row select for Grid control

2008-09-04T04:38:47Z

Pinkynarf: New page: This code demonstrates how to select multiple rows in a Grid. The code will work no matter how many columns. The object of this code is to allow the user to use the SHIFT+RCLICK or CTRL+...

Portal:Windows Applications

2008-09-04T04:07:53Z

Pinkynarf: /* Advanced */

The '''Visual Dataflex Portal''' is the place to come for articles and tutorials on developing [http://en.wikipedia.org/wiki/Microsoft_Windows Windows] applications with '''[[Visual DataFlex]]'''.

Before beginning the more advanced stuff you should consider reading [http://www.visual-dataflex.co.uk/1seater.asp?pageid=1028 Vincent's book] or attend a 5 days training. Now - on with the show:

==Articles==
*'''[[Visual DataFlex]]''' (covering the basic stuff)

==Tutorials==
*How to add '''[[Add Workspace Parameter|Workspace Parameters]]''' using [[cIniFile]]
*[[Running_VDF_programs_as_Windows_Services]]
*[[Using On_key for undefined keys]]
*[[Passing the workspace as a parameter]]
*[[Add Workspace Parameter|Adding Workspace Parameters]] using the [[cIniFile]] class
*Adding [[SMTP Email]] to your application using an [[ActiveX]] control
*[[Run only one instance of your application]]
*[[Customize prompt lookup behavior in a dbgrid]]
*[[Print the content of an embedded IE html control]]
*[[Return data from every object in a dbView]]
*[[Print to a file using reports]]
*[[Visual Modelling of multiple visual objects]]
*[[ExpressConnectivity]]

==Advanced==
* [[Add icons with subset of images to CodeJock CommandBars]]
* [[Programmatically edit a treeview label]]
* [[Muli-row select for Grid control]]

==External links==
* http://www.vdf-guidance.com
* http://visualdataflexdeveloper.org/
* http://www.visualdataflex.com
* http://www.visualdataflex.ru (Russian)
* http://www.dataaccess.com
* http://www.dataaccess.nl
* [http://www.sture.com/wasp/ WASP Newsgroup search] engine
* [http://www.starzen.com StarZen Technologies] Addon Tools, Books, Magazines, Consulting
* [http://www.redeemedsoftware.com Redeemed Software] Crystal Report Utilities, Autocomplete, and more
* [http://www.redeemedhosting.com Redeemed Hosting] VDF Webapp Hosting and Virtual Servers

==Requested Articles / Works in progress==

*[[Converting from DOS to Windows]]
*[[COM|Using COM Objects]] (reuse existing functionality)

[[Category:Portals]]
[[Category:DataFlex (Character Mode)]]

Portal:Windows Applications

2008-09-04T04:06:31Z

Pinkynarf: /* External links */

The '''Visual Dataflex Portal''' is the place to come for articles and tutorials on developing [http://en.wikipedia.org/wiki/Microsoft_Windows Windows] applications with '''[[Visual DataFlex]]'''.

Before beginning the more advanced stuff you should consider reading [http://www.visual-dataflex.co.uk/1seater.asp?pageid=1028 Vincent's book] or attend a 5 days training. Now - on with the show:

==Articles==
*'''[[Visual DataFlex]]''' (covering the basic stuff)

==Tutorials==
*How to add '''[[Add Workspace Parameter|Workspace Parameters]]''' using [[cIniFile]]
*[[Running_VDF_programs_as_Windows_Services]]
*[[Using On_key for undefined keys]]
*[[Passing the workspace as a parameter]]
*[[Add Workspace Parameter|Adding Workspace Parameters]] using the [[cIniFile]] class
*Adding [[SMTP Email]] to your application using an [[ActiveX]] control
*[[Run only one instance of your application]]
*[[Customize prompt lookup behavior in a dbgrid]]
*[[Print the content of an embedded IE html control]]
*[[Return data from every object in a dbView]]
*[[Print to a file using reports]]
*[[Visual Modelling of multiple visual objects]]
*[[ExpressConnectivity]]

==Advanced==
* [[Add icons with subset of images to CodeJock CommandBars]]
* [[Programmatically edit a treeview label]]

==External links==
* http://www.vdf-guidance.com
* http://visualdataflexdeveloper.org/
* http://www.visualdataflex.com
* http://www.visualdataflex.ru (Russian)
* http://www.dataaccess.com
* http://www.dataaccess.nl
* [http://www.sture.com/wasp/ WASP Newsgroup search] engine
* [http://www.starzen.com StarZen Technologies] Addon Tools, Books, Magazines, Consulting
* [http://www.redeemedsoftware.com Redeemed Software] Crystal Report Utilities, Autocomplete, and more
* [http://www.redeemedhosting.com Redeemed Hosting] VDF Webapp Hosting and Virtual Servers

==Requested Articles / Works in progress==

*[[Converting from DOS to Windows]]
*[[COM|Using COM Objects]] (reuse existing functionality)

[[Category:Portals]]
[[Category:DataFlex (Character Mode)]]