Module: _gui      Library: Clipper 5.3


This module contains the following functions and procedures:

function _CHECKBOX_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8 )
function _LISTBOX_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
function _PUSHBUTT_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
function _RADIOGRP_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
function __CAPLENGT( Arg1 )
function __CAPTION( Arg1 )
function __GUICOLOR( Arg1, Arg2 )

Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//---------------------------------------------------[top]-
//  _CHECKBOX_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8 )
//
function _CHECKBOX_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8 )

   local Local1, Local2, Local3, Local4
   Local1 := checkbox(Row(), Col(), Arg2, Arg1)
   if ( !( ISNIL( Local1 ) ) )
      Local1:select(Arg1)
      Local1:caption(Arg2)
      Local1:colorspec(Arg4)
      Local1:message(Arg3)
      Local1:style(Arg7)
      Local1:fblock(Arg5)
      Local1:sblock(Arg6)
      Local1:bitmaps(Arg8)
   endif
   return Local1

//---------------------------------------------------[top]-
//  _LISTBOX_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
//
function _LISTBOX_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
   Arg9, Arg10, Arg11, Arg12, Arg13, Arg14 )

   local Local1, Local2, Local3, Local4
   Local1 := listbox(Arg1, Arg2, Arg3, Arg4, Arg12)
   if ( !( ISNIL( Local1 ) ) )
      if ( ISCHARACTER( Arg7 ) )
         Local1:caption(Arg7)
         Local1:capcol(Arg2 - __caplengt(Arg7))
      endif
      Local1:colorspec(Arg9)
      Local1:message(Arg8)
      Local1:fblock(Arg10)
      Local1:sblock(Arg11)
      Local3 := Len(Arg6)
      for Local2 := 1 to Local3
         Local4 := Arg6[ Local2 ]
         if ( !( ISARRAY( Local4 ) ) )
            Local1:additem(Local4)
         elseif ( Len(Local4) == 1 )
            Local1:additem(Local4[ 1 ])
         else
            Local1:additem(Local4[ 1 ], Local4[ 2 ])
         endif
      next
      if ( !( ISNIL( Arg13 ) ) .AND. Arg13 )
         if ( !( ISLOGICAL( Arg12 ) ) )
         elseif ( Arg12 )
            Arg1++
         endif
         Local1:vscroll(scrollbar(Arg1 + 1, Arg3 - 1, Arg4))
      endif
      if ( ISCHARACTER( Arg14 ) )
         Local1:bitmap(Arg14)
      endif
      Local1:select(Arg5)
   endif
   return Local1

//---------------------------------------------------[top]-
//  _PUSHBUTT_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
//
function _PUSHBUTT_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
   Arg9, Arg10, Arg11, Arg12, Arg13 )

   local Local1
   Local1 := pushbutton(Row(), Col(), Arg1)
   if ( !( ISNIL( Local1 ) ) )
      Local1:caption(Arg1)
      Local1:colorspec(Arg3)
      Local1:message(Arg2)
      Local1:style(Arg6)
      Local1:fblock(Arg4)
      Local1:sblock(Arg5)
      Local1:sizex(Arg7)
      Local1:sizey(Arg8)
      Local1:capxoff(Arg9)
      Local1:capyoff(Arg10)
      Local1:bitmap(Arg11)
      Local1:bmpxoff(Arg12)
      Local1:bmpyoff(Arg13)
   endif
   return Local1

//---------------------------------------------------[top]-
//  _RADIOGRP_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
//
function _RADIOGRP_( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
   Arg9, Arg10 )

   local Local1, Local2, Local3
   Local1 := radiogroup(Arg1, Arg2, Arg3, Arg4)
   if ( !( ISNIL( Local1 ) ) )
      Local1:caption(Arg7)
      Local1:colorspec(Arg9)
      Local1:message(Arg8)
      Local1:fblock(Arg10)
      Local3 := Len(Arg6)
      for Local2 := 1 to Local3
         Local1:additem(Arg6[ Local2 ])
      next
      Local1:select(Arg5)
   endif
   return Local1

//---------------------------------------------------[top]-
//  __CAPLENGT( Arg1 )
//
function __CAPLENGT( Arg1 )

   local Local1 := Len(Arg1), Local2
   if ( ( Local2 := At("&", Arg1) ) == 0 )
   elseif ( Local2 < Local1 )
      Local1--
   endif
   return Local1

//---------------------------------------------------[top]-
//  __CAPTION( Arg1 )
//
function __CAPTION( Arg1 )

   local Local1, Local2
   if ( ( Local2 := At("&", Arg1) ) > 0 )
      Arg1 := stuff(Arg1, Local2, 1, "")
   endif
   return Arg1

//---------------------------------------------------[top]-
//  __GUICOLOR( Arg1, Arg2 )
//
function __GUICOLOR( Arg1, Arg2 )

   local Local1 := Arg1, Local2, Local3
   for Local2 := 2 to Arg2
      Local3 := At(",", Local1)
      if ( Local3 == 0 )
         Local1 := ""
         exit
      endif
      Local1 := SubStr(Local1, Local3 + 1)
   next
   Local3 := At(",", Local1)
   if ( Local3 > 0 )
      Local1 := SubStr(Local1, 1, Local3 - 1)
   endif
   return Local1

//---EOF


Use your Browser's BACK button to return to Function Listings