Changeset 720 for EVA

Show
Ignore:
Timestamp:
04/18/07 11:40:04 (17 months ago)
Author:
mankoff
Message:

Data table work; #659, #660

Location:
EVA/trunk
Files:
5 modified

Legend:

Unmodified
Added
Removed

  • EVA/trunk/Makefile

    r704 r720  
    1 VERSION=1.6.0 
     1VERSION=1.6.1 
    22APP=EVA 
    33APPNAME=$(APP).app 

  • EVA/trunk/RB_ext/winData.xml

    r634 r720  
    404404    <SourceLine></SourceLine> 
    405405    <SourceLine>initDone = true</SourceLine> 
     406    <SourceLine>me.AreaSelection = true</SourceLine> 
    406407    <SourceLine>showData</SourceLine> 
    407408    <SourceLine>End Sub</SourceLine> 
    … …  
    442443  <ControlClass>PopupMenu</ControlClass> 
    443444  <ItemName>PopupMenu</ItemName> 
    444   <PropertyVal Name="InitialParent"></PropertyVal> 
    445   <PropertyVal Name="DataField"></PropertyVal> 
    446   <PropertyVal Name="DataSource"></PropertyVal> 
    447   <PropertyVal Name="Underline"></PropertyVal> 
    448   <PropertyVal Name="Italic"></PropertyVal> 
    449   <PropertyVal Name="Bold"></PropertyVal> 
    450   <PropertyVal Name="TextSize">0</PropertyVal> 
    451   <PropertyVal Name="TextFont">System</PropertyVal> 
    452   <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
    453   <PropertyVal Name="HelpTag"></PropertyVal> 
    454   <PropertyVal Name="Visible">True</PropertyVal> 
    455   <PropertyVal Name="ListIndex">0</PropertyVal> 
     445  <PropertyVal Name="Name">PopupMenu1</PropertyVal> 
     446  <PropertyVal Name="Index">-2147483648</PropertyVal> 
     447  <PropertyVal Name="ControlOrder">0</PropertyVal> 
     448  <PropertyVal Name="Left">412</PropertyVal> 
     449  <PropertyVal Name="Top">470</PropertyVal> 
     450  <PropertyVal Name="Width">80</PropertyVal> 
     451  <PropertyVal Name="Height">20</PropertyVal> 
     452  <PropertyVal Name="LockLeft">True</PropertyVal> 
     453  <PropertyVal Name="LockTop"></PropertyVal> 
     454  <PropertyVal Name="LockRight"></PropertyVal> 
     455  <PropertyVal Name="LockBottom">True</PropertyVal> 
     456  <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
     457  <PropertyVal Name="Enabled">True</PropertyVal> 
    456458  <PropertyVal Name="InitialValue">4 
    4574595 
    … …  
    47247428 
    47347532</PropertyVal> 
    474   <PropertyVal Name="Enabled">True</PropertyVal> 
    475   <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
    476   <PropertyVal Name="LockBottom">True</PropertyVal> 
    477   <PropertyVal Name="LockRight"></PropertyVal> 
    478   <PropertyVal Name="LockTop"></PropertyVal> 
    479   <PropertyVal Name="LockLeft">True</PropertyVal> 
    480   <PropertyVal Name="Height">20</PropertyVal> 
    481   <PropertyVal Name="Width">80</PropertyVal> 
    482   <PropertyVal Name="Top">470</PropertyVal> 
    483   <PropertyVal Name="Left">412</PropertyVal> 
    484   <PropertyVal Name="ControlOrder">0</PropertyVal> 
     476  <PropertyVal Name="ListIndex">0</PropertyVal> 
     477  <PropertyVal Name="Visible">True</PropertyVal> 
     478  <PropertyVal Name="HelpTag"></PropertyVal> 
     479  <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
     480  <PropertyVal Name="TextFont">System</PropertyVal> 
     481  <PropertyVal Name="TextSize">0</PropertyVal> 
     482  <PropertyVal Name="Bold"></PropertyVal> 
     483  <PropertyVal Name="Italic"></PropertyVal> 
     484  <PropertyVal Name="Underline"></PropertyVal> 
     485  <PropertyVal Name="DataSource"></PropertyVal> 
     486  <PropertyVal Name="DataField"></PropertyVal> 
     487  <PropertyVal Name="InitialParent"></PropertyVal> 
    485488  <PropertyVal Name="Super">PopupMenu</PropertyVal> 
    486   <PropertyVal Name="Index">-2147483648</PropertyVal> 
    487   <PropertyVal Name="Name">PopupMenu1</PropertyVal> 
    488489  <ControlIndex>0</ControlIndex> 
    489490 </Control> 
    … …  
    491492  <ControlClass>StyleGrid</ControlClass> 
    492493  <ItemName>StyleGrid</ItemName> 
     494  <PropertyVal Name="Name">datagrid</PropertyVal> 
     495  <PropertyVal Name="Index">-2147483648</PropertyVal> 
     496  <PropertyVal Name="ControlOrder">1</PropertyVal> 
     497  <PropertyVal Name="Left">0</PropertyVal> 
     498  <PropertyVal Name="Top">0</PropertyVal> 
     499  <PropertyVal Name="Width">670</PropertyVal> 
     500  <PropertyVal Name="Height">459</PropertyVal> 
     501  <PropertyVal Name="LockLeft">True</PropertyVal> 
     502  <PropertyVal Name="LockTop">True</PropertyVal> 
     503  <PropertyVal Name="LockRight">True</PropertyVal> 
     504  <PropertyVal Name="LockBottom">True</PropertyVal> 
     505  <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
     506  <PropertyVal Name="InitialParent"></PropertyVal> 
     507  <PropertyVal Name="Visible">True</PropertyVal> 
     508  <PropertyVal Name="HelpTag"></PropertyVal> 
     509  <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
     510  <PropertyVal Name="Enabled">True</PropertyVal> 
     511  <PropertyVal Name="StartupMacFont">Geneva</PropertyVal> 
     512  <PropertyVal Name="StartupMacFontSize">9</PropertyVal> 
     513  <PropertyVal Name="StartupWin32Font">MS Sans Serif</PropertyVal> 
     514  <PropertyVal Name="StartupWin32FontSize">8</PropertyVal> 
     515  <PropertyVal Name="StartupLinuxFont">Geneva</PropertyVal> 
     516  <PropertyVal Name="StartupLinuxFontSize">8</PropertyVal> 
     517  <PropertyVal Name="SelectionColor">6750207</PropertyVal> 
     518  <PropertyVal Name="InactiveSelectionColor">15461355</PropertyVal> 
     519  <PropertyVal Name="SelectedTextColor">16744448</PropertyVal> 
     520  <PropertyVal Name="GridLineColor">5000268</PropertyVal> 
     521  <PropertyVal Name="OutOfBoundsGridLineColor">11842740</PropertyVal> 
     522  <PropertyVal Name="CellOddColor">16777215</PropertyVal> 
     523  <PropertyVal Name="CellEvenColor">16777215</PropertyVal> 
     524  <PropertyVal Name="EvenBackColor">14606046</PropertyVal> 
     525  <PropertyVal Name="OddBackColor">14606046</PropertyVal> 
     526  <PropertyVal Name="UseFocusRing">True</PropertyVal> 
     527  <PropertyVal Name="GetFocusOnClick">True</PropertyVal> 
     528  <PropertyVal Name="Cols">3</PropertyVal> 
     529  <PropertyVal Name="Rows">3</PropertyVal> 
     530  <PropertyVal Name="HasHeader">False</PropertyVal> 
     531  <PropertyVal Name="DefaultRowHeight">14</PropertyVal> 
     532  <PropertyVal Name="DefaultColumnWidth">45</PropertyVal> 
     533  <PropertyVal Name="HorizontalScrollbar">True</PropertyVal> 
     534  <PropertyVal Name="VerticalScrollbar">True</PropertyVal> 
     535  <PropertyVal Name="SelectEntireRow">False</PropertyVal> 
     536  <PropertyVal Name="AreaSelection">True</PropertyVal> 
     537  <PropertyVal Name="HorizontalGrid">True</PropertyVal> 
     538  <PropertyVal Name="VerticalGrid">True</PropertyVal> 
     539  <PropertyVal Name="CornerBtnEnabled">True</PropertyVal> 
     540  <PropertyVal Name="RenderSortOrder">True</PropertyVal> 
     541  <PropertyVal Name="ShowResizeGlyph">True</PropertyVal> 
     542  <PropertyVal Name="HasSelectionColor">True</PropertyVal> 
     543  <PropertyVal Name="HasInactiveSelectionColor">False</PropertyVal> 
     544  <PropertyVal Name="HasBackColor">False</PropertyVal> 
     545  <PropertyVal Name="HasCellGridLineColor">True</PropertyVal> 
     546  <PropertyVal Name="HasOutOfBoundsGridLineColor">False</PropertyVal> 
     547  <PropertyVal Name="HasSelectedTextColor">True</PropertyVal> 
    493548  <PropertyVal Name="LiveScroll">True</PropertyVal> 
    494   <PropertyVal Name="HasSelectedTextColor">True</PropertyVal> 
    495   <PropertyVal Name="HasOutOfBoundsGridLineColor">False</PropertyVal> 
    496   <PropertyVal Name="HasCellGridLineColor">True</PropertyVal> 
    497   <PropertyVal Name="HasBackColor">False</PropertyVal> 
    498   <PropertyVal Name="HasInactiveSelectionColor">False</PropertyVal> 
    499   <PropertyVal Name="HasSelectionColor">True</PropertyVal> 
    500   <PropertyVal Name="ShowResizeGlyph">True</PropertyVal> 
    501   <PropertyVal Name="RenderSortOrder">True</PropertyVal> 
    502   <PropertyVal Name="CornerBtnEnabled">True</PropertyVal> 
    503   <PropertyVal Name="VerticalGrid">True</PropertyVal> 
    504   <PropertyVal Name="HorizontalGrid">True</PropertyVal> 
    505   <PropertyVal Name="AreaSelection">True</PropertyVal> 
    506   <PropertyVal Name="SelectEntireRow">False</PropertyVal> 
    507   <PropertyVal Name="VerticalScrollbar">True</PropertyVal> 
    508   <PropertyVal Name="HorizontalScrollbar">True</PropertyVal> 
    509   <PropertyVal Name="DefaultColumnWidth">45</PropertyVal> 
    510   <PropertyVal Name="DefaultRowHeight">14</PropertyVal> 
    511   <PropertyVal Name="HasHeader">False</PropertyVal> 
    512   <PropertyVal Name="Rows">3</PropertyVal> 
    513   <PropertyVal Name="Cols">3</PropertyVal> 
    514   <PropertyVal Name="GetFocusOnClick">True</PropertyVal> 
    515   <PropertyVal Name="UseFocusRing">True</PropertyVal> 
    516   <PropertyVal Name="OddBackColor">14606046</PropertyVal> 
    517   <PropertyVal Name="EvenBackColor">14606046</PropertyVal> 
    518   <PropertyVal Name="CellEvenColor">16777215</PropertyVal> 
    519   <PropertyVal Name="CellOddColor">16777215</PropertyVal> 
    520   <PropertyVal Name="OutOfBoundsGridLineColor">11842740</PropertyVal> 
    521   <PropertyVal Name="GridLineColor">5000268</PropertyVal> 
    522   <PropertyVal Name="SelectedTextColor">16744448</PropertyVal> 
    523   <PropertyVal Name="InactiveSelectionColor">15461355</PropertyVal> 
    524   <PropertyVal Name="SelectionColor">6750207</PropertyVal> 
    525   <PropertyVal Name="StartupLinuxFontSize">8</PropertyVal> 
    526   <PropertyVal Name="StartupLinuxFont">Geneva</PropertyVal> 
    527   <PropertyVal Name="StartupWin32FontSize">8</PropertyVal> 
    528   <PropertyVal Name="StartupWin32Font">MS Sans Serif</PropertyVal> 
    529   <PropertyVal Name="StartupMacFontSize">9</PropertyVal> 
    530   <PropertyVal Name="StartupMacFont">Geneva</PropertyVal> 
    531   <PropertyVal Name="Enabled">True</PropertyVal> 
    532   <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
    533   <PropertyVal Name="HelpTag"></PropertyVal> 
    534   <PropertyVal Name="Visible">True</PropertyVal> 
    535   <PropertyVal Name="InitialParent"></PropertyVal> 
    536   <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
    537   <PropertyVal Name="LockBottom">True</PropertyVal> 
    538   <PropertyVal Name="LockRight">True</PropertyVal> 
    539   <PropertyVal Name="LockTop">True</PropertyVal> 
    540   <PropertyVal Name="LockLeft">True</PropertyVal> 
    541   <PropertyVal Name="Height">459</PropertyVal> 
    542   <PropertyVal Name="Width">670</PropertyVal> 
    543   <PropertyVal Name="Top">0</PropertyVal> 
    544   <PropertyVal Name="Left">0</PropertyVal> 
    545   <PropertyVal Name="ControlOrder">1</PropertyVal> 
    546549  <PropertyVal Name="Super">StyleGrid</PropertyVal> 
    547   <PropertyVal Name="Index">-2147483648</PropertyVal> 
    548   <PropertyVal Name="Name">datagrid</PropertyVal> 
    549550  <ControlIndex>4</ControlIndex> 
    550551 </Control> 
    … …  
    552553  <ControlClass>EVAColorMenu</ControlClass> 
    553554  <ItemName>EVAColorMenu</ItemName> 
     555  <PropertyVal Name="Name">ColorMenu1</PropertyVal> 
     556  <PropertyVal Name="Index">-2147483648</PropertyVal> 
     557  <PropertyVal Name="ControlOrder">2</PropertyVal> 
     558  <PropertyVal Name="Left">234</PropertyVal> 
     559  <PropertyVal Name="Top">470</PropertyVal> 
     560  <PropertyVal Name="Width">80</PropertyVal> 
     561  <PropertyVal Name="Height">20</PropertyVal> 
     562  <PropertyVal Name="LockLeft">True</PropertyVal> 
     563  <PropertyVal Name="LockTop"></PropertyVal> 
     564  <PropertyVal Name="LockRight"></PropertyVal> 
     565  <PropertyVal Name="LockBottom">True</PropertyVal> 
     566  <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
     567  <PropertyVal Name="Enabled">True</PropertyVal> 
     568  <PropertyVal Name="InitialValue"></PropertyVal> 
     569  <PropertyVal Name="ListIndex">0</PropertyVal> 
     570  <PropertyVal Name="Visible">True</PropertyVal> 
     571  <PropertyVal Name="HelpTag"></PropertyVal> 
     572  <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
     573  <PropertyVal Name="TextFont">System</PropertyVal> 
     574  <PropertyVal Name="TextSize">0</PropertyVal> 
     575  <PropertyVal Name="Bold"></PropertyVal> 
     576  <PropertyVal Name="Italic"></PropertyVal> 
     577  <PropertyVal Name="Underline"></PropertyVal> 
     578  <PropertyVal Name="DataSource"></PropertyVal> 
     579  <PropertyVal Name="DataField"></PropertyVal> 
     580  <PropertyVal Name="InitialParent"></PropertyVal> 
     581  <PropertyVal Name="defaultListindex">3</PropertyVal> 
    554582  <PropertyVal Name="FillColor">0</PropertyVal> 
    555   <PropertyVal Name="defaultListindex">3</PropertyVal> 
    556   <PropertyVal Name="InitialParent"></PropertyVal> 
    557   <PropertyVal Name="DataField"></PropertyVal> 
    558   <PropertyVal Name="DataSource"></PropertyVal> 
    559   <PropertyVal Name="Underline"></PropertyVal> 
    560   <PropertyVal Name="Italic"></PropertyVal> 
    561   <PropertyVal Name="Bold"></PropertyVal> 
    562   <PropertyVal Name="TextSize">0</PropertyVal> 
    563   <PropertyVal Name="TextFont">System</PropertyVal> 
    564   <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
    565   <PropertyVal Name="HelpTag"></PropertyVal> 
    566   <PropertyVal Name="Visible">True</PropertyVal> 
    567   <PropertyVal Name="ListIndex">0</PropertyVal> 
    568   <PropertyVal Name="InitialValue"></PropertyVal> 
    569   <PropertyVal Name="Enabled">True</PropertyVal> 
    570   <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
    571   <PropertyVal Name="LockBottom">True</PropertyVal> 
    572   <PropertyVal Name="LockRight"></PropertyVal> 
    573   <PropertyVal Name="LockTop"></PropertyVal> 
    574   <PropertyVal Name="LockLeft">True</PropertyVal> 
    575   <PropertyVal Name="Height">20</PropertyVal> 
    576   <PropertyVal Name="Width">80</PropertyVal> 
    577   <PropertyVal Name="Top">470</PropertyVal> 
    578   <PropertyVal Name="Left">234</PropertyVal> 
    579   <PropertyVal Name="ControlOrder">2</PropertyVal> 
    580583  <PropertyVal Name="Super">EVAColorMenu</PropertyVal> 
    581   <PropertyVal Name="Index">-2147483648</PropertyVal> 
    582   <PropertyVal Name="Name">ColorMenu1</PropertyVal> 
    583584  <ControlIndex>5</ControlIndex> 
    584585 </Control> 
    … …  
    586587  <ControlClass>EditField</ControlClass> 
    587588  <ItemName>EditField</ItemName> 
     589  <PropertyVal Name="Name">EditField1</PropertyVal> 
     590  <PropertyVal Name="Index">-2147483648</PropertyVal> 
     591  <PropertyVal Name="ControlOrder">3</PropertyVal> 
     592  <PropertyVal Name="Left">81</PropertyVal> 
     593  <PropertyVal Name="Top">468</PropertyVal> 
     594  <PropertyVal Name="Width">55</PropertyVal> 
     595  <PropertyVal Name="Height">22</PropertyVal> 
     596  <PropertyVal Name="LockLeft">True</PropertyVal> 
     597  <PropertyVal Name="LockTop"></PropertyVal> 
     598  <PropertyVal Name="LockRight"></PropertyVal> 
     599  <PropertyVal Name="LockBottom">True</PropertyVal> 
     600  <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
     601  <PropertyVal Name="Border">True</PropertyVal> 
     602  <PropertyVal Name="Multiline"></PropertyVal> 
     603  <PropertyVal Name="ScrollbarHorizontal"></PropertyVal> 
     604  <PropertyVal Name="ScrollbarVertical">True</PropertyVal> 
     605  <PropertyVal Name="Styled"></PropertyVal> 
     606  <PropertyVal Name="Password"></PropertyVal> 
     607  <PropertyVal Name="UseFocusRing">True</PropertyVal> 
     608  <PropertyVal Name="TextColor">0</PropertyVal> 
     609  <PropertyVal Name="BackColor">16777215</PropertyVal> 
     610  <PropertyVal Name="Enabled">True</PropertyVal> 
     611  <PropertyVal Name="Format"></PropertyVal> 
     612  <PropertyVal Name="Visible">True</PropertyVal> 
     613  <PropertyVal Name="HelpTag"></PropertyVal> 
     614  <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
     615  <PropertyVal Name="TextFont">System</PropertyVal> 
     616  <PropertyVal Name="TextSize">0</PropertyVal> 
     617  <PropertyVal Name="Bold"></PropertyVal> 
     618  <PropertyVal Name="Italic"></PropertyVal> 
     619  <PropertyVal Name="Underline"></PropertyVal> 
     620  <PropertyVal Name="Text">1</PropertyVal> 
     621  <PropertyVal Name="Mask">##</PropertyVal> 
     622  <PropertyVal Name="ReadOnly"></PropertyVal> 
     623  <PropertyVal Name="LimitText">0</PropertyVal> 
     624  <PropertyVal Name="AcceptTabs"></PropertyVal> 
     625  <PropertyVal Name="Alignment">0</PropertyVal> 
     626  <PropertyVal Name="DataSource"></PropertyVal> 
     627  <PropertyVal Name="DataField"></PropertyVal> 
    588628  <PropertyVal Name="InitialParent"></PropertyVal> 
    589   <PropertyVal Name="DataField"></PropertyVal> 
    590   <PropertyVal Name="DataSource"></PropertyVal> 
    591   <PropertyVal Name="Alignment">0</PropertyVal> 
    592   <PropertyVal Name="AcceptTabs"></PropertyVal> 
    593   <PropertyVal Name="LimitText">0</PropertyVal> 
    594   <PropertyVal Name="ReadOnly"></PropertyVal> 
    595   <PropertyVal Name="Mask">##</PropertyVal> 
    596   <PropertyVal Name="Text">1</PropertyVal> 
    597   <PropertyVal Name="Underline"></PropertyVal> 
    598   <PropertyVal Name="Italic"></PropertyVal> 
    599   <PropertyVal Name="Bold"></PropertyVal> 
    600   <PropertyVal Name="TextSize">0</PropertyVal> 
    601   <PropertyVal Name="TextFont">System</PropertyVal> 
    602   <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
    603   <PropertyVal Name="HelpTag"></PropertyVal> 
    604   <PropertyVal Name="Visible">True</PropertyVal> 
    605   <PropertyVal Name="Format"></PropertyVal> 
    606   <PropertyVal Name="Enabled">True</PropertyVal> 
    607   <PropertyVal Name="BackColor">16777215</PropertyVal> 
    608   <PropertyVal Name="TextColor">0</PropertyVal> 
    609   <PropertyVal Name="UseFocusRing">True</PropertyVal> 
    610   <PropertyVal Name="Password"></PropertyVal> 
    611   <PropertyVal Name="Styled"></PropertyVal> 
    612   <PropertyVal Name="ScrollbarVertical">True</PropertyVal> 
    613   <PropertyVal Name="ScrollbarHorizontal"></PropertyVal> 
    614   <PropertyVal Name="Multiline"></PropertyVal> 
    615   <PropertyVal Name="Border">True</PropertyVal> 
    616   <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
    617   <PropertyVal Name="LockBottom">True</PropertyVal> 
    618   <PropertyVal Name="LockRight"></PropertyVal> 
    619   <PropertyVal Name="LockTop"></PropertyVal> 
    620   <PropertyVal Name="LockLeft">True</PropertyVal> 
    621   <PropertyVal Name="Height">22</PropertyVal> 
    622   <PropertyVal Name="Width">55</PropertyVal> 
    623   <PropertyVal Name="Top">468</PropertyVal> 
    624   <PropertyVal Name="Left">81</PropertyVal> 
    625   <PropertyVal Name="ControlOrder">3</PropertyVal> 
    626629  <PropertyVal Name="Super">EditField</PropertyVal> 
    627   <PropertyVal Name="Index">-2147483648</PropertyVal> 
    628   <PropertyVal Name="Name">EditField1</PropertyVal> 
    629630  <ControlIndex>1</ControlIndex> 
    630631 </Control> 
    … …  
    632633  <ControlClass>StaticText</ControlClass> 
    633634  <ItemName>StaticText</ItemName> 
     635  <PropertyVal Name="Name">StaticText1</PropertyVal> 
     636  <PropertyVal Name="Index">-2147483648</PropertyVal> 
     637  <PropertyVal Name="ControlOrder">4</PropertyVal> 
     638  <PropertyVal Name="Left">326</PropertyVal> 
     639  <PropertyVal Name="Top">470</PropertyVal> 
     640  <PropertyVal Name="Width">74</PropertyVal> 
     641  <PropertyVal Name="Height">20</PropertyVal> 
     642  <PropertyVal Name="LockLeft">True</PropertyVal> 
     643  <PropertyVal Name="LockTop"></PropertyVal> 
     644  <PropertyVal Name="LockRight"></PropertyVal> 
     645  <PropertyVal Name="LockBottom">True</PropertyVal> 
     646  <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
     647  <PropertyVal Name="Text">Font</PropertyVal> 
     648  <PropertyVal Name="TextAlign">2</PropertyVal> 
     649  <PropertyVal Name="TextColor">0</PropertyVal> 
     650  <PropertyVal Name="Multiline"></PropertyVal> 
     651  <PropertyVal Name="Enabled">True</PropertyVal> 
     652  <PropertyVal Name="Visible">True</PropertyVal> 
     653  <PropertyVal Name="HelpTag"></PropertyVal> 
     654  <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
     655  <PropertyVal Name="TextFont">System</PropertyVal> 
     656  <PropertyVal Name="TextSize">0</PropertyVal> 
     657  <PropertyVal Name="Bold"></PropertyVal> 
     658  <PropertyVal Name="Italic"></PropertyVal> 
     659  <PropertyVal Name="Underline"></PropertyVal> 
     660  <PropertyVal Name="DataSource"></PropertyVal> 
     661  <PropertyVal Name="DataField"></PropertyVal> 
    634662  <PropertyVal Name="InitialParent"></PropertyVal> 
    635   <PropertyVal Name="DataField"></PropertyVal> 
    636   <PropertyVal Name="DataSource"></PropertyVal> 
    637   <PropertyVal Name="Underline"></PropertyVal> 
    638   <PropertyVal Name="Italic"></PropertyVal> 
    639   <PropertyVal Name="Bold"></PropertyVal> 
    640   <PropertyVal Name="TextSize">0</PropertyVal> 
    641   <PropertyVal Name="TextFont">System</PropertyVal> 
    642   <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
    643   <PropertyVal Name="HelpTag"></PropertyVal> 
    644   <PropertyVal Name="Visible">True</PropertyVal> 
    645   <PropertyVal Name="Enabled">True</PropertyVal> 
    646   <PropertyVal Name="Multiline"></PropertyVal> 
    647   <PropertyVal Name="TextColor">0</PropertyVal> 
    648   <PropertyVal Name="TextAlign">2</PropertyVal> 
    649   <PropertyVal Name="Text">Font</PropertyVal> 
    650   <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
    651   <PropertyVal Name="LockBottom">True</PropertyVal> 
    652   <PropertyVal Name="LockRight"></PropertyVal> 
    653   <PropertyVal Name="LockTop"></PropertyVal> 
    654   <PropertyVal Name="LockLeft">True</PropertyVal> 
    655   <PropertyVal Name="Height">20</PropertyVal> 
    656   <PropertyVal Name="Width">74</PropertyVal> 
    657   <PropertyVal Name="Top">470</PropertyVal> 
    658   <PropertyVal Name="Left">326</PropertyVal> 
    659   <PropertyVal Name="ControlOrder">4</PropertyVal> 
    660663  <PropertyVal Name="Super">StaticText</PropertyVal> 
    661   <PropertyVal Name="Index">-2147483648</PropertyVal> 
    662   <PropertyVal Name="Name">StaticText1</PropertyVal> 
    663664  <ControlIndex>2</ControlIndex> 
    664665 </Control> 
    … …  
    666667  <ControlClass>StaticText</ControlClass> 
    667668  <ItemName>StaticText</ItemName> 
     669  <PropertyVal Name="Name">StaticText2</PropertyVal> 
     670  <PropertyVal Name="Index">-2147483648</PropertyVal> 
     671  <PropertyVal Name="ControlOrder">5</PropertyVal> 
     672  <PropertyVal Name="Left">0</PropertyVal> 
     673  <PropertyVal Name="Top">470</PropertyVal> 
     674  <PropertyVal Name="Width">70</PropertyVal> 
     675  <PropertyVal Name="Height">20</PropertyVal> 
     676  <PropertyVal Name="LockLeft">True</PropertyVal> 
     677  <PropertyVal Name="LockTop"></PropertyVal> 
     678  <PropertyVal Name="LockRight"></PropertyVal> 
     679  <PropertyVal Name="LockBottom">True</PropertyVal> 
     680  <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
     681  <PropertyVal Name="Text">Decimals</PropertyVal> 
     682  <PropertyVal Name="TextAlign">2</PropertyVal> 
     683  <PropertyVal Name="TextColor">0</PropertyVal> 
     684  <PropertyVal Name="Multiline"></PropertyVal> 
     685  <PropertyVal Name="Enabled">True</PropertyVal> 
     686  <PropertyVal Name="Visible">True</PropertyVal> 
     687  <PropertyVal Name="HelpTag"></PropertyVal> 
     688  <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
     689  <PropertyVal Name="TextFont">System</PropertyVal> 
     690  <PropertyVal Name="TextSize">0</PropertyVal> 
     691  <PropertyVal Name="Bold"></PropertyVal> 
     692  <PropertyVal Name="Italic"></PropertyVal> 
     693  <PropertyVal Name="Underline"></PropertyVal> 
     694  <PropertyVal Name="DataSource"></PropertyVal> 
     695  <PropertyVal Name="DataField"></PropertyVal> 
    668696  <PropertyVal Name="InitialParent"></PropertyVal> 
    669   <PropertyVal Name="DataField"></PropertyVal> 
    670   <PropertyVal Name="DataSource"></PropertyVal> 
    671   <PropertyVal Name="Underline"></PropertyVal> 
    672   <PropertyVal Name="Italic"></PropertyVal> 
    673   <PropertyVal Name="Bold"></PropertyVal> 
    674   <PropertyVal Name="TextSize">0</PropertyVal> 
    675   <PropertyVal Name="TextFont">System</PropertyVal> 
    676   <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
    677   <PropertyVal Name="HelpTag"></PropertyVal> 
    678   <PropertyVal Name="Visible">True</PropertyVal> 
    679   <PropertyVal Name="Enabled">True</PropertyVal> 
    680   <PropertyVal Name="Multiline"></PropertyVal> 
    681   <PropertyVal Name="TextColor">0</PropertyVal> 
    682   <PropertyVal Name="TextAlign">2</PropertyVal> 
    683   <PropertyVal Name="Text">Decimals</PropertyVal> 
    684   <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
    685   <PropertyVal Name="LockBottom">True</PropertyVal> 
    686   <PropertyVal Name="LockRight"></PropertyVal> 
    687   <PropertyVal Name="LockTop"></PropertyVal> 
    688   <PropertyVal Name="LockLeft">True</PropertyVal> 
    689   <PropertyVal Name="Height">20</PropertyVal> 
    690   <PropertyVal Name="Width">70</PropertyVal> 
    691   <PropertyVal Name="Top">470</PropertyVal> 
    692   <PropertyVal Name="Left">0</PropertyVal> 
    693   <PropertyVal Name="ControlOrder">5</PropertyVal> 
    694697  <PropertyVal Name="Super">StaticText</PropertyVal> 
    695   <PropertyVal Name="Index">-2147483648</PropertyVal> 
    696   <PropertyVal Name="Name">StaticText2</PropertyVal> 
    697698  <ControlIndex>3</ControlIndex> 
    698699 </Control> 
    … …  
    700701  <ControlClass>StaticText</ControlClass> 
    701702  <ItemName>StaticText</ItemName> 
     703  <PropertyVal Name="Name">StaticText3</PropertyVal> 
     704  <PropertyVal Name="Index">-2147483648</PropertyVal> 
     705  <PropertyVal Name="ControlOrder">6</PropertyVal> 
     706  <PropertyVal Name="Left">148</PropertyVal> 
     707  <PropertyVal Name="Top">470</PropertyVal> 
     708  <PropertyVal Name="Width">82</PropertyVal> 
     709  <PropertyVal Name="Height">20</PropertyVal> 
     710  <PropertyVal Name="LockLeft">True</PropertyVal> 
     711  <PropertyVal Name="LockTop"></PropertyVal> 
     712  <PropertyVal Name="LockRight"></PropertyVal> 
     713  <PropertyVal Name="LockBottom">True</PropertyVal> 
     714  <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
     715  <PropertyVal Name="Text">Negative:</PropertyVal> 
     716  <PropertyVal Name="TextAlign">2</PropertyVal> 
     717  <PropertyVal Name="TextColor">0</PropertyVal> 
     718  <PropertyVal Name="Multiline"></PropertyVal> 
     719  <PropertyVal Name="Enabled">True</PropertyVal> 
     720  <PropertyVal Name="Visible">True</PropertyVal> 
     721  <PropertyVal Name="HelpTag"></PropertyVal> 
     722  <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
     723  <PropertyVal Name="TextFont">System</PropertyVal> 
     724  <PropertyVal Name="TextSize">0</PropertyVal> 
     725  <PropertyVal Name="Bold"></PropertyVal> 
     726  <PropertyVal Name="Italic"></PropertyVal> 
     727  <PropertyVal Name="Underline"></PropertyVal> 
     728  <PropertyVal Name="DataSource"></PropertyVal> 
     729  <PropertyVal Name="DataField"></PropertyVal> 
    702730  <PropertyVal Name="InitialParent"></PropertyVal> 
    703   <PropertyVal Name="DataField"></PropertyVal> 
    704   <PropertyVal Name="DataSource"></PropertyVal> 
    705   <PropertyVal Name="Underline"></PropertyVal> 
    706   <PropertyVal Name="Italic"></PropertyVal> 
    707   <PropertyVal Name="Bold"></PropertyVal> 
    708   <PropertyVal Name="TextSize">0</PropertyVal> 
    709   <PropertyVal Name="TextFont">System</PropertyVal> 
    710   <PropertyVal Name="AutoDeactivate">True</PropertyVal> 
    711   <PropertyVal Name="HelpTag"></PropertyVal> 
    712   <PropertyVal Name="Visible">True</PropertyVal> 
    713   <PropertyVal Name="Enabled">True</PropertyVal> 
    714   <PropertyVal Name="Multiline"></PropertyVal> 
    715   <PropertyVal Name="TextColor">0</PropertyVal> 
    716   <PropertyVal Name="TextAlign">2</PropertyVal> 
    717   <PropertyVal Name="Text">Negative:</PropertyVal> 
    718   <PropertyVal Name="TabPanelIndex">0</PropertyVal> 
    719   <PropertyVal Name="LockBottom">True</PropertyVal> 
    720   <PropertyVal Name="LockRight"></PropertyVal> 
    721   <PropertyVal Name="LockTop"></PropertyVal> 
    722   <PropertyVal Name="LockLeft">True</PropertyVal> 
    723   <PropertyVal Name="Height">20</PropertyVal> 
    724   <PropertyVal Name="Width">82</PropertyVal> 
    725   <PropertyVal Name="Top">470</PropertyVal> 
    726   <PropertyVal Name="Left">148</PropertyVal> 
    727   <PropertyVal Name="ControlOrder">6</PropertyVal> 
    728731  <PropertyVal Name="Super">StaticText</PropertyVal> 
    729   <PropertyVal Name="Index">-2147483648</PropertyVal> 
    730   <PropertyVal Name="Name">StaticText3</PropertyVal> 
    731732  <ControlIndex>6</ControlIndex> 
    732733 </Control> 

  • EVA/trunk/RB_ext/winDataMap.xml

    r635 r720  
    124124   <SourceLine></SourceLine> 
    125125   <SourceLine>dim cell as StyleGridCell</SourceLine> 
    126    <SourceLine>dim style, styleNeg as StyleGridStyle</SourceLine> 
     126   <SourceLine>dim style, styleNeg, styleAvg, styleCoords as StyleGridStyle</SourceLine> 
    127127   <SourceLine>dim i, j, x, y, xsize, ysize as integer</SourceLine> 
    128128   <SourceLine></SourceLine> 
    … …  
    147147   <SourceLine>#Endif</SourceLine> 
    148148   <SourceLine>style = new StyleGridStyle( fnt, Val( PopupMenu1.Text ) )</SourceLine> 
     149   <SourceLine>style.BackColor = &amp;cFFFFFF</SourceLine> 
    149150   <SourceLine>styleNeg = new StyleGridStyle( fnt, Val( PopupMenu1.Text ) )</SourceLine> 
    150151   <SourceLine>styleNeg.TextColor = ColorMenu1.getColor</SourceLine> 
     152   <SourceLine>styleAvg = new StyleGridStyle( fnt, Val( PopupMenu1.Text ) )</SourceLine> 
     153   <SourceLine>styleAvg.BackColor = &amp;CCCCCCC</SourceLine> 
     154   <SourceLine>styleCoords = new StyleGridStyle( fnt, Val( PopupMenu1.Text ) )</SourceLine> 
     155   <SourceLine>styleCoords.TextColor = &amp;cFFFFFF</SourceLine> 
     156   <SourceLine>styleCoords.BackColor = &amp;c000000</SourceLine> 
    151157   <SourceLine>style.Mutate</SourceLine> 
    152158   <SourceLine>styleNeg.Mutate</SourceLine> 
     159   <SourceLine>styleAvg.Mutate</SourceLine> 
     160   <SourceLine>styleCoords.Mutate</SourceLine> 
    153161   <SourceLine></SourceLine> 
    154162   <SourceLine>self.Graphics.TextSize = Val( PopupMenu1.Text )</SourceLine> 
    … …  
    185193   <SourceLine>// header</SourceLine> 
    186194   <SourceLine>cell = datagrid.WritableCell( x+2, 1 )</SourceLine> 
    187    <SourceLine>cell.Style = style</SourceLine> 
     195   <SourceLine>cell.Style = styleCoords</SourceLine> 
    188196   <SourceLine>cell.Alignment = 1</SourceLine> 
    189197   <SourceLine>cell.Text = Format( Val( xaxis( x ) ), lblfmt )</SourceLine> 
    190    <SourceLine>cell.Style.BackColor = &amp;cB4B4B4</SourceLine> 
    191198   <SourceLine>// footer</SourceLine> 
    192199   <SourceLine>cell = datagrid.WritableCell( x+2, ysize+2 )</SourceLine> 
    193    <SourceLine>cell.Style = style</SourceLine> 
     200   <SourceLine>cell.Style = styleCoords</SourceLine> 
    194201   <SourceLine>cell.Alignment = 1</SourceLine> 
    195202   <SourceLine>cell.Text = Format( Val( xaxis( x ) ), lblfmt )</SourceLine> 
    196    <SourceLine>cell.Style.BackColor = &amp;cB4B4B4</SourceLine> 
    197203   <SourceLine>next</SourceLine> 
    198204   <SourceLine>for y = 0 to ysize-1</SourceLine> 
    199205   <SourceLine>// left</SourceLine> 
    200206   <SourceLine>cell = datagrid.WritableCell( 1, y+2 )</SourceLine> 
    201    <SourceLine>cell.Style = style</SourceLine> 
     207   <SourceLine>cell.Style = styleCoords</SourceLine> 
    202208   <SourceLine>cell.Alignment = 1</SourceLine> 
    203209   <SourceLine>cell.Text = Format( Val( yaxis( y ) ), lblfmt )</SourceLine> 
    204    <SourceLine>cell.Style.BackColor = &amp;cB4B4B4</SourceLine> 
    205210   <SourceLine>// right</SourceLine> 
    206211   <SourceLine>cell = datagrid.WritableCell( xsize+2, y+2 )</SourceLine> 
    207    <SourceLine>cell.Style = style</SourceLine> 
     212   <SourceLine>cell.Style = styleCoords</SourceLine> 
    208213   <SourceLine>cell.Alignment = -1</SourceLine> 
    209214   <SourceLine>cell.Text = Format( Val( yaxis( y ) ), lblfmt )</SourceLine> 
    210    <SourceLine>cell.Style.BackColor = &amp;cB4B4B4</SourceLine> 
    211215   <SourceLine>next</SourceLine> 
    212216   <SourceLine></SourceLine> 
    … …  
    222226   <SourceLine>next</SourceLine> 
    223227   <SourceLine>cell = datagrid.WritableCell( 1, y+2 )</SourceLine> 
    224    <SourceLine>cell.Style = style</SourceLine> 
     228   <SourceLine>cell.Style = styleAvg</SourceLine> 
    225229   <SourceLine>cell.Alignment = -1</SourceLine> 
    226    <SourceLine>cell.Style.BackColor = &amp;cC1FFFF</SourceLine> 
    227230   <SourceLine>cell.Text = Format( avg, fmt )</SourceLine> 
    228231   <SourceLine>next</SourceLine> 
    … …  
    231234   <SourceLine>cell.Style = style</SourceLine> 
    232235   <SourceLine>cell.Alignment = 1</SourceLine> 
    233    <SourceLine>cell.Style.BackColor = &amp;cB4B4B4</SourceLine> 
    234236   <SourceLine>Cell.Text = app.lang.Child("DataWindow").GetString("Avg.")</SourceLine> 
    235237   <SourceLine>cell = datagrid.WritableCell( 1, ysize+2 )</SourceLine> 
    236238   <SourceLine>cell.Style = style</SourceLine> 
    237239   <SourceLine>cell.Alignment = 1</SourceLine> 
    238    <SourceLine>cell.Style.BackColor = &amp;cB4B4B4</SourceLine> 
    239240   <SourceLine>Cell.Text = app.lang.Child("DataWindow").GetString("Avg.")</SourceLine> 
    240241   <SourceLine>datagrid.Column(1).Width = datagrid.column(1).width*2</SourceLine> 
    … …  
    255256   <SourceLine>cell.Style = style</SourceLine> 
    256257   <SourceLine>cell.Alignment = 0</SourceLine> 
    257    <SourceLine>cell.Style.BackColor = &amp;cb4b4b4</SourceLine> 
    258258   <SourceLine>cell.Text = " " +strs(y-ysize-3)</SourceLine> 
    259259   <SourceLine>next</SourceLine> 
    … …  
    276276   <SourceLine>for y = ysize+3 to ysize+3+ubound(diags)</SourceLine> 
    277277   <SourceLine>cell = datagrid.WritableCell(1,y)</SourceLine> 
    278    <SourceLine>cell.Style = style</SourceLine> 
     278   <SourceLine>cell.Style = styleAvg</SourceLine> 
    279279   <SourceLine>cell.Alignment = -1</SourceLine> 
    280    <SourceLine>cell.Style.BackColor = &amp;cC1FFFF</SourceLine> 
    281280   <SourceLine>if diags2(y-ysize-3) &lt;&gt; -1.0e30 then</SourceLine> 
    282281   <SourceLine>cell.Text = Format( diags2( y-ysize-3 ), fmt )</SourceLine> 
    … …  
    286285   <SourceLine>next</SourceLine> 
    287286   <SourceLine>cell = datagrid.WritableCell( 1, y )</SourceLine> 
    288    <SourceLine>cell.Style = style</SourceLine> 
     287   <SourceLine>cell.Style = styleAvg</SourceLine> 
    289288   <SourceLine>cell.Alignment = -1</SourceLine> 
    290    <SourceLine>cell.Style.BackColor = &amp;cC1FFFF</SourceLine> 
    291289   <SourceLine>cell.Text = units</SourceLine> 
    292    <SourceLine>'end</SourceLine> 
    293290   <SourceLine></SourceLine>