/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 |