// Kullanıcıların belirttiği bir dosyayı oluşturabilen, dosyadan içerik okuyabilenve dosyayı güncelleyebilen bir uygulama

// panel1 --caption label

// panel2 --createFileNameLbl, createFileNameEdt

// panel3 --TclMemo

// panel4 --Buttons(Dosyayı oluştur, Dosyayı göster, Dosyayı güncelle)

var

  MyForm:TCLForm;

  captionLbl,createFileNameLbl:TCLProLabel;

  panel1,panel2,panel3,panel4:TCLProPanel;

  createFileNameEdt:TclProEdit;

  clMemo:TCLMemo;

 createFileBtn,showFileBtn,updateFileBtn:TCLProButton;

  myFile:TextFile;

  createTextStr,crCtTxtMemoStr:String;

  // Dosya oluşturma fonksiyonu

  void createFile;

  {

    try

    // createFileNameEdt'den gelen değer dosyaadı olarak kaydedilecek

    createTextStr=createFileNameEdt.Text;

    AssignFile(myFile,createTextStr);

    ReWrite(myFile);

    ShowMessage('Dosya, exe dosyasınınbulunduğu dizine eklendi..');

    // TCLMemo içerisinde yazan metni verilendosya adının içerisine kaydet

    crCtTxtMemoStr=clMemo.Text;

    WriteLn(myFile, crCtTxtMemoStr);

    // Dosyayı kapat

    CloseFile(myFile);

    except

      ShowMessage('Lütfen önce dosya adıgiriniz');

    }

  }

  // Dosya okuma fonksiyonu

  void showFile;

  var

    showFileContentStr:String;

  {

  try

    // Dosyadan okunan içerik TCLMemoiçerisinde gösterilir

    // okumak için dosyayı yeniden aç

   Reset(myFile);

   // Dosya içeriğini görüntüle

   while (not Eof(myFile))

   {

    // Dosya içeriğini TCLMemo'da görüntüle

    showFileContentStr=ReadLn(myFile);

    clMemo.Text=showFileContentStr;

   }

   // Dosyayı kapat

   CloseFile(myFile);

   except

    ShowMessage('Lütfen bir dosyaoluşturunuz');

    }

  }

  // Dosya güncelleme fonksiyonu

  void updateFile;

  {

  try

    //Append(myFile);

    ReWrite(myFile);

    crCtTxtMemoStr=clMemo.Text;

    WriteLn(myFile, crCtTxtMemoStr);

    // Dosyayı kapat

    CloseFile(myFile);

    ShowMessage('Dosya içeriği güncellendi');

  except

    ShowMessage('Lütfen bir dosyaoluşturunuz');

    }

  }

  // ***************************************Main ***********************************************

  {

    MyForm=TCLForm.Create(Self);

    // ****************** panel1***************************

   panel1=MyForm.AddNewProPanel(MyForm,'panel1');

    clComponent.SetupComponent(panel1,'{

      "MarginBottom":10,

      "MarginLeft":10,

      "MarginRight":10,

      "Align":"MostTop",

      "Height":60,

      "Width":500,

      "RoundHeight":10,

      "RoundWidth":10,

     "BorderColor":"#652020",

      "BorderWidth":2

    }');

    captionLbl=MyForm.AddNewProLabel(panel1,'captionLbl', 'Dosya Uygulaması');

    clComponent.SetupComponent(captionLbl,'{

      "Align":"Center",

      "MarginTop":20,

      "Height":70,

      "Width":170,

      "TextSize":20,

      "TextBold":"True"

    }');

    // ******************* panel2***************************

   panel2=MyForm.AddNewProPanel(MyForm,'panel2');

    clComponent.SetupComponent(panel2,'{

      "MarginBottom":10,

      "MarginLeft":10,

      "MarginRight":10,

      "Align":"MostTop",

      "Height":50,

      "Width":700,

      "RoundHeight":10,

      "RoundWidth":10,

     "BorderColor":"#652020",

      "BorderWidth":2

    }');

   createFileNameLbl=MyForm.AddNewProLabel(panel2, 'createFileNameLbl','Dosya adı giriniz: ');

   clComponent.SetupComponent(createFileNameLbl,'{

      "MarginLeft":10,

      "TextSize":15,

      "Align":"Center"

    }');

    createFileNameLbl.Width=panel2.Width/2;

    createFileNameLbl.Height=panel2.Height/2;

   createFileNameEdt=MyForm.AddNewProEdit(panel2,'createFileNameEdt','MyFile.txt');

   clComponent.SetupComponent(createFileNameEdt,'{

     "BorderColor":"#652020",

      "BorderWidth":2

    }')

   createFileNameEdt.Margins.Left=panel2.Width/2;

    createFileNameEdt.Margins.Right=panel2.Width/2-150;

    //**************************** panel3******************************

    // TCLMemo

   panel3=MyForm.AddNewProPanel(MyForm,'panel3');

    clComponent.SetupComponent(panel3,'{

      "MarginTop":10,

      "MarginBottom":10,

      "MarginLeft":10,

      "MarginRight":10,

      "Align":"MostTop",

      "Height":250,

      "Width":690,

      "RoundHeight":10,

      "RoundWidth":10,

     "BorderColor":"#652020",

      "BorderWidth":2

    }');

    clMemo=MyForm.AddNewMemo(panel3,'clMemo','');

    //clMemo.Align=alCenter;

    clMemo.Width=panel3.Width*9/10;

    clMemo.Align=alCenter;

    clMemo.Height=240;

    clMemo.TextSettings.WordWrap = True;

    //************************** panel4****************************

   panel4=MyForm.AddNewProPanel(MyForm,'panel4');

    clComponent.SetupComponent(panel4,'{

      "MarginBottom":10,

      "MarginLeft":10,

      "MarginRight":10,

      "Align":"MostBottom",

      "Height":50,

      "Width":700,

      "RoundHeight":10,

      "RoundWidth":10,

     "BorderColor":"#652020",

      "BorderWidth":2

    }');

   createFileBtn=MyForm.AddNewProButton(panel4, 'createFileBtn', 'Dosyaoluştur');

    clComponent.SetupComponent(createFileBtn,'{

     "BorderColor":"#652020",

      "RoundHeight":10,

      "RoundWidth":10,

      "BorderWidth":2,

      "Width":120

    }');

    //createFileBtn.Width=panel4.Width/3;

   createFileBtn.Margins.Right=panel2.Width/3+115;

   MyForm.AddNewEvent(createFileBtn,tbeOnClick,'createFile');

    showFileBtn=MyForm.AddNewProButton(panel4,'showFileBtn', 'Dosyayı görüntüle');

    clComponent.SetupComponent(showFileBtn,'{

     "BorderColor":"#652020",

      "RoundHeight":10,

      "RoundWidth":10,

      "BorderWidth":2,

      "Width":120

    }');

    //showFileBtn.Width=panel4.Width/3;

   MyForm.AddNewEvent(showFileBtn,tbeOnClick,'showFile');

   updateFileBtn=MyForm.AddNewProButton(panel4,'updateFileBtn','Dosyayıgüncelle');

    clComponent.SetupComponent(updateFileBtn,'{

     "BorderColor":"#652020",

      "RoundHeight":10,

      "RoundWidth":10,

      "BorderWidth":2,

      "Width":120

    }');

   MyForm.AddNewEvent(updateFileBtn,tbeOnClick,'updateFile');

    //updateFileBtn.Width=panel4.Width/3;

   updateFileBtn.Margins.Left=panel2.Width/3+115;

    MyForm.Run;

  }