Free Pascal for Iphone :)
Salı, 24 Mar 2009
arşiv
‘Kol-Ce’ kategorisi için arşiv
Samsung Omnia i900 Sensor
Pazar, 22 Mar 2009
Benim gibi bir Omnia’nız varsa Gsensördenen gelen verilerin nasıl okunacağını merak etmiş olabilirsiniz. Samsung bunu driver olarak sorunuyor ve ACS1 yoluyla bir driver file oluşturuyormuş.
devamını oku…
Kol-Ce ve Klavye
Pazar, 22 Mar 2009
Ekran klavyesi Pocket Pc lerin çoğunda normal klavye olmadığı için çok önemlidir. Yaptığımız projelerde ekran klavyesine kolay ulaşmak için bir unit oluşturdum. Bu unit Free Pascal ekibi taradından çevirilen SIPApi.h yi kullanıyor. Yani Pocket pc 2000 den sonrasını destekliyor.
devamını oku…
KOL-Ce ve Sqlite
Cumartesi, 21 Mar 2009
Sqlite bir çok sisteme port edilmiş durumda ve kullanımı çok yaygın. Özellikle yapısı itibarı ile küçük sistemler için bayağı uygun. Hafızada çok az yer kaplaması ve çok hızlı olması nedeniyle de tercih ediliyor.
devamını oku…
KOL-Ce Tam Ekran Yapma
Cumartesi, 21 Mar 2009
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;
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;
Kullanmak için formun oluşturulurken şunları yazın..
procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
form.CreateWindow;
TamEkran;
end;
begin
form.CreateWindow;
TamEkran;
end;
Eğer sistem wince ise taskbar’ ı tekrar göstermemiz gerekiyor..
procedure TForm1.KOLForm1Close(Sender: PObj; var Accept: Boolean);
begin
if CePlatform=cpWinCE then ShowWindow(findwindow(‘HHTaskBar’,”),SW_SHOWNORMAL);
begin
if CePlatform=cpWinCE then ShowWindow(findwindow(‘HHTaskBar’,”),SW_SHOWNORMAL);
end;
KOL-Ce birden fazla form kullanmak.
Cumartesi, 21 Mar 2009
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.
procedure TForm1.Button2Click(Sender: PObj);
var
yeni: PForm2;
begin
try
NewForm2(yeni, Applet);
yeni.form.ShowModal;
finally
yeni.form.free;
end;
end;
var
yeni: PForm2;
begin
try
NewForm2(yeni, Applet);
yeni.form.ShowModal;
finally
yeni.form.free;
end;
end;
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
Salı, 17 Mar 2009
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.