Customize prompt lookup behavior in a dbgrid: Difference between revisions

From DataFlex Wiki
Jump to navigationJump to search
(New page: How can I set a column in a dbGrid to ignore the prompt under certain circumstances? 1. Via customizing the prompt method in the object Procedure Prompt Integer iColumn Boolean bOk...)
 
m (using source tag)
Line 3: Line 3:


1. Via customizing the prompt method in the object
1. Via customizing the prompt method in the object
<source lang="vdf">
  Procedure Prompt
  Procedure Prompt
   Integer iColumn
   Integer iColumn
   Boolean bOk     
   Boolean bOk     
   move (true) to bOk
   move (true) to bOk
   Get Current_Col To iColumn
   Get Current_Col To iColumn
Line 17: Line 17:
     Forward Send Prompt
     Forward Send Prompt
   End
   End
  Procedure // Prmopt
  Procedure // Prompt
</source>


2. Via entry_display
2. Via entry_display


<source lang="vdf">
   if(certain circumstances) begin
   if(certain circumstances) begin
     Set Prompt_Button_Mode to pb_PromptOff
     Set Prompt_Button_Mode to pb_PromptOff
Line 30: Line 32:
     if(not((certain circumstances)) forward send prompt
     if(not((certain circumstances)) forward send prompt
   End_Procedure
   End_Procedure
</source>

Revision as of 21:09, 12 June 2008

How can I set a column in a dbGrid to ignore the prompt under certain circumstances?

1. Via customizing the prompt method in the object

 Procedure Prompt
   Integer iColumn
   Boolean bOk    
   move (true) to bOk
   Get Current_Col To iColumn
   If (iColumn=4) Begin
     // if in column 4 then check data
     Get Field_Current_Value Of Server_DD Field Foo.bar To sBar
     If (sBar="foo") Move (false) To bOk
   End
   If (bOk) Begin
     Forward Send Prompt
   End
 Procedure // Prompt

2. Via entry_display

  if(certain circumstances) begin
    Set Prompt_Button_Mode to pb_PromptOff
  end
and
  On_Key kPrompt Send myprompt

  Procedure Myprompt
    if(not((certain circumstances)) forward send prompt
  End_Procedure