root/trunk/Forms/frm_settings.pas

Show revision log
 
445465
220
  frm_main,
220
  frm_main,
221
  frm_edit_script,
221
  frm_edit_script,
222
  unit_Settings,
222
  unit_Settings,
 
223
  unit_Helpers,



223
  htmlhlp,
224
  htmlhlp,



224
  frm_create_mask,
225
  frm_create_mask,



225
  unit_Templater;
226
  unit_Templater;


...
...
227
{$R *.dfm}
228
{$R *.dfm}



228
229



229
procedure TfrmSettings.edDeviceDirButtonClick(Sender: TObject);
230
procedure TfrmSettings.edDeviceDirButtonClick(Sender: TObject);



231
var



232
  AFolder: string;



230
begin
233
begin



231
  dlgSelectDir.Directory := (Sender as TRzButtonEdit).Text;
234
//  dlgSelectDir.Directory := (Sender as TRzButtonEdit).Text;



232
  if dlgSelectDir.Execute then
235
//  if dlgSelectDir.Execute then



233
    (Sender as TRzButtonEdit).Text := dlgSelectDir.Directory;
236
//    (Sender as TRzButtonEdit).Text := dlgSelectDir.Directory;



237
  AFolder := (Sender as TRzButtonEdit).Text;



238
  if GetFolderName(Handle, 'Óêàæèòå ïàïêó', AFolder) then



239
    (Sender as TRzButtonEdit).Text := AFolder;



234
end;
240
end;



235
241



236
procedure TfrmSettings.edFileNameTemplateButtonClick(Sender: TObject);
242
procedure TfrmSettings.edFileNameTemplateButtonClick(Sender: TObject);