/programy/delphi/teplomer/teplomer1/Project2.cfg |
---|
0,0 → 1,35 |
-$A8 |
-$B- |
-$C+ |
-$D+ |
-$E- |
-$F- |
-$G+ |
-$H+ |
-$I+ |
-$J- |
-$K- |
-$L+ |
-$M- |
-$N+ |
-$O+ |
-$P+ |
-$Q- |
-$R- |
-$S- |
-$T- |
-$U- |
-$V+ |
-$W- |
-$X+ |
-$YD |
-$Z1 |
-cg |
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
-H+ |
-W+ |
-M |
-$M16384,1048576 |
-K$00400000 |
-LE"c:\program files\borland\delphi6\Projects\Bpl" |
-LN"c:\program files\borland\delphi6\Projects\Bpl" |
/programy/delphi/teplomer/teplomer1/Project2.dof |
---|
0,0 → 1,89 |
[FileVersion] |
Version=6.0 |
[Compiler] |
A=8 |
B=0 |
C=1 |
D=1 |
E=0 |
F=0 |
G=1 |
H=1 |
I=1 |
J=0 |
K=0 |
L=1 |
M=0 |
N=1 |
O=1 |
P=1 |
Q=0 |
R=0 |
S=0 |
T=0 |
U=0 |
V=1 |
W=0 |
X=1 |
Y=1 |
Z=1 |
ShowHints=1 |
ShowWarnings=1 |
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
[Linker] |
MapFile=0 |
OutputObjs=0 |
ConsoleApp=1 |
DebugInfo=0 |
RemoteSymbols=0 |
MinStackSize=16384 |
MaxStackSize=1048576 |
ImageBase=4194304 |
ExeDescription= |
[Directories] |
OutputDir= |
UnitOutputDir= |
PackageDLLOutputDir= |
PackageDCPOutputDir= |
SearchPath= |
Packages= |
Conditionals= |
DebugSourceDirs= |
UsePackages=0 |
[Parameters] |
RunParams= |
HostApplication= |
Launcher= |
UseLauncher=0 |
DebugCWD= |
[Version Info] |
IncludeVerInfo=0 |
AutoIncBuild=0 |
MajorVer=1 |
MinorVer=0 |
Release=0 |
Build=0 |
Debug=0 |
PreRelease=0 |
Special=0 |
Private=0 |
DLL=0 |
Locale=1029 |
CodePage=1250 |
[Version Info Keys] |
CompanyName= |
FileDescription= |
FileVersion=1.0.0.0 |
InternalName= |
LegalCopyright= |
LegalTrademarks= |
OriginalFilename= |
ProductName= |
ProductVersion=1.0.0.0 |
Comments= |
/programy/delphi/teplomer/teplomer1/Project2.dpr |
---|
0,0 → 1,11 |
program Project2; |
uses |
Forms; |
{$R *.res} |
begin |
Application.Initialize; |
Application.Run; |
end. |
/programy/delphi/teplomer/teplomer1/Project2.exe |
---|
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/teplomer/teplomer1/Project2.res |
---|
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/teplomer/teplomer1/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/teplomer/teplomer1/Unit1.dfm |
---|
0,0 → 1,16 |
object Form1: TForm1 |
Left = 192 |
Top = 107 |
Width = 544 |
Height = 375 |
Caption = 'Form1' |
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 |
end |
/programy/delphi/teplomer/teplomer1/Unit1.pas |
---|
0,0 → 1,25 |
unit Unit1; |
interface |
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs; |
type |
TForm1 = class(TForm) |
private |
{ Private declarations } |
public |
{ Public declarations } |
end; |
var |
Form1: TForm1; |
implementation |
{$R *.dfm} |
end. |
/programy/delphi/teplomer/teplomer1/Unit1.~dfm |
---|
0,0 → 1,42 |
object Form1: TForm1 |
Left = 192 |
Top = 107 |
Width = 544 |
Height = 375 |
Caption = 'Form1' |
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 |
object Button2: TButton |
Left = 320 |
Top = 296 |
Width = 75 |
Height = 25 |
Caption = 'Button2' |
TabOrder = 1 |
OnClick = Button2Click |
end |
end |
/programy/delphi/teplomer/teplomer1/Unit1.~pas |
---|
0,0 → 1,59 |
unit Unit1; |
interface |
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, ExtCtrls, StdCtrls,PORTINC, ComCtrls; |
type |
PoleTeplot = array [1..544] of byte; |
type |
TForm1 = class(TForm) |
PaintBox1: TPaintBox; |
Button1: TButton; |
Button2: TButton; |
procedure Button1Click(Sender: TObject); |
procedure Button2Click(Sender: TObject); |
private |
{ Private declarations } |
public |
{ Public declarations } |
end; |
var |
Form1: TForm1; |
Teplota: PoleTeplot; |
SouborTeplot: File of byte; |
implementation |
{$R *.dfm} |
procedure TForm1.Button1Click(Sender: TObject); |
var |
i: byte; |
n: integer; |
begin |
i:=0; |
for n:=1 to 544 do |
begin |
Teplota[n] := i; |
i:=(i+1) mod 256; |
end; |
end; |
procedure TForm1.Button2Click(Sender: TObject); |
var |
o: byte |
p: byte |
begin |
{ Function OPENCOM "COM1,1200,N,8,1" |
for o:=1 to 50 do |
begin |
ProgressBar1:= p |
p:=(p+1) |
end; } |
end; |
end. |
/programy/delphi/teplomer/teplomer1/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 |