type TfmDNA = class()
![]() |
procedure ApplyDNA; |
![]() |
procedure btnCancelClick(Sender: TObject); |
![]() |
procedure btnOKClick(Sender: TObject); |
![]() |
procedure FormShow(Sender: TObject); |
![]() |
procedure GetDNA; |
![]() |
procedure LoadDNA1Click(Sender: TObject); |
![]() |
procedure SaveDNA1Click(Sender: TObject); |
![]() |
procedure ApplyDNA; |
![]() |
procedure btnCancelClick(Sender: TObject); |
![]() |
procedure btnOKClick(Sender: TObject); |
![]() |
procedure FormShow(Sender: TObject); |
![]() |
procedure GetDNA; |
![]() |
procedure LoadDNA1Click(Sender: TObject); |
![]() |
procedure SaveDNA1Click(Sender: TObject); |