En Faite c'est un prog SUPER BASIC et SUPER SIMPLE j'ai mis 45 min a le faire.
C'est tout simplement un simple bloc note pour aider les personnes ki debutent (com moi lol!)
Vos commentaires seront les bienvenus.
Mais ne soyez pas trop mechant pour les notes car je debute seulement.
Merci
Source / Exemple :
unit tikouf;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ComCtrls, XPMan;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Fichier1: TMenuItem;
Edition1: TMenuItem;
exte1: TMenuItem;
APropos1: TMenuItem;
Nouveau1: TMenuItem;
Ouvrir1: TMenuItem;
Sauvegardersous1: TMenuItem;
Quitter1: TMenuItem;
Imprimer1: TMenuItem;
Coller1: TMenuItem;
Imprimer2: TMenuItem;
Couleur1: TMenuItem;
RichEdit1: TRichEdit;
XPManifest1: TXPManifest;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
PrintDialog1: TPrintDialog;
ColorDialog1: TColorDialog;
Gras1: TMenuItem;
Barr1: TMenuItem;
procedure Nouveau1Click(Sender: TObject);
procedure Ouvrir1Click(Sender: TObject);
procedure Sauvegardersous1Click(Sender: TObject);
procedure Quitter1Click(Sender: TObject);
procedure Imprimer1Click(Sender: TObject);
procedure Coller1Click(Sender: TObject);
procedure Imprimer2Click(Sender: TObject);
procedure Couleur1Click(Sender: TObject);
procedure Gras1Click(Sender: TObject);
procedure Barr1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
uses Unit4, Unit1;
{$R *.dfm}
procedure TForm1.Nouveau1Click(Sender: TObject);
begin
RichEdit1.Visible := True;
RichEdit1.Clear;
end;
procedure TForm1.Ouvrir1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName)
else
RichEdit1.Lines.Clear;
end;
procedure TForm1.Sauvegardersous1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.Quitter1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Imprimer1Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard;
end;
procedure TForm1.Coller1Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard;
end;
procedure TForm1.Imprimer2Click(Sender: TObject);
begin
RichEdit1.Print('');
end;
procedure TForm1.Couleur1Click(Sender: TObject);
begin
if ColorDialog1.Execute then RichEdit1.SelAttributes.Color := ColorDialog1.Color;
end;
procedure TForm1.Gras1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style := [fsUnderLine];
end;
procedure TForm1.Barr1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style := [fsStrikeOut];
end;
end.
Conclusion :
Je sais, je sais, le a propos ne marche pas et je vais vous dire pourquoi:
-Tout simplement parce-que je n'ai pas reussi a attacher ma "aboutbox" au bouton "a propos" de ma form principale.
Si vous savez comment faire ça serai gentille de m'expliquer.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.