Bu eklenti wordpress eklenti dizininden indirilip kullanılabilir fakat türkçe karakterleri desteklemediğinden pek bir işimize yaramayacaktır (yazının sonundaki notu okuyun). Eklenti yapımcısı Roy Tanck ın yardımlarıyla eklentiyi türkçe karakterlere uyumlu hale getirdim. Türkçe desteği eklemişken eklentiyi bütünüyle türkçeye çevirdim. Wp Cumulus eklentisi türkçe olarak 1.18 versiyonu şuradan indirilebilir.

Eklentinin kullanımı oldukça kolay. Genel olarak kullanımı şurada anlatılmış. Sitenin herhangi bir yerinde gösterilmek için şu kod kullanılabilir.

<?php wp_cumulus_insert(); ?>

Widgest desteği olan temalarda çok daha rahat bir kullanımı mevcut.

Bayram hediyesi olarak görülebilir :)

Düzenleme linkteki dosyalar 1.16 sürümüne güncellendi.

Düzenleme 2 linkteki dosyalar 1.17 sürümüne güncellendi.

Düzenleme 3 linkteki dosyalar 1.18 sürümüne güncellendi.

Not: Eklenti yeni sürümlerinde Roy sayesinde türkçe karakter desteğine otomatik sahip olacak. yalnız eklenti ayarları ingilizce olarak karşınıza çıkacak. fakat ayarlar çok basit olduğundan çoğu kişinin altından kalkabileceğini düşünüyorum… yine de sorun yaşayanlara yardımcı olmaya çalışacağım

program : isim Fransızca programme

Eğer türkçe konuşulmak isteniyorsa neden daha uygun, türkçe kökenli bir kelime aranmıyor?

Ben gerçekten öğrenmek istiyorum.

Türkçenin yanlış kullanıldığı için kızmıyorum mesela eğlence yerine eylence, Herkes yerine herkez yazanların nedenini merak etmiyorum. “Öyle duyuyor, öyle yazıyor” ama program yerine proğram yazmak özel bir ilgi gerektiriyor bi yerden doğrusu bu diye duymak gerekli. En son bir öğretmenin blogunda gördükten sonra aklıma takıldı nerden geliyor bu proğram.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ALScrollingText;

type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function sesli(harf:string):boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}

function tform1.sesli(harf:string):boolean;
begin
result:=false;
if harf='a'then result:=true;
if harf='e'then result:=true;
if harf='ı'then result:=true;
if harf='i'then result:=true;
if harf='o'then result:=true;
if harf='ö'then result:=true;
if harf='u'then result:=true;
if harf='ü'then result:=true;
if harf='A'then result:=true;
if harf='E'then result:=true;
if harf='I'then result:=true;
if harf='İ'then result:=true;
if harf='O'then result:=true;
if harf='Ö'then result:=true;
if harf='U'then result:=true;
if harf='Ü'then result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Memo2.Text := EmptyStr;
for i := 1 to length(Memo1.Text) do
begin
if
not sesli(copy(Memo1.Text,i,1))
and sesli(copy(Memo1.Text,i+1,1))
and not (copy(Memo1.Text,i,1)=' ')
and not (copy(Memo1.Text,i-1,1)=' ')
and not (copy(Memo1.Text,i+1,1)=' ')
then
begin
Memo2.text := Memo2.text+'-';
end;
if sesli(copy(memo1.Text,i,1))
and sesli(copy(memo1.Text,i-1,1))
then
begin
Memo2.text := Memo2.text+'-';
end;
Memo2.Text := Memo2.Text + copy(Memo1.Text,i,1);
end;

if copy(Memo2.Text,1,1) = '-' then
begin
Memo2.Text := copy(Memo2.Text,2,length(Memo2.text)-1);
end;
end;
end.