| /programy/delphi/osciloskop/OBRAZOVKA.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/osciloskop/OBRAZOVKA.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/osciloskop/OBRAZOVKA.dpr |
|---|
| 0,0 → 1,15 |
| program OBRAZOVKA; |
| uses |
| Forms, |
| Unit1 in 'Unit1.pas' {Form1}, |
| Unit2 in 'Unit2.pas' {Form2}; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.CreateForm(TForm2, Form2); |
| Application.Run; |
| end. |
| /programy/delphi/osciloskop/OBRAZOVKA.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/osciloskop/OBRAZOVKA.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/osciloskop/OBRAZOVKA.~dpr |
|---|
| 0,0 → 1,17 |
| program OBRAZOVKA; |
| uses |
| Forms, |
| Unit1 in 'Unit1.pas' {Form1}, |
| Unit2 in 'Unit2.pas' {Form2}, |
| ble in 'ble.pas' {Form3}; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.CreateForm(TForm2, Form2); |
| Application.CreateForm(TForm3, Form3); |
| Application.Run; |
| end. |
| /programy/delphi/osciloskop/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/osciloskop/Unit1.dfm |
|---|
| 0,0 → 1,118 |
| object Form1: TForm1 |
| Left = 181 |
| Top = 138 |
| Width = 557 |
| Height = 387 |
| 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 Obrazovka: TPaintBox |
| Left = 64 |
| Top = 8 |
| Width = 455 |
| Height = 256 |
| Color = clBtnFace |
| ParentColor = False |
| OnPaint = obrazovkaShow |
| end |
| object vykreslit: TButton |
| Left = 88 |
| Top = 304 |
| Width = 65 |
| Height = 33 |
| Caption = 'vykreslit' |
| TabOrder = 0 |
| OnClick = vykreslitClick |
| end |
| object Button2: TButton |
| Left = 8 |
| Top = 16 |
| Width = 49 |
| Height = 25 |
| Caption = 's'#237't'#711 |
| TabOrder = 1 |
| OnClick = Button2Click |
| end |
| object reset: TButton |
| Left = 8 |
| Top = 296 |
| Width = 57 |
| Height = 41 |
| Caption = 'Reset' |
| TabOrder = 2 |
| OnClick = resetClick |
| end |
| object vypis: TButton |
| Left = 8 |
| Top = 48 |
| Width = 49 |
| Height = 25 |
| Caption = 'v'#253'pis' |
| TabOrder = 3 |
| OnClick = vypisClick |
| end |
| object Posuv: TScrollBar |
| Left = 168 |
| Top = 312 |
| Width = 201 |
| Height = 16 |
| Max = 637 |
| PageSize = 0 |
| TabOrder = 4 |
| OnChange = PosuvChange |
| end |
| object ScrollBar2: TScrollBar |
| Left = 64 |
| Top = 272 |
| Width = 455 |
| Height = 17 |
| Max = 455 |
| PageSize = 0 |
| TabOrder = 5 |
| OnChange = ScrollBar2Change |
| end |
| object ScrollBar3: TScrollBar |
| Left = 528 |
| Top = 8 |
| Width = 17 |
| Height = 256 |
| Kind = sbVertical |
| Max = 256 |
| PageSize = 0 |
| TabOrder = 6 |
| OnChange = ScrollBar3Change |
| end |
| object zoom: TScrollBar |
| Left = 416 |
| Top = 304 |
| Width = 121 |
| Height = 17 |
| Max = 6 |
| Min = 1 |
| PageSize = 0 |
| Position = 1 |
| TabOrder = 7 |
| OnChange = zoomChange |
| end |
| object StaticText1: TStaticText |
| Left = 464 |
| Top = 328 |
| Width = 39 |
| Height = 20 |
| Caption = 'Zoom' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -13 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| TabOrder = 8 |
| end |
| end |
| /programy/delphi/osciloskop/Unit1.pas |
|---|
| 0,0 → 1,213 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, ExtCtrls, OleCtrls, VCFI, Menus; |
| type |
| TForm1 = class(TForm) |
| vykreslit: TButton; |
| Button2: TButton; |
| reset: TButton; |
| vypis: TButton; |
| Obrazovka: TPaintBox; |
| Posuv: TScrollBar; |
| ScrollBar2: TScrollBar; |
| ScrollBar3: TScrollBar; |
| zoom: TScrollBar; |
| StaticText1: TStaticText; |
| procedure vykreslitClick(Sender: TObject); |
| procedure obrazovkaShow(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| procedure resetClick(Sender: TObject); |
| procedure vypisClick(Sender: TObject); |
| procedure ScrollBar2Change(Sender: TObject); |
| procedure ScrollBar3Change(Sender: TObject); |
| procedure zoomChange(Sender: TObject); |
| procedure PosuvChange(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| procedure smazat; |
| { Public declarations } |
| end; |
| const |
| MAX=455; |
| pametMAX=6*MAX; |
| var |
| Form1: TForm1; |
| PobrazovkaYMIN: array [0..MAX] of word; |
| PobrazovkaYMAX: array [0..MAX] of word; |
| pamet: array[0..pametMAX{,0..pametMAX}]of word; |
| implementation |
| uses Unit2; |
| {$R *.dfm} |
| procedure Tform1.smazat; |
| begin |
| Form1.Canvas.Pen.Mode:=pmNop; |
| Form1.Obrazovka.Canvas.Brush.Color:=clblack; |
| Form1.Obrazovka.Canvas.Rectangle(0,0,455,256); |
| Form1.Obrazovka.Canvas.Pen.Color:=cllime; |
| end; |
| procedure Draw; |
| var |
| x: word; |
| begin |
| Form1.Obrazovka.Canvas.MoveTo(0,PobrazovkaYMAX[0]); |
| for x:=1 to MAX do |
| begin |
| Form1.Obrazovka.Canvas.LineTo(x,PobrazovkaYMAX[x]); |
| Form1.Obrazovka.Canvas.LineTo(x,PobrazovkaYMIN[x]); |
| end |
| end; |
| procedure TForm1.vykreslitClick(Sender: TObject); |
| (* ble:extended;*) |
| var i,x: integer; |
| begin |
| smazat; |
| for x:=0 to pametMAX do |
| begin |
| pamet[x]:=random(200); //round((sin(x/1)*100)+100); |
| end; |
| PosuvChange(Self); |
| end; |
| procedure TForm1.obrazovkaShow(Sender: TObject); |
| begin |
| smazat; |
| end; |
| procedure TForm1.Button2Click(Sender: TObject); |
| var n: integer; |
| begin |
| n:=0; |
| while n<256 do |
| begin |
| Obrazovka.Canvas.Pen.Color:=clYellow; |
| Obrazovka.Canvas.MoveTo(0,n); |
| Obrazovka.Canvas.LineTo(455,n); |
| n:=n+70; |
| end; |
| n:=0; |
| while n<455 do |
| begin |
| Obrazovka.Canvas.Pen.Color:=clSilver; |
| Obrazovka.Canvas.MoveTo(n,0); |
| Obrazovka.Canvas.LineTo(n,455); |
| n:=n+70; |
| end; |
| Obrazovka.Canvas.Pen.Color:=cllime |
| end; |
| procedure TForm1.resetClick(Sender: TObject); |
| var j:word; |
| begin |
| smazat; |
| for j:=0 to MAX do |
| PobrazovkaYMIN[j]:=0; |
| PobrazovkaYMAX[j]:=0; |
| for j:=0 to pametMAX do |
| pamet[j]:=0; |
| end; |
| procedure TForm1.vypisClick(Sender: TObject); |
| var faut:TextFile; |
| x:word; |
| ble: string; |
| begin |
| Form2.ShowModal; |
| if Form2.Edit1.Text<>'' then |
| begin |
| AssignFile(faut,Form2.Edit1.Text); |
| Rewrite(faut); |
| for x:=0 to 455 do |
| begin |
| str(x,ble); |
| Write(faut,'x='+ble+','); |
| str(PobrazovkaYMIN[x],ble); |
| Write(faut,'Ymin='+ble+','); |
| str(PobrazovkaYMAX[x],ble); |
| Writeln(faut,'Ymax='+ble+'; '); |
| end; |
| CloseFile(faut); |
| end |
| end; |
| procedure TForm1.ScrollBar2Change(Sender: TObject); |
| var |
| xold:word; |
| zoom: integer; |
| code: integer; |
| begin |
| xold:=ScrollBar2.Position; |
| Obrazovka.Canvas.Pen.Color:=clred; |
| Obrazovka.Canvas.Pen.Mode:=pmNotXor; |
| Form1.Obrazovka.Canvas.MoveTo(xold,Obrazovka.Height); |
| Form1.Obrazovka.Canvas.LineTo(xold,0); |
| end; |
| procedure TForm1.ScrollBar3Change(Sender: TObject); |
| var |
| x,y:word; |
| begin |
| obrazovka.Canvas.Pen.Color:=clred; |
| obrazovka.Canvas.Pen.Mode:=pmNotXor; |
| Form1.obrazovka.Canvas.MoveTo(0,ScrollBar3.Position); |
| Form1.obrazovka.Canvas.LineTo(obrazovka.Width,ScrollBar3.Position); |
| obrazovka.Canvas.Pen.Mode:=pmNop; |
| end; |
| procedure TForm1.zoomChange(Sender: TObject); |
| var |
| zoom, Xpamet, Xobraz, i, Ymax, Ymin : word; |
| begin |
| zoom:=Form1.zoom.Position; |
| Xpamet:=Posuv.Position; |
| Xobraz:=0; |
| while Xpamet < pametMAX do |
| begin |
| Ymax:=pamet[Xpamet]; |
| Ymin:=pamet[Xpamet]; |
| for i:=Xpamet to Xpamet+(zoom-1) do |
| begin |
| if pamet[Xpamet]<Ymin then Ymin:=pamet[Xpamet] |
| else if pamet[Xpamet]>Ymax then Ymax:=pamet[Xpamet] |
| end; |
| end; |
| smazat; |
| Draw; |
| end; |
| procedure TForm1.PosuvChange(Sender: TObject); |
| begin |
| Posuv.Max:=pametMAX-MAX; |
| zoomChange(Self); |
| end; |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| smazat; |
| end; |
| end. |
| /programy/delphi/osciloskop/Unit1.~dfm |
|---|
| 0,0 → 1,118 |
| object Form1: TForm1 |
| Left = 181 |
| Top = 138 |
| Width = 557 |
| Height = 387 |
| 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 Obrazovka: TPaintBox |
| Left = 64 |
| Top = 8 |
| Width = 455 |
| Height = 256 |
| Color = clBtnFace |
| ParentColor = False |
| OnPaint = obrazovkaShow |
| end |
| object vykreslit: TButton |
| Left = 88 |
| Top = 304 |
| Width = 65 |
| Height = 33 |
| Caption = 'vykreslit' |
| TabOrder = 0 |
| OnClick = vykreslitClick |
| end |
| object Button2: TButton |
| Left = 8 |
| Top = 16 |
| Width = 49 |
| Height = 25 |
| Caption = 's'#237't'#711 |
| TabOrder = 1 |
| OnClick = Button2Click |
| end |
| object reset: TButton |
| Left = 8 |
| Top = 296 |
| Width = 57 |
| Height = 41 |
| Caption = 'Reset' |
| TabOrder = 2 |
| OnClick = resetClick |
| end |
| object vypis: TButton |
| Left = 8 |
| Top = 48 |
| Width = 49 |
| Height = 25 |
| Caption = 'v'#253'pis' |
| TabOrder = 3 |
| OnClick = vypisClick |
| end |
| object Posuv: TScrollBar |
| Left = 168 |
| Top = 312 |
| Width = 201 |
| Height = 16 |
| Max = 637 |
| PageSize = 0 |
| TabOrder = 4 |
| OnChange = PosuvChange |
| end |
| object ScrollBar2: TScrollBar |
| Left = 64 |
| Top = 272 |
| Width = 455 |
| Height = 17 |
| Max = 455 |
| PageSize = 0 |
| TabOrder = 5 |
| OnChange = ScrollBar2Change |
| end |
| object ScrollBar3: TScrollBar |
| Left = 528 |
| Top = 8 |
| Width = 17 |
| Height = 256 |
| Kind = sbVertical |
| Max = 256 |
| PageSize = 0 |
| TabOrder = 6 |
| OnChange = ScrollBar3Change |
| end |
| object zoom: TScrollBar |
| Left = 416 |
| Top = 304 |
| Width = 121 |
| Height = 17 |
| Max = 6 |
| Min = 1 |
| PageSize = 0 |
| Position = 1 |
| TabOrder = 7 |
| OnChange = zoomChange |
| end |
| object StaticText1: TStaticText |
| Left = 464 |
| Top = 328 |
| Width = 39 |
| Height = 20 |
| Caption = 'Zoom' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -13 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| TabOrder = 8 |
| end |
| end |
| /programy/delphi/osciloskop/Unit1.~pas |
|---|
| 0,0 → 1,213 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, ExtCtrls, OleCtrls, VCFI, Menus; |
| type |
| TForm1 = class(TForm) |
| vykreslit: TButton; |
| Button2: TButton; |
| reset: TButton; |
| vypis: TButton; |
| Obrazovka: TPaintBox; |
| Posuv: TScrollBar; |
| ScrollBar2: TScrollBar; |
| ScrollBar3: TScrollBar; |
| zoom: TScrollBar; |
| StaticText1: TStaticText; |
| procedure vykreslitClick(Sender: TObject); |
| procedure obrazovkaShow(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| procedure resetClick(Sender: TObject); |
| procedure vypisClick(Sender: TObject); |
| procedure ScrollBar2Change(Sender: TObject); |
| procedure ScrollBar3Change(Sender: TObject); |
| procedure zoomChange(Sender: TObject); |
| procedure PosuvChange(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| procedure smazat; |
| { Public declarations } |
| end; |
| const |
| MAX=455; |
| pametMAX=6*MAX; |
| var |
| Form1: TForm1; |
| PobrazovkaYMIN: array [0..MAX] of word; |
| PobrazovkaYMAX: array [0..MAX] of word; |
| pamet: array[0..pametMAX{,0..pametMAX}]of word; |
| implementation |
| uses Unit2; |
| {$R *.dfm} |
| procedure Tform1.smazat; |
| begin |
| Form1.Canvas.Pen.Mode:=pmNot; |
| Form1.Obrazovka.Canvas.Brush.Color:=clblack; |
| Form1.Obrazovka.Canvas.Rectangle(0,0,455,256); |
| Form1.Obrazovka.Canvas.Pen.Color:=cllime; |
| end; |
| procedure Draw; |
| var |
| x: word; |
| begin |
| Form1.Obrazovka.Canvas.MoveTo(0,PobrazovkaYMAX[0]); |
| for x:=1 to MAX do |
| begin |
| Form1.Obrazovka.Canvas.LineTo(x,PobrazovkaYMAX[x]); |
| Form1.Obrazovka.Canvas.LineTo(x,PobrazovkaYMIN[x]); |
| end |
| end; |
| procedure TForm1.vykreslitClick(Sender: TObject); |
| (* ble:extended;*) |
| var i,x: integer; |
| begin |
| smazat; |
| for x:=0 to pametMAX do |
| begin |
| pamet[x]:=random(200); //round((sin(x/1)*100)+100); |
| end; |
| PosuvChange(Self); |
| end; |
| procedure TForm1.obrazovkaShow(Sender: TObject); |
| begin |
| smazat; |
| end; |
| procedure TForm1.Button2Click(Sender: TObject); |
| var n: integer; |
| begin |
| n:=0; |
| while n<256 do |
| begin |
| Obrazovka.Canvas.Pen.Color:=clYellow; |
| Obrazovka.Canvas.MoveTo(0,n); |
| Obrazovka.Canvas.LineTo(455,n); |
| n:=n+70; |
| end; |
| n:=0; |
| while n<455 do |
| begin |
| Obrazovka.Canvas.Pen.Color:=clSilver; |
| Obrazovka.Canvas.MoveTo(n,0); |
| Obrazovka.Canvas.LineTo(n,455); |
| n:=n+70; |
| end; |
| Obrazovka.Canvas.Pen.Color:=cllime |
| end; |
| procedure TForm1.resetClick(Sender: TObject); |
| var j:word; |
| begin |
| smazat; |
| for j:=0 to MAX do |
| PobrazovkaYMIN[j]:=0; |
| PobrazovkaYMAX[j]:=0; |
| for j:=0 to pametMAX do |
| pamet[j]:=0; |
| end; |
| procedure TForm1.vypisClick(Sender: TObject); |
| var faut:TextFile; |
| x:word; |
| ble: string; |
| begin |
| Form2.ShowModal; |
| if Form2.Edit1.Text<>'' then |
| begin |
| AssignFile(faut,Form2.Edit1.Text); |
| Rewrite(faut); |
| for x:=0 to 455 do |
| begin |
| str(x,ble); |
| Write(faut,'x='+ble+','); |
| str(PobrazovkaYMIN[x],ble); |
| Write(faut,'Ymin='+ble+','); |
| str(PobrazovkaYMAX[x],ble); |
| Writeln(faut,'Ymax='+ble+'; '); |
| end; |
| CloseFile(faut); |
| end |
| end; |
| procedure TForm1.ScrollBar2Change(Sender: TObject); |
| var |
| xold:word; |
| zoom: integer; |
| code: integer; |
| begin |
| xold:=ScrollBar2.Position; |
| Obrazovka.Canvas.Pen.Color:=clred; |
| Obrazovka.Canvas.Pen.Mode:=pmNotXor; |
| Form1.Obrazovka.Canvas.MoveTo(xold,Obrazovka.Height); |
| Form1.Obrazovka.Canvas.LineTo(xold,0); |
| Obrazovka.Canvas.Pen.Mode:=pmNot; |
| end; |
| procedure TForm1.ScrollBar3Change(Sender: TObject); |
| var |
| x,y:word; |
| begin |
| obrazovka.Canvas.Pen.Color:=clred; |
| obrazovka.Canvas.Pen.Mode:=pmNotXor; |
| Form1.obrazovka.Canvas.MoveTo(0,ScrollBar3.Position); |
| Form1.obrazovka.Canvas.LineTo(obrazovka.Width,ScrollBar3.Position); |
| obrazovka.Canvas.Pen.Mode:=pmNop; |
| end; |
| procedure TForm1.zoomChange(Sender: TObject); |
| var |
| zoom, Xpamet, Xobraz, i, Ymax, Ymin : word; |
| begin |
| zoom:=Form1.zoom.Position; |
| Xpamet:=Posuv.Position; |
| Xobraz:=0; |
| while Xpamet < pametMAX do |
| begin |
| Ymax:=pamet[Xpamet]; |
| Ymin:=pamet[Xpamet]; |
| for i:=Xpamet to Xpamet+(zoom-1) do |
| begin |
| if pamet[Xpamet]<Ymin then Ymin:=pamet[Xpamet] |
| else if pamet[Xpamet]>Ymax then Ymax:=pamet[Xpamet] |
| end; |
| end; |
| smazat; |
| Draw; |
| end; |
| procedure TForm1.PosuvChange(Sender: TObject); |
| begin |
| Posuv.Max:=pametMAX-MAX; |
| zoomChange(Self); |
| end; |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| smazat; |
| end; |
| end. |
| /programy/delphi/osciloskop/Unit2.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/osciloskop/Unit2.dfm |
|---|
| 0,0 → 1,56 |
| object Form2: TForm2 |
| Left = 266 |
| Top = 110 |
| Width = 364 |
| Height = 111 |
| Caption = 'Form2' |
| 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 Edit1: TEdit |
| Left = 56 |
| Top = 16 |
| Width = 249 |
| Height = 21 |
| TabOrder = 0 |
| OnEnter = Button1Click |
| end |
| object Button1: TButton |
| Left = 56 |
| Top = 48 |
| Width = 97 |
| Height = 25 |
| Caption = 'OK' |
| TabOrder = 1 |
| OnClick = Button1Click |
| end |
| object Button2: TButton |
| Left = 184 |
| Top = 48 |
| Width = 97 |
| Height = 25 |
| Caption = 'Storno' |
| TabOrder = 2 |
| OnClick = Button2Click |
| end |
| object StaticText1: TStaticText |
| Left = 8 |
| Top = 16 |
| Width = 51 |
| Height = 20 |
| Caption = 'Adresa:' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -13 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| TabOrder = 3 |
| end |
| end |
| /programy/delphi/osciloskop/Unit2.pas |
|---|
| 0,0 → 1,51 |
| unit Unit2; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls; |
| type |
| TForm2 = class(TForm) |
| Edit1: TEdit; |
| Button1: TButton; |
| Button2: TButton; |
| StaticText1: TStaticText; |
| procedure enter(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form2: TForm2; |
| implementation |
| uses Unit1; |
| {$R *.dfm} |
| procedure TForm2.enter(Sender: TObject); |
| begin |
| Edit1.Text; |
| end; |
| procedure TForm2.Button1Click(Sender: TObject); |
| begin |
| Close; |
| end; |
| procedure TForm2.Button2Click(Sender: TObject); |
| begin |
| Edit1.Text:=''; |
| Close; |
| end; |
| end. |
| /programy/delphi/osciloskop/Unit2.~dfm |
|---|
| 0,0 → 1,55 |
| object Form2: TForm2 |
| Left = 266 |
| Top = 110 |
| Width = 364 |
| Height = 111 |
| Caption = 'Form2' |
| 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 Label1: TLabel |
| Left = 8 |
| Top = 16 |
| Width = 47 |
| Height = 16 |
| Caption = 'Adresa:' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -13 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| end |
| object Edit1: TEdit |
| Left = 56 |
| Top = 16 |
| Width = 249 |
| Height = 21 |
| TabOrder = 0 |
| OnEnter = Button1Click |
| end |
| object Button1: TButton |
| Left = 56 |
| Top = 48 |
| Width = 97 |
| Height = 25 |
| Caption = 'OK' |
| TabOrder = 1 |
| OnClick = Button1Click |
| end |
| object Button2: TButton |
| Left = 184 |
| Top = 48 |
| Width = 97 |
| Height = 25 |
| Caption = 'Storno' |
| TabOrder = 2 |
| OnClick = Button2Click |
| end |
| end |
| /programy/delphi/osciloskop/Unit2.~pas |
|---|
| 0,0 → 1,51 |
| unit Unit2; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls; |
| type |
| TForm2 = class(TForm) |
| Edit1: TEdit; |
| Button1: TButton; |
| Button2: TButton; |
| Label1: TLabel; |
| procedure enter(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form2: TForm2; |
| implementation |
| uses Unit1; |
| {$R *.dfm} |
| procedure TForm2.enter(Sender: TObject); |
| begin |
| Edit1.Text; |
| end; |
| procedure TForm2.Button1Click(Sender: TObject); |
| begin |
| Close; |
| end; |
| procedure TForm2.Button2Click(Sender: TObject); |
| begin |
| Edit1.Text:=''; |
| Close; |
| end; |
| end. |
| /programy/delphi/osciloskop/ble.doc |
|---|
| 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/osciloskop/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 |