F.D.S Feuille de style - Tout les membres du site

Informations sur le membre tome_x

Pseudo : tome_x
Mail : tom.torreze@gmail.com
Site web : http://serique.free.fr
Travail : aucun
Passion(s) : le web le jeux videos le 3d la programmation.
Signature :

Code : pascal
unit Unit11;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ImgList, ToolWin, ExtDlgs, Shlobj, registry;

type
TForm11 = class(TForm)
RichEdit1: TRichEdit;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ImageList1: TImageList;
SaveDialog1: TSaveDialog;
SaveTextFileDialog1: TSaveTextFileDialog;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
OpenTextFileDialog1: TOpenTextFileDialog;
ToolButton4: TToolButton;
FontDialog1: TFontDialog;
Button1: TButton;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form11: TForm11;

implementation

uses Unit12;

{$R *.dfm}

procedure RegisterFileType(ExtName:String; AppName:String) ;
var
reg:TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('.' + ExtName, True) ;
reg.WriteString('', ExtName + 'file') ;
reg.CloseKey;
reg.CreateKey(ExtName + 'file') ;
reg.OpenKey(ExtName + 'file\DefaultIcon', True) ;
reg.WriteString('', AppName + ',0') ;
reg.CloseKey;
reg.OpenKey(ExtName + 'file\shell\open\command', True) ;
reg.WriteString('',AppName+' "%1"') ;
reg.CloseKey;
finally
reg.Free;
end;

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil) ;
end;

//enregistrer
procedure TForm11.Button1Click(Sender: TObject);
begin
Form12.Show
end;

procedure TForm11.FormCreate(Sender: TObject);
begin

RegisterFileType('txt',Application.ExeName) ;//ici on choisit
RegisterFileType('btf',Application.ExeName) ;//les types de fichiers
{RegisterFileType('type de fichie a assosier au programme ex: "rtf"',Application.ExeName) ;}

if paramstr(1)<>'' then

RichEdit1.Lines.LoadFromFile(paramstr(1));

end;

procedure TForm11.ToolButton1Click(Sender: TObject);
begin
if SaveTextFileDialog1.Execute then
begin
RichEdit1.Lines.SaveToFile(SaveTextFileDialog1.FileName);
end;
end;
//effacer
procedure TForm11.ToolButton2Click(Sender: TObject);
begin
RichEdit1.Clear
end;
//ouvrir
procedure TForm11.ToolButton3Click(Sender: TObject);
begin
if OpenTextFileDialog1.Execute then
begin
RichEdit1.Lines.LoadFromFile (OpenTextFileDialog1.FileName);
end;
end;

procedure TForm11.ToolButton4Click(Sender: TObject);
begin
if FontDialog1.Execute then
begin
RichEdit1.Font := FontDialog1.Font;
end;
end;

procedure TForm11.FormCloseQuery(Sender: TObject;var CanClose: Boolean);
begin
CanClose := false;
if application.messagebox(PChar('Voulez vous vraiment quitter le programme ?'),
PChar('Fermer le programme'), MB_OKCANCEL) = IDOK then
CanClose := true;
end;

end.

Groupe : membre
Date d'inscription : Le 22/11/2009
Connecter : non

Vous pouvez remonter ou bien aller au contenu
Le contenu texte du site web est sous licence BY-NC-SA.

Quelques icones du design "Extra" sont prisent du theme SnowIsh .
Retrouvez nous sur le channel #fds de irc.epiknet.org .