Zihin Geliştirme Merkezi

KOOLPA

Zihin Geliştirme Merkezi

 

notepadım en yapılandırılmıs hali

 Programlama Katagorisinde ve  Delphi Forumunda Bulunan  notepadım en yapılandırılmıs hali Konusunu Görüntülemektesiniz.=>notepadım en yapılandırılmıs hali arkadaslar bi oncekinin eksikleri vardı ama bu tam bir notepad orneğidir unit Unot1; interface uses Windows, ...


Geri git   Zihin Geliştirme Merkezi > KooLpa Webmaster / Grafik / Programlama > Programlama > Delphi

notepadım en yapılandırılmıs hali notepadım en yapılandırılmıs hali

Üye ol Bloglar Yardım Üye Listesi Ajanda Forumları Okundu Kabul Et

Cevapla

 

LinkBack Seçenekler Stil
Alt 26-07-2007, 02:46   #1 (permalink)
KooooLpa
 
pReNsEs - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Dec 2006
Mesajlar: 2,639
Tecrübe Puanı: 8 pReNsEs is on a distinguished road
Arrow notepadım en yapılandırılmıs hali

notepadım en yapılandırılmıs hali
arkadaslar bi oncekinin eksikleri vardı ama bu tam bir notepad orneğidirunit Unot1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Grids, Calendar,MMSystem,printers;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Memo1: TMemo;
Dosya1: TMenuItem;
Dzen1: TMenuItem;
Biim1: TMenuItem;
Grnm1: TMenuItem;
Yardm1: TMenuItem;
Yeni1: TMenuItem;
A1: TMenuItem;
Kaydet1: TMenuItem;
Farklkaydet1: TMenuItem;
N1: TMenuItem;
Sayfayaps1: TMenuItem;
Yazdr1: TMenuItem;
N2: TMenuItem;
k1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
ColorDialog1: TColorDialog;
PrintDialog1: TPrintDialog;
FindDialog1: TFindDialog;
ReplaceDialog1: TReplaceDialog;
nternettenyardm1: TMenuItem;
windowsyardm1: TMenuItem;
SaatTarih1: TMenuItem;
Gerial1: TMenuItem;
N3: TMenuItem;
Kes1: TMenuItem;
Kopyala1: TMenuItem;
Yaptr1: TMenuItem;
Sil1: TMenuItem;
N4: TMenuItem;
Bul1: TMenuItem;
Deitir1: TMenuItem;
mnse1: TMenuItem;
N6: TMenuItem;
Yaztipi1: TMenuItem;
Renkler1: TMenuItem;
Programyazan1: TMenuItem;
hakkmda1: TMenuItem;
version101: TMenuItem;
PageSetupDialog1: TPageSetupDialog;
Saat1: TMenuItem;
arkaplanrengi1: TMenuItem;
cdrom1: TMenuItem;
a2: TMenuItem;
Kapa1: TMenuItem;
N5: TMenuItem;
pcdekiyazclar1: TMenuItem;
procedure k1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure A1Click(Sender: TObject);
procedure Kaydet1Click(Sender: TObject);
procedure Yazdr1Click(Sender: TObject);
procedure Deitir1Click(Sender: TObject);
procedure Bul1Click(Sender: TObject);
procedure Yaztipi1Click(Sender: TObject);
procedure Renkler1Click(Sender: TObject);
procedure hakkmda1Click(Sender: TObject);
procedure version101Click(Sender: TObject);
procedure nternettenyardm1Click(Sender: TObject);
procedure windowsyardm1Click(Sender: TObject);
procedure Gerial1Click(Sender: TObject);
procedure Git1Click(Sender: TObject);
procedure Sayfayaps1Click(Sender: TObject);
procedure Farklkaydet1Click(Sender: TObject);
procedure Yeni1Click(Sender: TObject);
procedure Saat1Click(Sender: TObject);
procedure Kes1Click(Sender: TObject);
procedure Kopyala1Click(Sender: TObject);
procedure Yaptr1Click(Sender: TObject);
procedure Sil1Click(Sender: TObject);
procedure mnse1Click(Sender: TObject);
procedure arkaplanrengi1Click(Sender: TObject);
procedure a2Click(Sender: TObject);
procedure Kapa1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure pcdekiyazclar1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a:integer;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.k1Click(Sender: TObject);

var
a:integer;
begin
a:=application.MessageBox('Programdan Çikmak Istiyormusunuz ?','Çikis',mb_yesnocancel+mb_iconexclamation);
if a=idyes then Close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

animatewindow(handle,1000,aw_center);
Form1.caption:='uygarpad';

end;

procedure TForm1.A1Click(Sender: TObject);
begin
OpenDialog1.Title:='Açınız';
OpenDialog1.DefaultExt:='txt';
OpenDialog1.Filter:='Tüm Dosyalar|*.*| txt dosyalari|*.txt';

OpenDialog1.FilterIndex:=2;
OpenDialog1.InitialDir:='c:\' ;
if OpenDialog1.Execute then
begin
memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

end;

procedure TForm1.Kaydet1Click(Sender: TObject);

begin
saveDialog1.Title:='Kaydet';
saveDialog1.DefaultExt:='txt';
saveDialog1.Filter:='Tüm Dosyalar|*.*| txt dosyalari|*.txt';

saveDialog1.FilterIndex:=2;
saveDialog1.InitialDir:='c:\' ;
if SaveDialog1.Execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

end;

procedure TForm1.Yazdr1Click(Sender: TObject);
begin
PrintDialog1.Execute;
end;

procedure TForm1.Deitir1Click(Sender: TObject);
begin
if ReplaceDialog1.Execute then
//memo1.Lines:=replacedialog1;
end;

procedure TForm1.Bul1Click(Sender: TObject);
begin
if FindDialog1.Execute then
//memo1.lines:=finddialog1.
end;


procedure TForm1.Yaztipi1Click(Sender: TObject);
begin
if FontDialog1.Execute
then Memo1.Font:=
FontDialog1.Font;

end;

procedure TForm1.Renkler1Click(Sender: TObject);
begin
ColorDialog1.Execute;
Memo1.Font.color:=ColorDialog1.color;


end;

procedure TForm1.hakkmda1Click(Sender: TObject);
begin
showmessage('Uygar ATIS'+' '+'05552043592'+' '+'cakalcarlos_86@hotmail.com');
end;

procedure TForm1.version101Click(Sender: TObject);
begin
showmessage('%30ı kaldı');
end;

procedure TForm1.nternettenyardm1Click(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.windowsyardm1Click(Sender: TObject);
begin
Showmessage('yapılış tarihi=31.12.2006'+'en son guncelleme=08.01.2007');
end;

procedure TForm1.Gerial1Click(Sender: TObject);
begin
memo1.Undo ;
end;

procedure TForm1.Git1Click(Sender: TObject);
begin
Showmessage('yapılıyor');
end;

procedure TForm1.Sayfayaps1Click(Sender: TObject);
begin
if PageSetupDialog1.Execute then
begin
//memo1.Lines.BeginUpdate(PageSetupDialog1.PageSetup DlgRec);
end;
end;

procedure TForm1.Farklkaydet1Click(Sender: TObject);
begin
saveDialog1.Title:='Farklı Kaydet';
saveDialog1.DefaultExt:='txt';
saveDialog1.Filter:='Tüm Dosyalar|*.*| txt dosyalari|*.txt';

saveDialog1.FilterIndex:=2;
saveDialog1.InitialDir:='c:\' ;
if SaveDialog1.Execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;

procedure TForm1.Yeni1Click(Sender: TObject);

var
a:integer;
begin
a:=application.MessageBox('Programı Kaydetmek Istiyormusunuz ?','Yeni aç',mb_yesnocancel+mb_iconexclamation);
if a=idyes then
Begin
saveDialog1.Title:='Kaydet';
saveDialog1.DefaultExt:='txt';
saveDialog1.Filter:='Tüm Dosyalar|*.*| txt dosyalari|*.txt';

saveDialog1.FilterIndex:=2;
saveDialog1.InitialDir:='c:\' ;
if SaveDialog1.Execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

end
else if a=idno then
memo1.Lines.Clear
else if a=idcancel then

end;

procedure TForm1.Saat1Click(Sender: TObject);
begin
Form1.caption:='uygarpad'+' '+datetimeToStr(now);
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.Sil1Click(Sender: TObject);
begin
memo1.Text:="
end;

procedure TForm1.mnse1Click(Sender: TObject);
begin
memo1.SelectAll;
end;

procedure TForm1.arkaplanrengi1Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.a2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);

end;

procedure TForm1.Kapa1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('kaydetmeyi unutma istersen'+' !'+' iptal diyip saklamazsın');
saveDialog1.Title:='Kaydetmeyi unutma';
saveDialog1.DefaultExt:='txt';
saveDialog1.Filter:='Tüm Dosyalar|*.*| txt dosyalari|*.txt';

saveDialog1.FilterIndex:=2;
saveDialog1.InitialDir:='c:\' ;
if SaveDialog1.Execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

end;

procedure TForm1.pcdekiyazclar1Click(Sender: TObject);

var Printer:TPrinter;
begin
Printer:=TPrinter.Create;
Form4.Show;
Form4.Memo1.Lines.Assign(Printer.Printers);
end;

end.
__________________
pReNsEs isimli üyemiz çevrimdışıdır. (Offline)  
Digg this Post!Add Post to del.icio.usStumble this Post!Reddit!Google Bookmark this Post!Live Bookmark this Post!Propeller this post!
Alıntı ile Cevapla

Sponsor Linkler
Cevapla

« Design Time Çalışan Nesne | kütüphane stok »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

 
Seçenekler
Stil
Normal Normal

Yetkileriniz
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML KodlarıKapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık

Benzer Konular

Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Journey ile aşkın şık hali eda Moda 0 08-02-2008 16:55
Kadınların 7 hali BioNİc_qirL Kadınlara Özel 0 27-01-2008 15:30
Erkeğin üç hali KöTü KeDi ŞeRaFeTTiN Slayt 3 11-08-2007 23:32
Müslümanların Hali Crystal Heart Dini Konular 0 27-05-2007 22:07
dünyanın hali!........ splinter Teknoloji / Bilim 0 12-12-2006 00:48


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 13:00 .

İletişim - KooLpa - Arşiv - Yukarı git

Powered by vBulletin® Version 3.7.5
Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.2.0

Gizlilik Politikası | KooLpa üyeleri onay gerektirmeksizin mesaj yazabilmektedir. KooLpa' da yasalara aykırı unsurlar bulursanız buraya yazınız. En kısa zamanda gereği yapılacaktır.


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208