Lescasse Consulting
 Home    Company    News    Prices    Download    Buy    Forums   
Read Me
Buy
Forums
Resume
AntiSpam 1.2
wBackup 1.11
NetAccess 2.0
Visual APL 1.0 
APL+Win 8.0 
APL+Win Products 
APL+Win Objects™ 
APL+Win Training 
APL+Web Services
APL+Web Component 
APL+ History
Dyalog.Net Tutorial
Conferences 
Powerpoint
White Papers
Web Hosting
References
Links
 
APL+Win Objects™ 6.0

TADO5
TADO5 Tutorial
TAPLDraw5
TAPLEdit5
TAPLSession5
TAbale5
TAboutBox5
TAccess5
TAgent5
TBlatMail5
TButton5
TCDO5
TCRC5
TCancelButton5
TCheck5
TCheckGroup5
TChildForm5
TChooseColor5
TChooseFont5
TClipBoard5
TClock5
TCodeStats5
TColors5
TCombo5
TComboDrive5
TComboFilter5
TComboList5
TComboTree5
TCommandBar5
TCommandButton5
TControlClass5
TCueCard5
TDHTML5
TDHTMLEditor5
TDateTime5
TDateTimeFr5
TDates5
TDemoHandlers5
TDisplay5
TDOS5
TDualSelect5
TEdit5
TEditAmount5
TEditDir5
TEditEnter5
TEditFile5
TEditGrid5
TEditList5
TEditListview5
TEditMenu5
TEditNum5
TEditSelect5
TEditSpin5
TEmail5
TError5
TExampleForm5
TExcel5
TExcel5 Tutorial
TFindReplace5
TFOne5
TFTP5
TFTP5 Tutorial
TFileCompare5
TFileMenu5
TFileMenuDef5
TFlatButton5
TForm5
TFormClass5
TFormEditor5
TFrame5
TGetDir5
TGif5
TGifForm5
TGifWb5
TGoMenu5
TGraphX5
TGrid5
TGridDisplay5
TGridPrint5
TGUID5
THLine5
THTML5
THTML5 Tutorial
THTTP5
THelp5
THelpMenu5
TImagelist5
TInfo5
TIniFile5
TInstall5
TInternet5
TJpg5
TJpgWb5
TLabel5
TList5
TListview5
TLock5
TLogs5
TMAPI5
TMath5
TMDIForm5
TMSOutlook5
TMaskEdit5
TMedia5
TMenu5
TMessage5
TModalCall5
TMsgBox5
TNavigator5
TNetwork5
TNonVisualClass5
TODBC5
TOKButton5
TObject5
TOpenFile5
TOption5
TOptionGroup5
TOutlook5
TOutlookMail5
TOWCSpread5
TPDF5
TPFKeys5
TPage5
TPassword5
TPicture5
TPing5
TPopupMenu5
TPowerpoint5
TPowerpoint5 Tutorial
TPrinter5
TProgress5
TProgressDlg5
TQuestion5
TRegistry5
TRegistryKey5
TResource5
TRichEdit5
TSPX5
TSQLDMO5
TScheduler5
TScroll5
TSelector5
TSpinner5
TSplitter5
TStatus5
TStopWatch5
TTest5
TTestError5
TTextFile5
TTimer5
TTip5
TTipForm5
TTLI5
TToolBar5
TToolbox5
TToolsMenu5
TTrackbar5
TTranslate5
TTree5
TVLine5
TViewMenu5
TWebBrowser5
TWebServer5
TWebSite5
TWebSiteNet5
TWinMenu5
TWord5
TYesNo5
    Visits:  2385 (18 on line) Last Update: Dec 5, 2003  
    TStatus5    Printer Friendly  
 
Description   Inheritance   Example   Properties   Methods
 
 Description

The TStatus5 is a cover object simplifying use of the APL+Win Status object It allows you to display a running clock in your Status bar as well as a progress bar Status fields are most easily updated using the Gets5 utility

Description   Inheritance   Example   Properties   Methods
 
 Inheritance

Inherits from:  TObject5

Description   Inheritance   Example   Properties   Methods
 
 Example
 
 

The above example was generated by the following APL+Win Objects™ code:


      'ff'Œwi'*Create' 'TForm5'('*caption' 'TStatus5 Example')('*size'300 400)'DemoShow' 'SessionFocus'
      'ff.sb'Œwi'*Create' 'TStatus5'
      Œdl 2
      'sb'Gets5 1'This text is displayed in field #1'
      Œdl 2
      'sb'Gets5 3'Show field 3'
      'sb'Gets5 4'Show field 4'
      Œdl 2
      'sb'Gets5 ¯14'Overlay all existing fields with field ¯14'
      Œdl 2
      'sb'Gets5 ¯14''                             © hide overlay field (¯14)
      Œdl 2
      'sb'Gets5 ¯15 0 ª 0 0½Œdl.3                 © display Progress Bar in field ¯15
      'sb'Gets5 ¯15 10 ª 0 0½Œdl.3                © progress it to 10%
      'sb'Gets5 ¯15 20 ª 0 0½Œdl.3
      'sb'Gets5 ¯15 30 ª 0 0½Œdl.3
      'sb'Gets5 ¯15 40 ª 0 0½Œdl.3
      'sb'Gets5 ¯15 80 ª 0 0½Œdl.3
      'sb'Gets5 ¯15 100
      Œdl 2
      'sb'Gets5 ¯15 ¯1                            © hide progress bar by displaying a negative progress value
      Œdl 2
      'sb'Gets5 3''                               © hide field 3
      Œdl 2
      'sb'Gets5 4''                               © hide field 4
      'sb'Œwi'fieldname'
      1 Field1  
      2 Field2  
      3 Field3  
      4 Field4  
      5 Field5  
      6 Field6  
      7 Field7  
      8 Field8  
      9 Field9  
   caps caps    
    num num     
 scroll scroll  
    Œts ts      
    ¯14 overlay 
    ¯15 pbar    

      'sb'Œwi'fieldname'3'user'
      'sb'Œwi'fieldname'(2 2½1'file'4'test')
      'sb'Gets5'user' 'lescasse'
      'sb'Gets5'file' 'c:\temp\test.txt'
      'sb'Gets5'pbar' 10
      'sb'Gets5'pbar' 20
      'sb'Gets5'pbar' 30
      'sb'Gets5'pbar' 100
      'sb'Gets5'pbar' ¯1
      'sb'Gets5'overlay' 'This is a long message displayed in overlay field'
      'sb'Gets5'overlay' ''
 
Description   Inheritance   Example   Properties   Methods
 
 Properties
 
class    
Description:  Return current object class 
Syntax:  class„'obj' Œwi 'class' 
fieldname    
Description:  Get or Set the field name for one of the status fields 
Syntax:  {fieldnames'} 'obj' Œwi 'fieldname' {fieldname} 
fieldname:  a nested vector containing a field number (from 1 to 9) and a field name 
            or a 2-column nested matrix such that: 
            [;1]  field numbers (1 to 9) 
            [;2]  field names 
Example: 
      'ff.sb' Œwi 'fieldname' (3 2½1'file'2'user'3'computer') 
*: Œerror(^\Œdm¬Œtcnl)/Œdm } 
fields    
Description:  The fields property returns the predefined status bar field numbers 
Syntax:  'obj' Œwi 'fields'fieldtypes 
fieldtypes:  a vector of fieldtypes defined as follows 
fieldtypes are defined as follows: 
   1 main status bar field 
   2 Caps Lock field 
   3 Num Lock field 
   4 Scroll Lock field 
   5 Date/Time field 
   6 regular field (60 chars width) 
   7 regular field (minimum width) 
Example: 
      'ff.sb' Œwi 'fields'1 2 3 5 
help    
Example: 
0 0½'ff' Œwi '*Create' 'TForm5' ('*caption' 'TStatus5 Example') ('*size'300 400) 'DemoShow' 'SessionFocus' 
0 0½'ff.sb' Œwi '*Create' 'TStatus5' 
© By default, a TStatus5 bar contains 9 standard fields, only the first 
© one being visible, a CAPS field, a NUM field, a SCROLL field 
© a Timestamp field and 2 overlay fields: one (numbered ¯14) for displaying 
© text and the other one (numbered ¯15) for displaying a progress bar 
0 0½Œdl 2 
'sb'Gets5 1'This text is displayed in field #1' 
0 0½Œdl 2 
'sb'Gets5 3'Show field 3' 
'sb'Gets5 4'Show field 4' 
0 0½Œdl 2 
'sb'Gets5 ¯14'Overlay all existing fields with field ¯14' 
0 0½Œdl 2 
'sb'Gets5 ¯14''                             © hide overlay field (¯14) 
0 0½Œdl 2 
'sb'Gets5 ¯15 0 ª 0 0½Œdl.3                 © display Progress Bar in field ¯15 
'sb'Gets5 ¯15 10 ª 0 0½Œdl.3                © progress it to 10% 
'sb'Gets5 ¯15 20 ª 0 0½Œdl.3 
'sb'Gets5 ¯15 30 ª 0 0½Œdl.3 
'sb'Gets5 ¯15 40 ª 0 0½Œdl.3 
'sb'Gets5 ¯15 80 ª 0 0½Œdl.3 
'sb'Gets5 ¯15 100 
0 0½Œdl 2 
'sb'Gets5 ¯15 ¯1                            © hide progress bar by displaying a negative progress value 
0 0½Œdl 2 
'sb'Gets5 3''                               © hide field 3 
0 0½Œdl 2 
'sb'Gets5 4''                               © hide field 4 
© To make it easier to use, associate names with status bar fields: 
'sb' Œwi 'fieldname' 
'sb' Œwi 'fieldname'3'user' 
'sb' Œwi 'fieldname' (2 2½1'file'4'test') 
'sb'Gets5'user' 'lescasse' 
'sb'Gets5'file' 'c:\temp\test.txt' 
'sb'Gets5'pbar' 10 
'sb'Gets5'pbar' 20 
'sb'Gets5'pbar' 30 
'sb'Gets5'pbar' 100 
'sb'Gets5'pbar' ¯1 
'sb'Gets5'overlay' 'This is a long message displayed in overlay field' 
'sb'Gets5'overlay' '' 
status    
Description:  Get or Set the status bar <status> property 
Syntax:  {status„'} 'obj' Œwi 'status' {status} 
status:  a nested vector containing positive numbers, negative numbers 
         and/or 'caps' 'num' 'scroll' ' Œts' 
Example: 
      'ff.sb' Œwi 'status'1 2 3 'caps' ' Œts' ¯14 ¯15 
Description   Inheritance   Example   Properties   Methods
 
 Methods
 
GetField    
Description:  Gets the text in one or more status fields 
Syntax:  'obj' Œwi 'GetField'fields 
fields:  one or more field number or field names 
Example: 
      'ff.sb' Œwi 'fieldname'3'user' 
      'ff.sb' Œwi 'GetField'3 
      'ff.sb' Œwi 'GetField' 'user' 
New     Description: Create a new instance of TStatus5
Example:
      'obj' Œwi '*Create' 'TStatus5'

SetField    
Description:  Changes text in one or more status fields 
Syntax:  'obj' Œwi 'SetField'field value 
field:  a field number or field name 
value:  a numeric scalar or vector or a character string 
Example: 
      'ff.sb' Œwi 'fieldname'3'user' 
      'ff.sb' Œwi 'SetField' 'user' 'lescasse' 
      'ff.sb' Œwi 'SetField'2'c:\temp\test.txt' 
      'ff.sb' Œwi 'SetField' 'overlay' 'This is a long message to be displayed in the status bar overlay field' 
Description   Inheritance   Example   Properties   Methods
 
 This entire Web site has been dynamically generated by APL+Win Objects™ 6.0
 For all questions contact:  info@lescasse.com
 Copyright © 2003-2005 Lescasse Consulting. All rights reserved.