home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / kompon / d123456 / STR_BIT.ZIP / 32 / skr32 / SKR32.CPP next >
C/C++ Source or Header  |  2000-03-30  |  1KB  |  36 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "skr32.h"
  6. #include "SkrPr.hpp"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "CSPIN"
  10. #pragma resource "*.dfm"
  11. TFormSkr *FormSkr;
  12. //---------------------------------------------------------------------------
  13. __fastcall TFormSkr::TFormSkr(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18. void __fastcall TFormSkr::SpeedButton1Click(TObject *Sender)
  19. {
  20. if (OpenDialog1->Execute()) Edit1->Text = OpenDialog1->FileName;
  21. }
  22. //---------------------------------------------------------------------------
  23. void __fastcall TFormSkr::SpeedButton2Click(TObject *Sender)
  24. {
  25. if (SaveDialog1->Execute()) Edit2->Text = OpenDialog1->FileName;
  26.  
  27. }
  28. //---------------------------------------------------------------------------
  29.  
  30. void __fastcall TFormSkr::BitBtn1Click(TObject *Sender)
  31. {
  32.  DeskrSS(Edit1->Text, Edit2->Text, CSpinEdit1->Value, CSpinEdit2->Value);
  33. }
  34. //---------------------------------------------------------------------------
  35.  
  36.