Changeset 92
- Timestamp:
- Jan 19, 2017, 10:07:16 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Diagram.pas
r38 r92 59 59 i, x, r, nComp, nPow, nHab: integer; 60 60 begin 61 with canvas do 62 begin 63 Brush.Color := $000000; 64 FillRect(Rect(Left, Top, Left + Width, Top + 200)); 65 Brush.Style := bsClear; 61 Canvas.Brush.Color := $000000; 62 Canvas.FillRect(Rect(Left, Top, Left + Width, Top + 200)); 63 Canvas.Brush.Style := bsClear; 66 64 ScreenTools.Frame(canvas, Left - 1, Top - 1, Left + Width, Top + 200, 67 65 MainTexture.clBevelShade, MainTexture.clBevelLight); … … 75 73 x := Random((Width - 16) * 200); 76 74 r := Random(13) + 28; 77 Pixels[x div 200 + 8, x mod 200 + Top] :=75 Canvas.Pixels[x div 200 + 8, x mod 200 + Top] := 78 76 (r * r * r * r div 10001) * $10101; 79 77 end; … … 125 123 Sprite(canvas, HGrSystem2, Left + Width div 2 + xComp[4], 126 124 Top + 100 + 7 + yComp[4], 16, 27, 18, 82); 127 end128 125 end; 129 126
Note:
See TracChangeset
for help on using the changeset viewer.