Yeni tasarıma bir göz atalım isterseniz

Dediğim gibi manşet kısmı kesinlike elden geçmeli , ve ana sayfada daha çok kategoriden haberler gösterilmeli. Tasarımda bir iyileştirme yapılması şart Siteye görsellik kazandıralım derken işlevselliğini yitirmiş biraz habertürk ama düzeltecekler diye düşünüyorum..

Bu arada Doğan grubu gazetelerinden Milliyet.Com.tr de bir takım değişiklikler var. Sanırım oda bir tasarım değişikliğine gidecek ..

Paylaş

Rastgele Yazılar

• Bill Amca 3.7 Milyar Dolar Kâr etti.
• C Programlama : Açıklama Satırı Yazmak
• Nokia 5800 Xpress Music İncelemesi
• Mozilla , Explorer Kapışması tam gaz devam ediyor..
• Visual Web Developper Tanıtımı ve Asp.Net’e ilk adım – Ders 1

TouchTalk: Gerçek hisleri gösteren SMS Ken Wood, Cambridge’deki “Computer Mediated Living” bö- lümünü yönetiyor. Amaci; teknoloji kullanimini hayatla daha

iç içe, daha sezgisel ve daha kolay hale getirmek. Kendisi mate- matikçi olan Wood ve psikologlar, sosyologlar, biyotekniker- lerden oluşan takimi için, insan her şeyin merkezinde duru- yor. Örnek olarak cep telefonu: Günümüzde haberler, resim- ler, müzik ve videolar sorunsuz ve hizli bir şekilde aktarilabili- yor. Ama iş hissedilenleri aktarmaya geldiğinde, mobil tekno- loji epey zorlaniyor. SMS bile gerçek hislerin yerini alamiyor. Ken Wood’a göre “Sadece haber aktarimi yapabilen mobil or- tamlarin gelecekte hiç şanslari yok.” Microsoft’ta çalişan bilim adamlarinin buna bulduğu çö- züm ise “TouchTalk” adini verdikleri bir teknoloji. Hatta bir prototip bile mevcut: Dokunuşlari gönderebilen bir cep tele- fonu. Takim, bunun arkasindaki teknoloji hakkinda bilgi ver- mek istemiyor. Ama kesin olan bir şey varsa o da algilayicila- rin dokunuşlari yakalamasi, buna ait veriler kodlanip karşi ta- rafa gönderilmesi. Cep telefonunuzu sevgiyle okşadiğinizda, konuştuğunuz kişinin cep telefonu buna uygun şekilde titriyor. Buna rağmen geliştiriciler bile böyle bir teknolojiyle neler yapilabileceğini tam olarak kestiremiyor ve “Vodafone ile ortaklaşa bir pilot proje uygulamayi düşünüyoruz.” diyorlar.

SmartBack: Otomatik pilotlu internet tarayicisi Eğer bilgisayar programlarindaki butonlar her tiklayişinizda aşinsaydi, büyük ihtimalle ilk önce internet tarayicinizdaki “Geri” butonu taninmaz bir hale gelirdi. internette sörf yaparken birbiriyle bağlantili sayfalarin oluşturduğu labirentten ra- hatsiz olanlar için yapilacak fazla bir şey yok. Ya tekrar ilk say- fadan başlamalisiniz ya da o ana kadar gezdiğiniz bir sürü say- fayi geri giderek en önemli kavşağa ulaşmalisiniz. Ken Wood yönetimindeki ar-ge ekibi için bu tam bir inceleme konusu. “Tek bir tiklama ile doğru sayfaya ulaşabilmelisiniz” diyerek açikliyor Natasa Milic-Frayling. Zagreb’den gelen matematik- çi, çalişma arkadaşlariyla beraber bir otomatik pilot geliştir- miş: “SmartBack” yapay zekâyla donatilmiş bir Internet Exp- lorer eklenti çubuğu. Bu program, önceden belirli tanimlari eşleştirmeye çalişa- rak ana bağlanti noktalarini (hub) ariyor. Giriş satiri, mesela kullanicinin istediğinde geri dönebileceği bir arama motoru olabilir. Buradaki sorun, her kullanicinin kendine özgü inter- net alişkanliklarindan yola çikilarak hesaplanmasi gereken bağlanti noktalarinin olmasi. “Elbette yazilimin altinci hissi yok ve sizi çoğu zaman yan- liş sayfaya götürebiliyor,” diye ekliyor proje yöneticisi. Bu, ta- kimin geliştirmekte olduğu programi bir sonraki Internet Explorer güncellemesine neden koymadiğinin da yaniti. Bu yüzden büyük gün gelene kadar çalişma tahtasinda yapilacak çok iş var.

Static Driver Verifier: Mavi ekrana son Mavi ekrani bilmeyen, bilip de nefret etmeyen var midir? Onu gördüğünüzde bilgisayarinizi yeniden başlatmak zorunda olduğunuzu anliyorsunuz. Microsoft kullanicilari ve yazilim ge- liştiricileri, neden çökmeyen bir yazilim yaratilamadiği sorusu üzerinde beraberce çalişiyor. Hatasiz bir yazilim derleyebil- mek için, yazdiğiniz programin hep beklediğiniz gibi çaliştiği- ni kanitlamaniz gerekiyor. Zaten bu da Microsoft’un baş yazi- limcisi Bill Gates için en zor problem ve ayni zamanda “Bilgi- sayar Biliminin Kutsal Kadehi”. Cambridge’deki “Programming Principles and Tools” bö- lümü, bu kadehi bulmak isteyenlerin başinda geliyor, yani en

azindan şimdilik donanim sürücüleri için öyle. Bilişim mü-hendisleri için hatali yazilmiş sürücüler, bir sistemi çökerten en temel sebeplerden biridir. Başkan vekili ve grup yöneticisi Luca Cardelli “Artik hatasiz sürücüler derlemek mümkün.” diyerek başliyor söze. Prensipte bir yazilim, en karmaşik Windows sistemlerinin benzetimini (simulasyon) yapiyor ve akla gelebilecek bütün senaryolarda sürücünün nasil bir tepki vere- ceğini analiz ediyor. Sadece yazilimlarin çözebileceği türden zekâ gerektiren bir sorun. Driver Verifier bu sorunu yazilimcilarin elinden aliyor, hatayi daha hizli buluyor ve Windows’un daha kararli çalişmasini sağliyor. Yazilim geliştiricileri, prog ramin deneme sürümünü Microsoft’un internet sayfasinda bulabilir.

SensePill: Yutulabilen bilgisayar En başinda kulağa biraz korkunç gelebilir: Microsoft’ta çalişan bilim adamlari içi tamamen elektronik devreler ve algilayici larla doldurulmuş ve insan vücudunda yönünü kendi kendine bulabilen bir hap geliştirdi. Peki, o zaman yuttuğumuz şey tam olarak nedir? “Biomedical Electronics” alaninda çalişan Lynd- say Williams “Tamamiyla zararsiz bir hap” diyerek bize güven veriyor. Bazi ilaçlarin içindeki etkin maddeler, vücudumuzun sade- ce belirli bölgelerinde gerçek anlamda işe yariyor. Günümüz de bu tip ilaçlarin vücudumuzdaki konumu, yansilanim (ultrason) yöntemiyle belirlenip, etkin maddenin verilişi dişari- dan başlatilabiliyor. Tabii bu hem doktor hem de hasta için uzun süren ve sinir bozucu bir uygulama. Microsoft’un geliştirdiği “SensePill”, mesela midedeki asit seviyesini ya da çevre sicakliğini ölçen algilayicilarla donatil- miş bir hap. Böylece hap, tam olarak vücudun neresinde ol- duğunu anlayabiliyor ve ilaçtaki etkin maddeyi ne zaman di- şari vermesi gerektiğini anliyor. Bu akilli haplarin ne zaman ilk defa klinik deneylerle insan üzerinde deneneceği ise henüz kesinleşmedi.

Anemone: Akilli ağ Çöken bir ağin nasil tekrar hayata döndürüleceği, büyük fir- malarda her türlü teknolojik desteğe sahip ve alaninda uzman olan IT bölümünün bileceği bir iştir. Richard Black ve araştir- ma ekibi “Systems and Networking” içinse, bu tamamen yan- liş bir düşünce tarzi. “Kendi ağinizi oluşturmak için bir ağ yö- neticisine ihtiyaciniz olmamali.” Bu yüzden çaliştiği takim, Anemon Projesinde karmaşik ağlar ve ayrik sistemler oluştur- mayi daha kolaylaştirabilecek yollar ariyor. Bunun dişinda ağ- lari görsel hale getiren programlarin yüzlerce Euro’ya mal ol- masi da önemli bir konu. Tabii özel ağ donanimlarina duyulan gereksinim, yazilim maliyetlerini ikinci plana atacak boyutlarda. Black’in çözümü- nün adi “Network Mapper”. Bu araç, ICMP paketleri ve MAC adreslerinin taşidiği bilgileri değerlendiriyor ve ağin haritasini ekraninizda gösteriyor. Bunun sonucunda normal bir kullani- cinin tam olarak ağin neresinde olduğunu anlayabilmesi, han- gi cihazlarin birbirine bağli olduğunu görebilmesi ve nereye kablo çekileceğini anlamasi uzun sürmüyor. Ağ ekibi progra min tamamlandiğini söylüyor ama Black, yeni Windowslarda Network Mapper’a yer verilip verilmeyeceği konusunda sessizliğini koruyor.

i2i: 3B muhabbetler artik göz göze Bir muhabbetin başarili bir şekilde sürmesi için en temel ku- ral, karşinizdaki kişinin gözlerine bakmaktir. Ama video kon- feranslar sirasinda bu kural geçerliliğini kaybediyor. “Burada- ki sorun, kameranin monitörün yaninda ya da üstünde duru- yor olmasi. Bu yüzden konuşan kişi kameraya değil de moni- töre baktiği sürece göz temasi oluşmuyor.” diyerek devam edi- yor Andrew Blake. Matematikçiler ve bilgisayar bilimcileri görselleştirme, resim işleme ve insansi algilama tekniklerinin incelendiği Cambridge’deki “Vision” isimli ar-ge çalişmasini yürütüyor. “Göz Temasi” sorununu çözmek için ekip başka bir açiya ikinci bir kamera yerleştirmiş. Özel geliştirilmiş bir algoritma, resim üzerindeki bakişlari hesapliyor ve çok güzel bir etki yaratiyor. Bir başka güzel özelliği ise, arka plani istedi ğiniz gibi değiştirebiliyorsunuz, yani bir tür “Mavi Kutu” efek- ti diyebiliriz. Statü sembolü olarak lüks bir büro görüntüsüyle muhabbet ettiğiniz kişiyi etkilemek mümkün. Programin de- neme sürümü tam olarak ekibin beklediği gibi çalişiyor.

TrueSkills: Hangi oyuncu daha iyi? Satranç oynayanlar için Elo sayisi olarak adlandirilan bir terim vardir. Bu sayi yardimiyla oyuncularin yetenekleri karşilaştiri- lir ve bir siralama listesi içerisine alinir. Ama bu metodun da belirli zayif noktalari bulunuyor: Elo sayisi gerçek değerine ula- şana kadar oyuncunun toplam 200 oyun tamamlamiş olmasi gerekiyor. Bunun dişinda değerlendirme sadece iki oyunculu oyunlarla yapiliyor, buna satranç da dâhil. Nasil kizma birader iki kişiyle oynanmazsa, yüzlerce katilimcisi olan online oyun- larda kullanimi ise imkânsiz. işte Microsoft’u en çok ilgilendi- ren de bu konu. “Machine Learning and Perception” isimli araştirma ekibine ve oyun uzmani Ralf Herbich’e uygun bir va- ka. Almanya’dan gelen bilgisayar bilimcileri “TrueSkill” tekno- lojisini geliştirmiş ve böylece Elo’nun zayifliklarinin önüne geçmişler. Zekice düşünülmüş bir algoritma ile artik sadece 120 kere oynamak yeterli oluyor, ayrica oyuncularin sayisi so- nucu etkilemiyor. XBox oyunu olan Halo 2 daha şimdiden bu teknolojiden yararlaniyor, Microsoft yeni algoritmayi bu oyunda test etmiş. Mesela arama motorlarindan alinan sonuç- larin değerlendirilmesi gibi başka kullanim alanlari olabilir mi diye düşündük? Herbich, “ilginç bir fikir” diyerek yanitliyor

Paylaş

Benzer Yazılar

• Microsoft Yamadı Xp Çıldırdı
• Buda Microsoft’un Telefonu
• Microsoft 2. Olsa Çok Sevinecek
• Atari Salonları Geri Mi Geliyor ?
• Windows 8 Hakkında İlk Bilgiler

Avrupa daha önce bu tip cezalar verildi  ama bu ceza geriye dönük bir ceza.  Aslında diğer kullanıcıların ödediği Milyon dolarların yanında bu ceza devede kulak bile kalıyor. İlginc olan dediğim gibi eğer Mp3 indirmek suçsa (!)  bu suçun seneler önce işlenmiş olması ve şimdi cezaya bağlanması.   Whitney Harper adındaki genç kız zamanında 37 adet mp3 indirmiş kararı veren hakimde MP3 dosyası başına 750 dolar ceza kesmiş.

Ne diyelim bakalım daha neler göreceğiz . Yakında ülkemizdede bu tip cezalarla karşılaşabiliriz aman dikkat.

Paylaş

Rastgele Yazılar

• 10 Adet Muhteşem Wordpress Teması
• Seo Teknikleri : Sitenizi Pagerank Değeri İle Ölçün
• Fireworks Dersleri : Baştan Sona Web Sitesi Tasarımı
• Dell Windows 7′yi seçti..
• Üç Boyutlu Futbol Keyfi Başlıyor.

Popüler internet tarayıcısı Firefox‘un geliştiricisi olan Mozilla vakfı yeni bir projenin temellerini attı. Aslında bu proje dallanıp budaklanan, şimdilik 30′a yakın kolu olan dev bir girişim; adı ise Mozilla Drumbeat.

Hedefleri internetin sonraki 100 yılını kökten değiştirmek. İnsanların internete sahip çıkmasını sağlamak, kullanımı kolaylaştırmak, standartları özgürleştirmek ve bu alanda eğitim-iş eğitimi çalışmaları yapmak.

Örneğin Mozilla okullarda gençlerin ileride profesyonel internet projelerinde çalışabilmesi için gerekli olan araçların eğitiminin Microsoft ve Cisco gibi şirketlerin etkisinden çıkartılmasını amaçlıyor. .NET gibi sistemler ya da Cisco routerlara alternatifler güçlendirmeye niyetli.

Bunun için de HTML5 gibi teknolojilerin eğitiminin verilmesinin yanında, bu eğitimi alan profesyonellerin değerlendirilme ve sertifikaları, güvenilirliği ve hesap verebilirliği açısından proje geliştiriyor. Bu iş için de online bir topluluk sistemi düşünülüyor.

İnternet teknolojileri alanında profesyonel yetiştirmeyi ele alarak Microsoft ve Cisco‘nun etkisine ağır bir darbe vurmak istemenin ötesinde Mozilla’nın irili ufaklı pek çok projesi var.

Bunlardan en büyük kullanıcı desteği alacak olan, herhalde internette kullanım şartlarının basitleştirilmesi olacaktır.

En son ne zaman bir siteye üye olurken ya da yazılım kurarken karşınıza çıkan kullanım şartları metninin tamamını okudunuz? Herkes ama herkes bunları okumadan aşağı kaydırıp tıklıyor. İşte Mozilla bunu çözmek için hukukçularla bir araya geldi ve çok iyi bir fikri var.

Creative Commons logosu gibi farklı logolar, girilen sitenin kullanım şartlarını temel olarak özetleyecek. Yani belirli logoların kısıtlamalarını ve anlamlarını görerek anında anlamak mümkün olacak.

Paylaş

Benzer Yazılar

• Mozilla Firefox 3.5.5 Programını İndir
• Mozilla , Explorer Kapışması tam gaz devam ediyor..

ComboBox bileşeni Edit ve ListBox bileşenlerinin özelliklerini paylaşır. Bir Edit gibi metin girişi yapılabilir. Aynı zamanda bir ListBox bileşeni gibi önceden girilmiş elemanlar arasından seçim yapılabilmesine de izin verir.

Özellikler (Properties)

AutoDropDown : Eğer True ise kullanıcı metin girerken ComboBox ın otomatik olarak açılmasını sağlar.

DropDownCount : Açılan listede kaç elemanın görüntüleneceğini belirtir.

ItemIndex : Seçili elemanın sıra numarasını verir. Eğer seçili eleman yoksa -1 değerini alır.

Items : ComboBoxın elemanlarını kullanmak/değiştirmek için kullanılır. Memonun Lines özelliğiyle aynıdır. Bu özellikle ilgili ayrıntılı bilgi için Memo bileşenini inceleyebilirsiniz.

MaxLength : Kullanıcının edit kısmına girebileceği maksimum karakter sayısını verir.

Style : ComboBox ın tipini belirler.

csSimple : Edit bileşenine benzer. Ama AutoComplete özelliği hala kullanılabilir.

elemanları seçmek için ok tuşları kullanılabilir.

csDropDown : Bileşenin metin girebileceği bir Edit kısmı vardır. Ama elemanların göründüğü

bir açılır liste de vardır.

csDropDownList : Sadece elemanların seçilebileceği bir açılır liste vardır. Kullanıcının

metin girebileceği bir Edit kısmına sahip değildir.

Text : Bileşenin Edit kısmında görünen metni (seçilen elemanı) verir.

Olaylar (Events)

OnChange : Bileşenin Edit kısmı değiştiğinde çağrılır.

OnDropDown : Kullanıcı bileşenin sağındaki küçük ok işaretine basarak veya başka bir şekilde listeyi açtığında çağrılır.

OnSelect : Kullanıcı listeden bir eleman seçtiğinde çağrılır.

Paylaş

Benzer Yazılar

• Visual Studio.Net ComboBox Kontrolü

Columns : Elemanların kaç sütun kullanılarak gösterileceğini belirtir.

Aşağıda Columns özelliği 1, 2, 3 olan ListBox lar gösterilmiştir.

ItemHeight : Pixel cinsinden bir elemanın yüksekliğini verir. (Style özelliği OwnerDraw ise)

Items : ListBoxın elemanlarını kullanmak/değiştirmek için kullanılır. Memonun Lines özelliğiyle aynıdır. Bu özellikle ilgili ayrıntılı bilgi için Memo bileşenini inceleyebilirsiniz.

MultiSelect : Kullanıcının aynı anda birden çok elemanı seçebilmesini sağlar.

Sorted : Eğer true ise elemanlar alfabetik olarak sıralanır.

Style : Bileşenin stilini belirtir. Basit Liste Kutuları için lbStandard kullanılır.

Count : ListBoxdaki eleman sayısını verir.

ItemIndex : ListBoxdaki seçili elemanın sırasını verir. İlk elemanın sıra numarası 0 dır. Eğer Seçili eleman yoksa ItemIndex -1 olur.

Aşağıdaki kodlar ListBox1 de çift tıklanan elemanın ListBox2 ye taşınmasını sağlar.

procedure TForm1.ListBox1DblClick(Sender: TObject);

begin

ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

SelCount : Eğer çoklu seçime izin verildiyse, seçili eleman sayısını verir.

Selected[n] : n. elemanın seçili olup olmadığını verir.

Aşağıdaki kodlar ListBox1 deki seçili elemanların Memo1 e eklenmesini sağlar.

procedure TForm1.Button1Click(Sender: TObject);

var

i : Integer;

begin

if ListBox1.SelCount=0 then

Exit;

for i:=0 to ListBox1.Count-1 do

if ListBox1.Selected[i] then

Memo1.Lines.Add(ListBox1.Items[i]);

end;

TopIndex : Herhangi bir anda ListBoxın en üstünde görünen elemanın sıra numarasını verir.

Aşağıdaki kodlar ListBox1 in kaydırılarak son elemanlarının görünmesini sağlar.

ListBox1.TopIndex := ListBox1.Count-1;

Paylaş

Benzer Yazılar

• Delphide Not Defteri Nasıl Yapılır
• Delphi Memo Bileşeni
• Delphi Idle Olayı Yaratarak Projeyi Kontrol Etmek
• Delphi InputQuery Fonksiyonu
• Delphi Mesaj Pencereleri : ShowMessageFmt

Menüler

Dosya Ayarlar Görünüm

Araçlar
procedure TForm1.FormCreate(Sender: TObject);

begin

combobox1.Items.Assign(screen.Fonts);

if FileExists(‘1.txt’) then

Memo1.Lines.LoadFromFile(‘1.txt’);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

memo1.Font.Name:=combobox1.Text

end;

procedure TForm1.A1Click(Sender: TObject);

begin

if fileexists(edit1.text) then

memo1.Lines.LoadFromFile(edit1.text)

else

showmessage(‘Dosya Bulunamadı!..’);

end;

procedure TForm1.Kaydet1Click(Sender: TObject);

begin

memo1.Lines.SaveToFile(edit1.Text);

end;

procedure TForm1.k1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Sa1Click(Sender: TObject);

begin

memo1.Alignment :=(taRightjustify);

end;

procedure TForm1.Sol1Click(Sender: TObject);

begin

memo1.Alignment :=(tacenter);

end;

procedure TForm1.Sol2Click(Sender: TObject);

begin

memo1.Alignment :=(taleftjustify);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

memo1.Clear;

end;

procedure TForm1.SzckKsydr1Click(Sender: TObject);

begin

memo1.WordWrap:= not memo1.WordWrap;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if memo1.SelLength > 0 then

memo1.SelText:=’<U>’ + memo1.SelText + ‘</U>’

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if memo1.SelLength > 0 then

memo1.SelText:=’<B>’ + memo1.SelText + ‘</B>’

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if memo1.SelLength > 0 then

memo1.SelText:=’<I>’ + memo1.SelText + ‘</I>’

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if memo1.SelLength > 0 then

memo1.SelText:=’<H1>’ + memo1.SelText + ‘</H1>’

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

if memo1.SelLength > 0 then

memo1.SelText:=’<H2>’ + memo1.SelText + ‘</H2>’

end;

procedure TForm1.Siyah1Click(Sender: TObject);

begin

MEMO1.Font.Color:=clblack;

end;

procedure TForm1.Beyaz1Click(Sender: TObject);

begin

MEMO1.Font.Color:=clwhite;

end;

procedure TForm1.Krmz1Click(Sender: TObject);

begin

MEMO1.Font.Color:=clred;

end;

procedure TForm1.Mavi1Click(Sender: TObject);

begin

MEMO1.Font.Color:=clblue;

end;

procedure TForm1.Yeil1Click(Sender: TObject);

begin

MEMO1.Font.Color:=clgreen;

end;

procedure TForm1.Beyaz2Click(Sender: TObject);

begin

MEMO1.Color:=clwhite;

end;

procedure TForm1.Sar1Click(Sender: TObject);

begin

MEMO1.Color:=clyellow;

end;

procedure TForm1.Siyah2Click(Sender: TObject);

begin

MEMO1.Color:=clblack;

end;

procedure TForm1.Kaln1Click(Sender: TObject);

begin

if fsbold in memo1.Font.Style then

memo1.Font.Style:=memo1.Font.Style -[fsbold]

else

memo1.Font.Style:=memo1.Font.Style +[fsbold]

end;

procedure TForm1.Altizili1Click(Sender: TObject);

begin

if fsunderline in memo1.Font.Style then

memo1.Font.Style:=memo1.Font.Style -[fsunderline]

else

memo1.Font.Style:=memo1.Font.Style +[fsunderline]

end;

procedure TForm1.Eik1Click(Sender: TObject);

begin

if fsitalic in memo1.Font.Style then

memo1.Font.Style:=memo1.Font.Style -[fsitalic]

else

memo1.Font.Style:=memo1.Font.Style +[fsitalic]

end;

procedure TForm1.N81Click(Sender: TObject);

begin

memo1.Font.Size:=8;

end;

procedure TForm1.N101Click(Sender: TObject);

begin

memo1.Font.Size:=10;

end;

procedure TForm1.N121Click(Sender: TObject);

begin

memo1.Font.Size:=12;

end;

procedure TForm1.N141Click(Sender: TObject);

begin

memo1.Font.Size:=14;

end;

procedure TForm1.N161Click(Sender: TObject);

begin

memo1.Font.Size:=16;

end;

procedure TForm1.N201Click(Sender: TObject);

begin

memo1.Font.Size:=18;

end;

procedure TForm1.N202Click(Sender: TObject);

begin

memo1.Font.Size:=20;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

memo1.Lines.Insert(0,’<Img Src=”‘ + edit1.text + ‘”‘ + ‘ ‘+ ‘Height=’+'”‘+ edit2.text + ‘”‘ + ‘ ‘ + ‘Width=’+ ‘”‘+edit3.text + ‘”‘ +’>’);

end;

procedure TForm1.SatrNo1Click(Sender: TObject);

var

i: integer;

begin

for i:= 0 to memo1.Lines.Count -1 do

Memo1.Lines[i] := IntToStr(i) + ‘. ‘ + Memo1.Lines[i];

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Memo1.Lines.SaveToFile(‘1.txt’);

end;

Paylaş

Benzer Yazılar

• Delphi Listbox Bileşeni Özellikleri
• Delphi Memo Bileşeni
• Delphi Idle Olayı Yaratarak Projeyi Kontrol Etmek
• Delphi InputQuery Fonksiyonu
• Delphi Mesaj Pencereleri : ShowMessageFmt

ClearSelection : Memo daki seçili yazıyı siler.

CopyToClipboard : Seçili yazıyı panoya kopyalar.

CutToClipboard : Seçili yazıyı panoya taşır.

PasteFromClipboard : Panodaki yazıyı Memoya (imleç pozisyonuna veya seçili yazı yerine) kopyalar.

SelectAll : Memodaki bütün yazının seçili olmasını sağlar.

ClearUndo : Memoda o ana kadar yapılan değişikliklerin Undo metodu kullanılarak geri alınabilmesini engeller.

Undo : ClearUndo metodunun son çağrılmasından itibaren yapılan değişiklikleri geri alır.

Örnek

Aşağıda Windows Not Defteri / NotePad benzeri bir uygulamanın form tasarımı ve kaynak kodları verilmiştir.

//DOSYA AÇ VE DOSYA ADINI BAŞLIKTA GÖSTER

procedure TForm1.A1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Caption := ExtractFileName(OpenDialog1.FileName);

Memo1.Modified := false;

end;

end;

//DOSYAYI KAYDET VE DOSYA ADINI BAŞLIKTA GÖSTER

procedure TForm1.Kaydet1Click(Sender: TObject);

begin

if SaveDialog1.Execute then

begin

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Caption := ExtractFileName(SaveDialog1.FileName);

Memo1.Modified := false;

end;

end;

//TEMİZLE (BÜTÜN YAZILARI SİL)

procedure TForm1.Temizle1Click(Sender: TObject);

begin Memo1.Clear; end;

//PROGRAMI KAPAT

procedure TForm1.Kapat1Click(Sender: TObject);

begin Close; end;

//SEÇİLİ YAZIYI KES

procedure TForm1.Kes1Click(Sender: TObject);

begin Memo1.CutToClipboard; end;

//SEÇİLİ YAZIYI KOPYALA

procedure TForm1.Kopyala1Click(Sender: TObject);

begin Memo1.CopyToClipboard; end;

//YAPIŞTIR

procedure TForm1.Yaptr1Click(Sender: TObject);

begin Memo1.PasteFromClipboard; end;

//HEPSİNİ (YAZILARIN TAMAMINI) SEÇ

procedure TForm1.mnSe1Click(Sender: TObject);

begin Memo1.SelectAll; end;

//SEÇİLİ YAZILARI SİL

procedure TForm1.SeiliOlanSil1Click(Sender: TObject);

begin Memo1.ClearSelection; end;

//SEÇİLİ YAZI YERİNE (VEYA İMLEÇ POZİSYONUNA) TARİH EKLE

procedure TForm1.arihEkle1Click(Sender: TObject);

begin

Memo1.SelText := DateToStr(Now);

end;

//SEÇİLİ YAZI YERİNE (VEYA İMLEÇ POZİSYONUNA) ZAMAN EKLE

procedure TForm1.ZamanEkle1Click(Sender: TObject);

begin

Memo1.SelText := TimeToStr(Now);

end;

//YAZI TİPİNİ DEĞİŞTİR

procedure TForm1.YazTipi1Click(Sender: TObject);

begin

if FontDialog1.Execute then

Memo1.Font := FontDialog1.Font;

end;

//YAZI RENGİNİ DEĞİŞTİR

procedure TForm1.YazRengi1Click(Sender: TObject);

begin

if ColorDialog1.Execute then

Memo1.Font.Color := ColorDialog1.Color;

end;

//ARKAPLAN RENGİNİ DEĞİŞTİR

procedure TForm1.ArkaplanRengi1Click(Sender: TObject);

begin

if ColorDialog1.Execute then

Memo1.Color := ColorDialog1.Color;

end;

//SÖZCÜK KAYDIRMA ÖZELLİĞİNİ DEĞİŞTİR

//YATAY KAYDIRMA ÇUBUĞUNUN GÖRÜNÜP GÖRÜNMEYECEĞİNİ BELİRLE

procedure TForm1.SzckKaydr1Click(Sender: TObject);

begin

Memo1.WordWrap := not Memo1.WordWrap;

if Memo1.WordWrap then

Memo1.ScrollBars := ssVertical

else

Memo1.ScrollBars := ssBoth;

end;

//SOLA HİZALA

procedure TForm1.Sol1Click(Sender: TObject);

begin Memo1.Alignment := taLeftJustify; end;

//SAĞA HİZALA

procedure TForm1.Sa1Click(Sender: TObject);

begin Memo1.Alignment := taRightJustify; end;

//ORTALA

procedure TForm1.Orta1Click(Sender: TObject);

begin Memo1.Alignment := taCenter; end;

//PROGRAM KAPANIRKEN, EĞER DEĞİŞİKLİK YAPILMIŞSA KAYDETMEYİ ÖNER

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if Memo1.Modified then

if ID_YES=Application.MessageBox(‘Kaydetmeden Çıkmak İstiyor musunuz?’,

‘Uyarı’, MB_YESNO) then

Action := caFree

else

Action := caNone;

end;

//YAZININ KALIN ÖZELLİĞİNİ EKLEME KALDIRMA

procedure TForm1.Button1Click(Sender: TObject);

begin

If fsbold in memo1.font.style then

Memo1.font.style:=memo1.font.style -[fsbold]

Else

Memo1.font.style:=memo1.font.style +[fsbold]

end;

//MEMO BİLEŞENİNE FONT RENGİ VERME

Memo1.font.color:=clred;

MEMO BİLEŞENİNDE SEÇİLİ YAZININ SEÇİM UZUNLUĞUNU BULMA EDİT E YAZDIRMA

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:=inttostr(memo1.selstart) + ‘ ‘ +

inttostr(memo1.sellength)+ ‘ ‘ +

memo1.SelText;

end;

Paylaş

Benzer Yazılar

• Delphi Memo Bileşeni

Özellikler (Properties)

Alignment : Bileşen içindeki yazıların sağa, sola hizalanmasını veya ortalanmasını sağlar.

HideSelection : Bileşen aktif değilken, seçili metnin (eğer varsa) seçili olarak görünmesini sağlar. Eğer true ise seçili metin sadece bileşen aktifken seçili olarak görünür.

MaxLength : Memo ya girilebilecek maksimum karakter sayısı.

ScrollBars : Memo nun hangi kaydırma çubuklarına (yatay, dikey) sahip olacağını belirtir.

WantReturns : True ise bir alt satıra geçmek için ENTER tuşu kullanılabilir.

WantTabs : True ise bileşen içinde TAB karakteri yazabilmek için TAB tuşunun kullanılmasına izin verir. (Normalde TAB tuşuna basıldığında kontrol başka bir bileşene geçer.)

WordWrap : True ise bir satır dolduğunda otomatik olarak alt satıra geçmeyi sağlar. False ise aynı satırda devam eder. Yazının tamamını görmek için kaydırma çubuklarını kullanmak gerekir.

CaretPos : İmlecin karakter cinsinden pozisyonunu verir. Aşağıdaki kodlar Formun başlığında imlecin hangi satırda ve kaçıncı karakterde olduğunu yazar.

Form1.Caption := IntToStr(Memo1.CaretPos.Y) + ‘. satır, ‘ +

IntToStr(Memo1.CaretPos.X) + ‘. karakter’;

Modified : Memodaki yazılarda değişiklik yapılıp yapılmadığını belirtir.

SelLength : Seçili metnin kaç karakterden oluştuğunu verir.

SelStart : Seçili olan ilk karakterin pozisyonunu verir. (0, 1, 2 gibi…) Seçilmiş metin yoksa, imlecin pozisyonunu verir.

SelText : Seçili olan metni verir.

Aşağıdaki kod, Memo1 bileşenindeki seçili metni büyük harfe çevirir.

Memo1.SelText := AnsiUpperCase(Memo1.SelText);

Aşağıdaki kod, Memo1 bileşenindeki seçili metne parantezler ekler

Memo1.SelText := ‘(‘ + Memo1.SelText + ‘)’;

Lines : TStrings tipinden, Memo daki satırları belirtir. Her elemanı Memonun bir satırı olan bir dizi gibi kullanılabilir. ListBox ve ComboBox bileşenlerinin Items özelliği de aynı olduğundan Lines ın özellikleri ve metodları aşağıda açıklanmıştır.

___.Lines[SatırNo] : SatırNo numaralı satıra ulaşmak için kullanılır.

Aşağıdaki kodlar Memo1 in ilk satırının başına ve sonuna * karakterleri ekler.

Memo1.Lines[0] := ‘*’ + Memo1.Lines[0] + ‘*’;

___.Lines.Count : Satır sayısını verir.

___.Lines.Strings[SatırNo] : Lines[SatırNo] gibi SatırNo numaralı satıra ulaşmak için kullanılır.

___.Lines.Text : Satırların tamamını bir tek string olarak ifade edebilmek için kullanılır.

___.Lines.Values[str] : Genellikle ayar dosyalarını işlemek için kullanılır. İçeriği aşağıdaki gibi olan Memo1 bileşeni için

En=5

Boy=7

Renk=Kırmızı

Ders=Delphi

Aşağıdaki kodlar çalıştırılırsa, formun başlığına Kırmızı yazılır.

Form1.Caption := Memo1.Lines.Values['Renk'];

___.Lines.Add(str) : str adlı string son satır olarak eklenir.

Aşağıdaki kodlar Memo1 in sonuna günün tarihini ekler

Memo1.Lines.Add(DateToStr(Now));

___.Lines.AddStrings(StrList) : Başka bir TStrings deki satırları ekler.

Aşağıdaki kodlar Memo2 ye Memo1 içindeki satırları ekler

Memo2.Lines.AddStrings(Memo1.Lines);

___.Lines.Assign(StrList) : Başka bir TStrings deki satırlara eşitler.

Aşağıdaki kodlar Memo2 nin Memo1 ile aynı içeriğe sahip olmasını sağlar.

Memo2.Lines.Assign(Memo1.Lines);

___.Lines.Clear : Satırları siler. (Bileşenin içeriğinin boş olmasını sağlar)

Aşağıdaki kodlar Memo1 bileşeninin içeriğini temizler

Memo1.Lines.Clear

___.Lines.Delete(n) : n. satırı siler.

Aşağıdaki kodlar Memo1 in 3. satırını siler.

Memo1.Lines.Delete(2);

___.Lines.Equals(StrList) : İki TStrings in eşit olup olmadığını bulur.

Aşağıdaki kodlar Memo1 ve Memo2 aynı içeriğe sahipse Formun başlığına EŞİT yazar.

if Memo1.Lines.Equals(Memo2.Lines) then

Caption := ‘EŞİT’;

___.Lines.Exchange(a, b) : a. ve b. satırı değiştirir.

Aşağıdaki kodlar Memo1 in içeriğini kabarcık sıralama yoluyla alfabetik olarak sıralar

procedure TForm1.Button1Click(Sender: TObject);

var

i, j : Integer;

s : String;

begin

for j:=Memo1.Lines.Count-2 downto 1 do

for i:=0 to j do

if Memo1.Lines[i]>Memo1.Lines[i+1] then

Memo1.Lines.Exchange(i, i+1);

end;

___.Lines.IndexOf(str) : str nin kaçıncı satır olduğunu bulur. Eğer str Memo1 içinde mevcut değilse -1 döndürür. Aşağıdaki kodlar Memo1 e (eğer yoksa) ‘Satır Sonu’ yazısını ekler

if Memo1.Lines.IndexOf(‘Deneme’) = -1 then

Memo1.Lines.Add(‘Satır Sonu’);

___.Lines.Insert(n, str) : n. satıra str metnini ekler.

Aşağıdaki kodlar Memo1 in ilk satırına o anki zamanı ekler.

Memo1.Lines.Insert(0, TimeToStr(Now));

___.Lines.LoadFromFile(DosyaAdi) : DosyaAdi adlı dosyadan yükler.

Aşağıdaki kodlar (eğer varsa) 1.txt dosyasını Memo1 e yükler.

if FileExists(‘1.txt’) then

Memo1.Lines.LoadFromFile(‘1.txt’);

___.Lines.Move(a, b) : a. satırı b. satıra taşır.

Aşağıdaki kodlar ilk satırı son satıra taşır

Memo1.Lines.Move(0, Memo1.Lines.Count-1);

___.Lines.SaveToFile(DosyaAdi) : DosyaAdi adlı dosyaya kaydeder.

Aşağıdaki kodlar Memo1 in içeriğini 1.txt dosyasına kaydeder.

Memo1.Lines.SaveToFile(‘1.txt’);

Paylaş

Benzer Yazılar

• Delphi Listbox Bileşeni Özellikleri
• Delphide Not Defteri Nasıl Yapılır
• Memo Bileşeni Metodları
• Delphi Idle Olayı Yaratarak Projeyi Kontrol Etmek
• Delphi InputQuery Fonksiyonu

Bu sorunu yaşayan arkadaşlar muhtemelen sorunlarının donanımsal olduğunu düşünüyorlar. Fakat sorun kesinlikle donanımsal değil.  Eğer Windows 7 kullanıyorsanız ve bilgisayarınız tam olarak 1 Mart 2010 tarihinden beri 2 saatte bir  kendini resetliyorsa sizde  Korsan Windows 7 kurbanı olmuşssunuz demektir. Evet bu kadar  kesin ve net konusuyorum.  Bilindiği üzere Microsoft firması Windows 7 ‘yi  satışa çıkarmadan önce kendi sitesinde  RC sürümü adı altında dağıtımlar yaptı ve  yurdum insanının büyük bir cogunluguda bu RC sürümleri full Windows 7 diye internetten indirdi ve kurdu.  Ve 1 Marttan itibaren olan oldu Bilgisayarlar  çıldırdı ve 2 saatte bir reset atmaya başladılar. Peki bu neden oldu ?

Fazla uzatmadan söyleyeyim. Microsoft  internetten dağıtımı yaptığı ve Türk Forumlarının bir coğunda full diye paylasıma acilan RC sürümünü verdiği desteği kesti.  Ve bir dogulama aracı sayesinde 1 Mart günü bu sürümleri kullananan  Windows 7 kullanıcılarını tespit etti ve o gün bu gündür bilgisayarlarımız 2 saatte bir kapanıyor. Peki bu sorundan nasıl kurtulursunuz.  Birincisi benim önerim Windows 7’nin bir sürümünü para verip edinmeniz. 2. bir yöntem  internetten Orjinal  Windows 7 Linklerini bulup bilgiayarınıza o sürümü  kurmanız. Bu şekilde sorunu aşabilirsiniz..

Herkese kolay gelsin ..

Paylaş

Rastgele Yazılar

• Css Dersleri : Backgorund Özellikleri
• Bug Nedir ?
• Asp.Net Button’nun OnClik Olayı İle Procedure Çağırma
• İşte Office 2010 Fiyatları
• Pes 2010 Sahada…