| /programy/delphi/pokus1/Unit1.dcu |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |
| /programy/delphi/pokus1/Unit1.dfm |
|---|
| 0,0 → 1,33 |
| object Teplomer: TTeplomer |
| Left = 192 |
| Top = 107 |
| Width = 544 |
| Height = 375 |
| Caption = 'Teplomer' |
| Color = clBtnFace |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -11 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| OldCreateOrder = False |
| PixelsPerInch = 96 |
| TextHeight = 13 |
| object PaintBox1: TPaintBox |
| Left = 32 |
| Top = 16 |
| Width = 473 |
| Height = 256 |
| Color = clMenu |
| ParentColor = False |
| end |
| object Button1: TButton |
| Left = 416 |
| Top = 296 |
| Width = 75 |
| Height = 25 |
| Caption = 'Zobrazit' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| end |
| /programy/delphi/pokus1/Unit1.pas |
|---|
| 0,0 → 1,53 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, ExtCtrls, StdCtrls; |
| type |
| PoleTeplot = array [1..544] of byte; |
| type |
| TTeplomer = class(TForm) |
| PaintBox1: TPaintBox; |
| Button1: TButton; |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Teplomer: TTeplomer; |
| Teplota: PoleTeplot; |
| const |
| sirka = 473; |
| vyska = 256; |
| implementation |
| {$R *.dfm} |
| procedure TTeplomer.Button1Click(Sender: TObject); |
| var |
| i: byte; |
| n: integer; |
| begin |
| i:=0; |
| for n:=1 to sirka do |
| begin |
| Teplota[n] := i; |
| i:=i+1; |
| end; |
| PaintBox1.Canvas.brush.color := clWhite; |
| PaintBox1.Canvas.Rectangle(0,0,sirka,vyska); |
| for n:=1 to sirka do |
| PaintBox1.Canvas.Pixels[n,Teplota[n]] := clBlack; |
| end; |
| end. |
| /programy/delphi/pokus1/Unit1.~dfm |
|---|
| 0,0 → 1,33 |
| object Teplomer: TTeplomer |
| Left = 192 |
| Top = 107 |
| Width = 544 |
| Height = 375 |
| Caption = 'Teplomer' |
| Color = clBtnFace |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -11 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| OldCreateOrder = False |
| PixelsPerInch = 96 |
| TextHeight = 13 |
| object PaintBox1: TPaintBox |
| Left = 32 |
| Top = 16 |
| Width = 473 |
| Height = 256 |
| Color = clMenu |
| ParentColor = False |
| end |
| object Button1: TButton |
| Left = 416 |
| Top = 296 |
| Width = 75 |
| Height = 25 |
| Caption = 'Zobrazit' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| end |
| /programy/delphi/pokus1/Unit1.~pas |
|---|
| 0,0 → 1,53 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, ExtCtrls, StdCtrls; |
| type |
| PoleTeplot = array [1..544] of byte; |
| type |
| TTeplomer = class(TForm) |
| PaintBox1: TPaintBox; |
| Button1: TButton; |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Teplomer: TTeplomer; |
| Teplota: PoleTeplot; |
| const |
| sirka = 473; |
| vyska = 256; |
| implementation |
| {$R *.dfm} |
| procedure TTeplomer.Button1Click(Sender: TObject); |
| var |
| i: byte; |
| n: integer; |
| begin |
| i:=0; |
| for n:=1 to sirka do |
| begin |
| Teplota[n] := i; |
| i:=i+1; |
| end; |
| PaintBox1.Canvas.brush.color := clGreen; |
| PaintBox1.Canvas.Rectangle(0,0,sirka,vyska); |
| for n:=1 to sirka do |
| PaintBox1.Canvas.Pixels[n,Teplota[n]] := clBlack; |
| end; |
| end. |
| /programy/delphi/pokus1/vssver.scc |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |