Nvidia Temperature (Sıcaklık)
Pazar, 20 Ara 2009
Geçenlerde LG p510 dizüstü bilgisayar aldım, üzerinde iyi işlemci ve Nvidia GT 130 ekran kartı var. Bakalım oyunlarda nasıl diye bir iki oyun kurdum.
Pil Gadget
Salı, 22 Eyl 2009
Pil Gadget
Delphi 2010 ile graphics.pas genişletildi ve ayrıca GraphUtil.pas
eklendi.graphics.pas içinde png ve diğer formatlar için alpha kanalı daha düzgün
çizilmesi sağlandı. Ayrıca GraphUtil.pas içindede işe yarayacak bazı komutlar
eklendi, çoğu renk dönüşümleri, transparent image çizimleri, image
boyutlandırmaları ve GradientFillCanvas.
UpdateLayeredWindow II
Cuma, 11 Eyl 2009
Tekrar merhabalar. Bu yazımda bir önceki yazıda anlatmaya çalıştığım
UpdateLayeredWindow apisi ile Vista ve Win 7′ de gelen sidebardaki gadgets (küçük alet)
tarzı programların nasıl oluşturulabileceğini göstermek istiyorum.
UpdateLayeredWindow
Çarşamba, 09 Eyl 2009
Uzun aradan sonra yine merhaba.
Bu yazıda sizlere Windows 2000 den sonra desteklenen
UpdateLayeredWindow apisinden bahsetmek istiyorum.
devamını oku…
Free Pascal for Iphone :)
Salı, 24 Mar 2009
Delphide renkli bir button yapalım.
Salı, 24 Mar 2009
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.
devamını oku…
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;