Delphi İle Not Defteri ?

Merhaba arkadaşlar

delphi ile not defteri yapımı hakkında bilgisi olan varmı yardım ederseniz çok sevinirim.

yokmu yardım edebilecek arkadaşlar

bu hafta bitirmem lazım

Umarım işine yarar

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ExtCtrls, Menus;

type
 TForm1 = class(TForm)
  Panel1: TPanel;
  GroupBox1: TGroupBox;
  RadioGroup1: TRadioGroup;
  CheckBox1: TCheckBox;
  CheckBox2: TCheckBox;
  CheckBox3: TCheckBox;
  CheckBox4: TCheckBox;
  SpeedButton1: TSpeedButton;
  SpeedButton2: TSpeedButton;
  SpeedButton3: TSpeedButton;
  SpeedButton4: TSpeedButton;
  SpeedButton5: TSpeedButton;
  SpeedButton6: TSpeedButton;
  SpeedButton7: TSpeedButton;
  ComboBox1: TComboBox;
  ComboBox2: TComboBox;
  Memo1: TMemo;
  PopupMenu1: TPopupMenu;
  MainMenu1: TMainMenu;
  dosya1: TMenuItem;
  a1: TMenuItem;
  kaydet1: TMenuItem;
  k1: TMenuItem;
  dzen1: TMenuItem;
  kes1: TMenuItem;
  kopyala1: TMenuItem;
  yaptr1: TMenuItem;
  N1: TMenuItem;
  sagayasla1: TMenuItem;
  solayasla1: TMenuItem;
  ortala1: TMenuItem;
  biim1: TMenuItem;
  kaln1: TMenuItem;
  eik1: TMenuItem;
  altizili1: TMenuItem;
  OpenDialog1: TOpenDialog;
  SaveDialog1: TSaveDialog;
  Label1: TLabel;
  PrinterSetupDialog1: TPrinterSetupDialog;
  yazdrt1: TMenuItem;
  procedure SpeedButton1Click(Sender: TObject);
  procedure SpeedButton2Click(Sender: TObject);
  procedure SpeedButton3Click(Sender: TObject);
  procedure SpeedButton4Click(Sender: TObject);
  procedure SpeedButton5Click(Sender: TObject);
  procedure SpeedButton6Click(Sender: TObject);
  procedure SpeedButton7Click(Sender: TObject);
  procedure RadioGroup1Click(Sender: TObject);
  procedure CheckBox1Click(Sender: TObject);
  procedure CheckBox3Click(Sender: TObject);
  procedure CheckBox4Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure ComboBox1Change(Sender: TObject);
  procedure ComboBox2Change(Sender: TObject);
  procedure CheckBox2Click(Sender: TObject);
  procedure a1Click(Sender: TObject);
  procedure kaydet1Click(Sender: TObject);
  procedure k1Click(Sender: TObject);
  procedure kes1Click(Sender: TObject);
  procedure kopyala1Click(Sender: TObject);
  procedure yaptr1Click(Sender: TObject);
  procedure sagayasla1Click(Sender: TObject);
  procedure solayasla1Click(Sender: TObject);
  procedure ortala1Click(Sender: TObject);
  procedure kaln1Click(Sender: TObject);
  procedure eik1Click(Sender: TObject);
  procedure altizili1Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if speedButton1.Down then
  Memo1.Font.Style :=memo1.font.style+[fsitalic]
else
memo1.font.style:=memo1.font.style-[fsitalic];
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  if speedButton2.Down then
  Memo1.Font.Style :=memo1.font.style+[fsbold]
else
memo1.font.style:=memo1.font.style-[fsbold];
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
   if speedButton3.Down then
  Memo1.Font.Style :=memo1.font.style+[fsunderline]
else
memo1.font.style:=memo1.font.style-[fsunderline];
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  if speedButton4.Down then
  Memo1.Font.Style :=memo1.font.style+[fsStrikeOut]
else
memo1.font.style:=memo1.font.style-[fsStrikeOut];
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
memo1.Alignment:= taLeftJustify;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
memo1.Alignment:= tacenter;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
memo1.Alignment:= taRightJustify;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then
memo1.Alignment:= taLeftJustify;

if radiogroup1.ItemIndex=1 then
memo1.Alignment:= taCenter;

 if radiogroup1.ItemIndex=2 then
memo1.Alignment:= taRightJustify;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked then
  Memo1.Font.Style :=memo1.font.style+[fsitalic]
else
memo1.font.style:=memo1.font.style-[fsitalic];

end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  if CheckBox3.Checked then
  Memo1.Font.Style :=memo1.font.style+[fsUnderline]
else
memo1.font.style:=memo1.font.style-[fsUnderline];

end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
  if CheckBox4.Checked then
  Memo1.Font.Style :=memo1.font.style+[fsStrikeOut]
else
memo1.font.style:=memo1.font.style-[fsStrikeOut];

end;

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
   combobox1.Items:=screen.Fonts;
      combobox1.Text:=memo1.Font.Name;
      for i:=8 to 40 do
      combobox2.items.add(inttostr(i)) ;
       combobox2. Text:= inttostr(memo1.Font.size);
end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   memo1.Font.Name:= ComboBox1.Text;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
   memo1.Font.Size:=StrToInt(ComboBox2.Text) ;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
   if CheckBox2.Checked then
  Memo1.Font.Style :=memo1.font.style+[fsbold]
else
memo1.font.style:=memo1.font.style-[fsbold];

end;

procedure TForm1.a1Click(Sender: TObject);
begin
 opendialog1.filter:='metin dosyası|*.txt|' + 'tüm dosyalar|*.*|';
if opendialog1.execute then
Memo1.LineS.LoadFromFile(opendialog1.filename);
end;

procedure TForm1.kaydet1Click(Sender: TObject);
begin
   savedialog1.DefaultExt:='txt';
savedialog1.filter:='metin dosyası|*.txt|' + 'tüm dosyalar|*.*|';
if savedialog1.execute then
Memo1.LineS.savetoFile(savedialog1.filename);
end;

procedure TForm1.k1Click(Sender: TObject);
begin
  form1.Close;
end;

procedure TForm1.kes1Click(Sender: TObject);
begin

memo1.CutToClipboard;
end;

procedure TForm1.kopyala1Click(Sender: TObject);
begin
   memo1.CopyToClipboard;
end;

procedure TForm1.yaptr1Click(Sender: TObject);
begin
  memo1.PasteFromClipboard;
end;

procedure TForm1.sagayasla1Click(Sender: TObject);
begin
   memo1.Alignment:=taLeftJustify;
end;

procedure TForm1.solayasla1Click(Sender: TObject);
begin
   memo1.Alignment:=taRightJustify;
end;

procedure TForm1.ortala1Click(Sender: TObject);
begin

memo1.Alignment:=tacenter;
end;

procedure TForm1.kaln1Click(Sender: TObject);
begin
   if  kaln1.Checked then
  memo1.Font.Style:=memo1.Font.Style+[fsbold]
  else
  memo1.Font.Style:=memo1.Font.Style-[fsbold]
end;

procedure TForm1.eik1Click(Sender: TObject);
begin
   if eik1.Checked then
  memo1.Font.Style:=memo1.Font.Style+[fsitalic]
  else
  memo1.Font.Style:=memo1.Font.Style-[fsitalic]
end;

procedure TForm1.altizili1Click(Sender: TObject);
begin
   if  altizili1.Checked then
  memo1.Font.Style:=memo1.Font.Style+[fsunderline]
  else
  memo1.Font.Style:=memo1.Font.Style-[fsunderline]
end;



end.

Kardeş bide adam akıllı nesneleri yazıp bize nesen aratmasan

oh ne güzel, ne kadar hazırcıyız biz böyle ya