WEBDEZIGN FORMULAIRE

{—————————————————————————————————————————————————————————————————————————}
{    Génére un formulaire *.WDF  [F9]                                     }
{—————————————————————————————————————————————————————————————————————————}
procedure Twin.Button1Click(Sender: TObject);
var
  Edit: tedit;
  LabelEdit: TLabeledEdit;
  ComboBox: TComboBox;
  ColorBox: TColorBox;
  a, b, c, d: integer;
  email, destinataire, sujet, messge, filelier: string;
begin
  if savedialog1.Execute then begin
    win.Caption := savedialog1.FileName;
    ini := tinifile.Create(savedialog1.FileName);
    try
      for a := 0 to componentcount - 1 do
        if components[a] is tedit then begin
          edit := tedit(components[a]);
          ini.WriteString('Edit', edit.Name, edit.Text);
        end;
      for b := 0 to componentcount - 1 do
        if components[b] is TLabeledEdit then begin
          LabelEdit := TLabeledEdit(components[b]);
          ini.WriteString('LabelEdit', LabelEdit.Name, LabelEdit.Text);
        end;
      for c := 0 to componentcount - 1 do
        if components[c] is TComboBox then begin
          ComboBox := TComboBox(components[c]);
          ini.WriteString('ComboBox', ComboBox.Name, ComboBox.Text);
        end;
      for d := 0 to componentcount - 1 do
        if components[d] is TColorBox then begin
          ColorBox := TColorBox(components[d]);
          ini.WriteString('ColorBox', ColorBox.Name, inttostr(colorbox.Selected));
        end;
    finally
      ini.Free;
    end;
  end;
  memo.Lines.LoadFromFile(savedialog1.FileName);
  destinataire := webmaster.Text;
  filelier := savedialog1.FileName;
  if filelier = '' then begin
    filelier := Opendialog1.FileName;
    if filelier = '' then begin
      filelier := Win.Caption;
    end;
  end;
  sujet := 'Demande de site de ' + nom_client.Text + ' ' + prenom_client.Text;
  messge := 'Si vous avez des questions n''hésité pas.' + '%0D%0A' + '%0D%0A' + 'Le reste du message est généré automatiquement, donc ne l''effacé pas !!' + '%0D%0A' + '%0D%0A' + '[Edit]' + '%0D%0A' + 'adress2_client=' + adress2_client.text +
    '%0D%0A' + 'des1_site=' + des1_site.text + '%0D%0A' + 'des2_site=' + des2_site.text +
    '%0D%0A' + '[LabelEdit]' + '%0D%0A' + 'nom_client=' + nom_client.text + '%0D%0A' + 'prenom_client=' + prenom_client.text +
    '%0D%0A' + 'adress_client=' + adress_client.text + '%0D%0A' + 'code_postal_client=' + code_postal_client.text +
    '%0D%0A' + 'ville_client=' + ville_client.text + '%0D%0A' + 'tel_client=' + tel_client.text + '%0D%0A' + 'mail_cliient=' + mail_cliient.text +
    '%0D%0A' + 'adress_ftp=' + adress_ftp.text + '%0D%0A' + 'login_ftp=' + login_ftp.text + '%0D%0A' + 'pass_ftp=' + pass_ftp.text +
    '%0D%0A' + 'nom_site=' + nom_site.text + '%0D%0A' + 'domaine_site=' + domaine_site.text + '%0D%0A' + 'webmaster=' + webmaster.text +
    '%0D%0A' + '[ComboBox]' + '%0D%0A' + 'type_site=' + type_site.text + '%0D%0A' + 'style_site=' + style_site.text +
    '%0D%0A' + 'style_menu_site=' + style_menu_site.text + '%0D%0A' + '[ColorBox]' + '%0D%0A' + 'color_principal=' + inttostr(color_principal.selected) +
    '%0D%0A' + 'color_police=' + inttostr(color_police.selected);
  email := 'mailto:' + destinataire + '?subject=' + sujet + '&body=' + messge + '&file=' + filelier;
  ShellExecute(Handle, 'open', PChar(email), nil, nil, SW_SHOW);
end;