/programy/delphi/radar/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/radar/Unit1.dfm |
---|
0,0 → 1,51 |
object Form1: TForm1 |
Left = 186 |
Top = 145 |
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 = 118 |
Top = 8 |
Width = 256 |
Height = 256 |
end |
object Button1: TButton |
Left = 256 |
Top = 288 |
Width = 153 |
Height = 41 |
Caption = 'nakresli' |
TabOrder = 0 |
OnClick = Button1Click |
end |
object Button2: TButton |
Left = 32 |
Top = 280 |
Width = 153 |
Height = 33 |
Caption = 'Button2' |
TabOrder = 1 |
OnClick = Button2Click |
end |
object ScrollBar1: TScrollBar |
Left = 376 |
Top = 8 |
Width = 17 |
Height = 256 |
Kind = sbVertical |
Max = 256 |
PageSize = 0 |
TabOrder = 2 |
OnChange = ScrollBar1Change |
end |
end |
/programy/delphi/radar/Unit1.pas |
---|
0,0 → 1,62 |
unit Unit1; |
interface |
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, StdCtrls, ExtCtrls, ToolWin, ComCtrls; |
type |
TForm1 = class(TForm) |
PaintBox1: TPaintBox; |
Button1: TButton; |
Button2: TButton; |
ScrollBar1: TScrollBar; |
procedure Button1Click(Sender: TObject); |
procedure Button2Click(Sender: TObject); |
procedure ScrollBar1Change(Sender: TObject); |
private |
{ Private declarations } |
public |
{ Public declarations } |
end; |
var |
Form1: TForm1; |
implementation |
{$R *.dfm} |
procedure TForm1.Button1Click(Sender: TObject); |
begin |
with PaintBox1 do begin |
Canvas.Brush.Color := clRed; |
Canvas.Brush.Style := bsDiagCross; |
Canvas.Ellipse(0, 0, PaintBox1.Width, PaintBox1.Height); |
end; |
end; |
procedure TForm1.Button2Click(Sender: TObject); |
var Y: Integer; |
begin |
{ first call FillRect to paint the surface of the form. |
this removes any previously drawn lines (and anything else!) |
PaintBox1.Canvas.FillRect(ClientRect);} |
PaintBox1.Canvas.MoveTo(0, 0); |
PaintBox1.Canvas.LineTo(PaintBox1.Width,PaintBox1.Height); |
end; |
procedure TForm1.ScrollBar1Change(Sender: TObject); |
begin |
PaintBox1.Canvas.MoveTo(0,ScrollBar1.Position); |
PaintBox1.Canvas.LineTo(256,ScrollBar1.Position); |
end; |
end. |
/programy/delphi/radar/Unit1.~dfm |
---|
0,0 → 1,40 |
object Form1: TForm1 |
Left = 186 |
Top = 145 |
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 = 118 |
Top = 8 |
Width = 256 |
Height = 256 |
end |
object Button1: TButton |
Left = 256 |
Top = 288 |
Width = 153 |
Height = 41 |
Caption = 'nakresli' |
TabOrder = 0 |
OnClick = Button1Click |
end |
object Button2: TButton |
Left = 32 |
Top = 280 |
Width = 153 |
Height = 33 |
Caption = 'Button2' |
TabOrder = 1 |
OnClick = Button2Click |
end |
end |
/programy/delphi/radar/Unit1.~pas |
---|
0,0 → 1,53 |
unit Unit1; |
interface |
uses |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, StdCtrls, ExtCtrls, ToolWin, ComCtrls; |
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; |
implementation |
{$R *.dfm} |
procedure TForm1.Button1Click(Sender: TObject); |
begin |
with PaintBox1 do begin |
Canvas.Brush.Color := clRed; |
Canvas.Brush.Style := bsDiagCross; |
Canvas.Ellipse(0, 0, PaintBox1.Width, PaintBox1.Height); |
end; |
end; |
procedure TForm1.Button2Click(Sender: TObject); |
var Y: Integer; |
begin |
{ first call FillRect to paint the surface of the form. |
this removes any previously drawn lines (and anything else!) } |
PaintBox1.Canvas.FillRect(ClientRect); |
PaintBox1.Canvas.MoveTo(0, 0); |
PaintBox1.Canvas.LineTo(PaintBox1.Width,PaintBox1.Height); |
end; |
end. |
/programy/delphi/radar/radar.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/radar/radar.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/radar/radar.dpr |
---|
0,0 → 1,13 |
program radar; |
uses |
Forms, |
Unit1 in 'Unit1.pas' {Form1}; |
{$R *.res} |
begin |
Application.Initialize; |
Application.CreateForm(TForm1, Form1); |
Application.Run; |
end. |
/programy/delphi/radar/radar.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/radar/radar.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/radar/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 |