Delphide renkli bir button yapalım.

Bu yazımızda Kol-Ce’ ye biraz ara verelim ve Delphi’ ye dönelim. Yaptığım bir projede renkli tuş gerekiyordu ve biraz uğraştıktan sonra gradient yapmaya karar verdim. Tümünü gradient yapınca pek güzel durmadı, bende Iphone telefonlarındaki table view lerde bulunan parçalı yani yarısını gradient diğer yarısınıda düz yapmaya karar verdim.
Okumaya devam et “Delphide renkli bir button yapalım.”

KOL-Ce Tam Ekran Yapma

[code lang=”Delphi”]
procedure Tform1.TamEkran;
begin
SHFullScreen(Form.Handle, SHFS_HIDETASKBAR or SHFS_HIDESTARTICON or SHFS_HIDESIPBUTTON);
DestroyWindow(SHFindMenuBar(Form.Handle));
ShowWindow(findwindow(‘HHTaskBar’, ”), SW_HIDE); // burası wince için.
MoveWindow(Form.Handle, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN), True);
MoveWindow(Form.Handle, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN), True);
Form.HasBorder := False;
end;

[/code]

Kullanmak için formun oluşturulurken şunları yazın..
[code lang=”Delphi”]
procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
form.CreateWindow;
TamEkran;
end;
[/code]

Eğer sistem wince ise taskbar’ ı tekrar göstermemiz gerekiyor..
[code lang=”Delphi”]
procedure TForm1.KOLForm1Close(Sender: PObj; var Accept: Boolean);
begin
if CePlatform=cpWinCE then    ShowWindow(findwindow(‘HHTaskBar’,”),SW_SHOWNORMAL);

end;[/code]

KOL-Ce birden fazla form kullanmak.

Tekrar Merhaba !

Kol-Ce projelerinde birden fazla form kullanmak için Dosya -> Yeni diyerek File altında Kol Form seçiyoruz. Lazarus otomatik formu oluşturacaktır, Hemen kayıt edilim ve istediğimiz bileşenleri üzerine koyalı.

Oluşturduğumuz formu çağırmak için aşağıdaki yolu izliyoruz.
[code lang=”Delphi”]
procedure TForm1.Button2Click(Sender: PObj);
var
yeni: PForm2;
begin
try
NewForm2(yeni, Applet);
yeni.form.ShowModal;
finally
yeni.form.free;
end;
end;
[/code]

Burada dikkat ettiyseniz oluşturulan herhangi bir forma formadi.form.özellik şeklinde ulaşıyoruz.

Bunun nedenlerini ileride antlatmaya çalışacağım.

İlgili dosylar.
Birdenfazlaform

Lazarus’a Kol-Ce Kurulumu

Lazarus ve KOL-Ce kurulumunda pek ayrıntılı bir şey yok ama yeni başlayanlar için kurulumu anlatmaya çalışacağım. Lazarus ticari bir uygulama olmadığı için her gün bir şeyler ekleniyor bunlardan en dikkat çekici meşhur KOL paketinin lazarusa eklenmesiydi. Artık KOL , KOL-Ce adı altında şimdi Pocket pc ve Wince için derlenebiliyor ve oluşan uygulamalar 40 kb civarında başlıyor. Bunun sayesinde C++ ile yarışabilecek uygulamalar yapmamız mümkün oluyor. En güzelide bir RAD ortamında çalışmamız. Böylelikle program geliştirme aşaması kısalmış oluyor. Teşekürler KOL-Ce ekibi.

Okumaya devam et “Lazarus’a Kol-Ce Kurulumu”

Lazarus ve Wince

Lazarus’ u sanırım bilmeyen yoktur. Delphi’ nin opensource hali 🙂
Ama Lazarus pascal dili hariç bence Delphi’ den oldukça farklı. En büyük farkı Delphi sadece Windows altında compile edebilirken (Kylix var ama sanırım pek kullanan olmadı. Benimde birkaç denemem olmuştu fakat pek başarılı değildi.) Lazarus tek biryede birçok sisteme compile yapabiliyor. Örneğin XP işletim sisteminde Mac OS için program yazabilirsiniz. Genelde platform taşıması da bayağı başarılı. Sadece compiler ayarlarınıda değiştirerek yazdığınız programı desteklenen bir sistem için tekrar hiç bir değişiklik olmadan compile edebilirsiniz. Benim çok hoşuma giden bir özelliği ise ARM tabanlı işlemciler barındıran Pocket PC ve Wince cihazlarına compile edebilmesi. Çoğu meşhur windows header çevrilmiş durumda. En iyiside bu header lar çevirilirken temel Pocket PC header ları baz alınmış. Bu bize ne sağlıyor yazdığınız program Pocket Pc 2003 veya Pocket PC 6.1 proda çalışabiliyor. Biliyorsunuz Microsoft bu işletim sistemlerinin yeni versiyonlarını çıkarırken coredll bir sürü yeni komut ekledi ve yeni komutların olduğu bir başlık dosyası eklenince eski sistemlerde çalışmaz. Tabi kendimiz yeni spesifik komutları ekleyebiliriz. İleride bununla ilgili örnek vermeye çalışacağım.
Okumaya devam et “Lazarus ve Wince”