Changeset 752 for GCM

Show
Ignore:
Timestamp:
06/24/07 00:22:11 (15 months ago)
Author:
mankoff
Message:

Improved progress icon

  • Graphic a bit smaller so that RB resizing it doesn't make it look as bad
  • Changed colors
  • Added black circle
  • Don't show graphic on first month
  • Update more frequently (when window opens, resizes, etc.)
  • Match Windows window color
  • See: #673
Location:
GCM/lunar
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • GCM/lunar/progress.xml

    r751 r752  
    1313  <ItemSource> 
    1414   <TextEncoding>134217984</TextEncoding> 
    15    <SourceLine>Sub Constructor(base as color = &amp;c666666, inner as color = &amp;c00FF00, outer as color = &amp;c0000FF)</SourceLine> 
    16    <SourceLine></SourceLine> 
    17    <SourceLine>me.progressPic = new picture( 128, 128, 32 )</SourceLine> 
     15   <SourceLine>Sub Constructor(base as color = &amp;c666666, inner as color = &amp;c66FF66, outer as color = &amp;c99FFFF)</SourceLine> 
     16   <SourceLine></SourceLine> 
     17   <SourceLine>me.progressPic = new picture( 64, 64, 32 )</SourceLine> 
    1818   <SourceLine>me.setColors( base, inner, outer )</SourceLine> 
    1919   <SourceLine>me.setProgress( 0, 0 )</SourceLine> 
    … …  
    2525  <ItemFlags>0</ItemFlags> 
    2626  <IsShared>0</IsShared> 
    27   <ItemParams>base as color = &amp;c666666, inner as color = &amp;c00FF00, outer as color = &amp;c0000FF</ItemParams> 
     27  <ItemParams>base as color = &amp;c666666, inner as color = &amp;c66FF66, outer as color = &amp;c99FFFF</ItemParams> 
    2828  <ItemResult></ItemResult> 
    2929 </Method> 
    … …  
    6363   <SourceLine>' draw anything extra</SourceLine> 
    6464   <SourceLine></SourceLine> 
    65    <SourceLine>if inner &lt; 0 or inner &gt; 100 or outer &lt; 0 or outer &gt; 100 then </SourceLine> 
     65   <SourceLine>if inner &lt; 0 or inner &gt; 100 or outer &lt; 0 or outer &gt; 100 then</SourceLine> 
    6666   <SourceLine>If DebugBuild then msgBox "Progress percents out of range"</SourceLine> 
    6767   <SourceLine>return</SourceLine> 
    … …  
    7878   <SourceLine>dim arc as ArcShape</SourceLine> 
    7979   <SourceLine>dim radius as double = ProgressPic.width/2.0</SourceLine> 
     80   <SourceLine></SourceLine> 
     81   <SourceLine>If TargetWin32 then</SourceLine> 
     82   <SourceLine>g.foreColor = &amp;cd4d0c8</SourceLine> 
     83   <SourceLine>g.FillRect 0,0,g.width,g.height</SourceLine> 
     84   <SourceLine>end</SourceLine> 
    8085   <SourceLine></SourceLine> 
    8186   <SourceLine>group = new Group2D</SourceLine> 
    … …  
    129134   <SourceLine>circle.fill = 0</SourceLine> 
    130135   <SourceLine>circle.FillColor = me.base_color</SourceLine> 
    131    <SourceLine>circle.BorderColor = me.base_color</SourceLine> 
     136   <SourceLine>circle.BorderColor =&amp;c000000</SourceLine> 
    132137   <SourceLine>circle.BorderWidth = 2</SourceLine> 
    133138   <SourceLine>circle.Border = 100</SourceLine> 
    … …  
    151156   <SourceLine></SourceLine> 
    152157   <SourceLine>' mask</SourceLine> 
     158   <SourceLine>If TargetMacOS then</SourceLine> 
    153159   <SourceLine>dim mask as picture = NewPicture( progressPic.width, progressPic.height, progressPic.Depth )</SourceLine> 
    154160   <SourceLine>circle = new OvalShape</SourceLine> 
    … …  
    163169   <SourceLine>dim cp as CGImageMBS = CGCreateImageMBS( progressPic, mask )</SourceLine> 
    164170   <SourceLine>dummy = app.SetApplicationDockTileImageMBS(cp)</SourceLine> 
    165    <SourceLine></SourceLine> 
    166    <SourceLine></SourceLine> 
     171   <SourceLine>end</SourceLine> 
    167172   <SourceLine>End Sub</SourceLine> 
    168173  </ItemSource> 
    … …  
    194199  <ItemParams>inner as double, outer as double</ItemParams> 
    195200  <ItemResult>Picture</ItemResult> 
     201 </Method> 
     202 <Method> 
     203  <ItemName>getProgress</ItemName> 
     204  <Compatibility></Compatibility> 
     205  <Visible>1</Visible> 
     206  <ItemSource> 
     207   <TextEncoding>134217984</TextEncoding> 
     208   <SourceLine>Function getProgress() As picture</SourceLine> 
     209   <SourceLine></SourceLine> 
     210   <SourceLine>return progressPic</SourceLine> 
     211   <SourceLine>End Function</SourceLine> 
     212  </ItemSource> 
     213  <TextEncoding>134217984</TextEncoding> 
     214  <AliasName></AliasName> 
     215  <ItemFlags>0</ItemFlags> 
     216  <IsShared>0</IsShared> 
     217  <ItemParams></ItemParams> 
     218  <ItemResult>picture</ItemResult> 
    196219 </Method> 
    197220 <Note>