PDA

View Full Version : VCP_HeaderToolTip.pkg



Michiel
28-Oct-2005, 07:12 AM
Hello,

I'm searching for the following package: VCP_HeaderToolTip.pkg
The homepage from Frank Cheng is down, and i can't find it anywhere else.

Michiel

Paul Cooling
28-Oct-2005, 07:21 AM
This is what you want FCP_HeaderToolTIp.pkg

Michiel wrote:
> Hello,
>
> I'm searching for the following package: VCP_HeaderToolTip.pkg
> The homepage from Frank Cheng is down, and i can't find it anywhere else.
>
> Michiel
>
>
>

// Created on : October 21st, 2003
// Created by : Frank Cheng
// Home Page : www.FrankCheng.com
// Package : FCP_HeaderToolTip.pkg
// Email : wintime98@yahoo.com

// [What is it?]
// Associate a tooltip for each column header inside a dbGrid or Grid.
// This is a Mix-in class, you can mix it into your dbGrid and/or Grid
// subclass. See VDF online help for using Mix-in classes.


// [Example]

// Use FCP_HeaderToolTip.pkg

// Class FCPGrid is a Grid

// Import_Class_Protocol FCP_HeaderToolTip_Mixin

// Procedure Construct_Object
// Forward Send Construct_Object
// Send Define_FCP_HeaderToolTip_Mixin
// End_Procedure // Construct_Object
//
// End_Class // FCPGrid

// Object oGrid is a FCPGrid
// Set Size to 150 280
// Set Location to 0 0
// Set Line_Width to 3 0
// Set Form_Width item 0 to 47
// Set Header_Label item 0 to "Column 1"
// Set Form_Width item 1 to 47
// Set Header_Label item 1 to "Column 2"
// Set Form_Width item 2 to 47
// Set Header_Label item 2 to "Column 3"
// Set Header_ToolTip Item 0 to "ToolTip for the First Column"
// Set Header_ToolTip Item 1 to "ToolTip for the Second Column"
// Set Header_ToolTip Item 2 to "ToolTip for the Third Column"
// End_Object // oGrid

Use FCP.pkg

External_Function FCP_21 "FCP_21" fcp.dll Integer i1 Integer i2 Returns Integer

Class FCP_HeaderToolTip_Mixin is a Mixin

Procedure Define_FCP_HeaderToolTip_Mixin
Object FCP_HeaderToolTip_Array is an Array
End_Object
Property Boolean pbBalloonToolTip TRUE
End_Procedure // Define_FCP_HeaderToolTip_Mixin

Procedure Set Header_ToolTip Integer iItem String sToolTip
Handle hAddress
Set Array_Value of FCP_HeaderToolTip_Array iItem to sToolTip
If (Window_Handle(Self)) Begin
If (sToolTip="") Send Windows_Message (WM_USER+7230) iItem 0
Else Begin
GetAddress Of sToolTip to hAddress
Send Windows_Message (WM_USER+7230) iItem hAddress
End
End
End_Procedure // Header_ToolTip

Function Header_ToolTip Integer iItem Returns String
String sValue
Get String_Value of FCP_HeaderToolTip_Array iItem to sValue
Function_Return sValue
End_Function // Header_ToolTip

Procedure Page_Object Integer iState
Integer iCount iIndex
Handle hArray hAddress
String sValue
Forward Send Page_Object iState
Move (FCP_21(Window_Handle(Self),pbBalloonToolTip(Self) )) to iState
Move (FCP_HeaderToolTip_Array(Self)) to hArray
Move (Item_Count(hArray)-1) to iCount
For iIndex From 0 to iCount
Get String_Value of hArray iIndex to sValue
If (sValue<>"") Begin
GetAddress Of sValue to hAddress
Send Windows_Message (WM_USER+7230) iIndex hAddress
End
Loop
End_Procedure // Page_Object

End_Class // ToolTipHeader_Mixin

Michiel
28-Oct-2005, 07:55 AM
Thanks for the package.

"Paul Cooling" <paul.cooling@sympatico.ca> wrote in message
news:ckwKmo72FHA.1316@dacmail.dataaccess.com...
> This is what you want FCP_HeaderToolTIp.pkg
>
> Michiel wrote:
> > Hello,
> >
> > I'm searching for the following package: VCP_HeaderToolTip.pkg
> > The homepage from Frank Cheng is down, and i can't find it anywhere
else.
> >
> > Michiel
> >
> >
> >
>


----------------------------------------------------------------------------
----


> // Created on : October 21st, 2003
> // Created by : Frank Cheng
> // Home Page : www.FrankCheng.com
> // Package : FCP_HeaderToolTip.pkg
> // Email : wintime98@yahoo.com
>
> // [What is it?]
> // Associate a tooltip for each column header inside a dbGrid or Grid.
> // This is a Mix-in class, you can mix it into your dbGrid and/or Grid
> // subclass. See VDF online help for using Mix-in classes.
>
>
> // [Example]
>
> // Use FCP_HeaderToolTip.pkg
>
> // Class FCPGrid is a Grid
>
> // Import_Class_Protocol FCP_HeaderToolTip_Mixin
>
> // Procedure Construct_Object
> // Forward Send Construct_Object
> // Send Define_FCP_HeaderToolTip_Mixin
> // End_Procedure // Construct_Object
> //
> // End_Class // FCPGrid
>
> // Object oGrid is a FCPGrid
> // Set Size to 150 280
> // Set Location to 0 0
> // Set Line_Width to 3 0
> // Set Form_Width item 0 to 47
> // Set Header_Label item 0 to "Column 1"
> // Set Form_Width item 1 to 47
> // Set Header_Label item 1 to "Column 2"
> // Set Form_Width item 2 to 47
> // Set Header_Label item 2 to "Column 3"
> // Set Header_ToolTip Item 0 to "ToolTip for the First Column"
> // Set Header_ToolTip Item 1 to "ToolTip for the Second Column"
> // Set Header_ToolTip Item 2 to "ToolTip for the Third Column"
> // End_Object // oGrid
>
> Use FCP.pkg
>
> External_Function FCP_21 "FCP_21" fcp.dll Integer i1 Integer i2 Returns
Integer
>
> Class FCP_HeaderToolTip_Mixin is a Mixin
>
> Procedure Define_FCP_HeaderToolTip_Mixin
> Object FCP_HeaderToolTip_Array is an Array
> End_Object
> Property Boolean pbBalloonToolTip TRUE
> End_Procedure // Define_FCP_HeaderToolTip_Mixin
>
> Procedure Set Header_ToolTip Integer iItem String sToolTip
> Handle hAddress
> Set Array_Value of FCP_HeaderToolTip_Array iItem to sToolTip
> If (Window_Handle(Self)) Begin
> If (sToolTip="") Send Windows_Message (WM_USER+7230) iItem 0
> Else Begin
> GetAddress Of sToolTip to hAddress
> Send Windows_Message (WM_USER+7230) iItem hAddress
> End
> End
> End_Procedure // Header_ToolTip
>
> Function Header_ToolTip Integer iItem Returns String
> String sValue
> Get String_Value of FCP_HeaderToolTip_Array iItem to sValue
> Function_Return sValue
> End_Function // Header_ToolTip
>
> Procedure Page_Object Integer iState
> Integer iCount iIndex
> Handle hArray hAddress
> String sValue
> Forward Send Page_Object iState
> Move (FCP_21(Window_Handle(Self),pbBalloonToolTip(Self) )) to iState
> Move (FCP_HeaderToolTip_Array(Self)) to hArray
> Move (Item_Count(hArray)-1) to iCount
> For iIndex From 0 to iCount
> Get String_Value of hArray iIndex to sValue
> If (sValue<>"") Begin
> GetAddress Of sValue to hAddress
> Send Windows_Message (WM_USER+7230) iIndex hAddress
> End
> Loop
> End_Procedure // Page_Object
>
> End_Class // ToolTipHeader_Mixin