Sayfa: [1]   Aşağı git
  Yazdır  
Gönderen Konu: Ekran çözünürlüğünü ayarlama  (Okunma Sayısı 288 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
NeverFear
Acemi Üye
**

Karma: 0
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 30



Üyelik Bilgileri
« : 06 Ağustos 2008, 00:05:14 »

Eğer programınızın ana formunun boyutlarıyla, müşterinizin oynamasını istemiyorsanız;
1. Ana Form ve altından açılan formların özelliklerini;
   a) AutoSize -> False
   b) BorderIcons\biMaximize -> False
   c) BorderSytle -> bsSingle
   d) Position -> poScreenCenter şeklinde değiştirebilirsin.
2. Tasarı(design) durumundayken Ana Form üzerine yerleştirdiğin Panel, Image .. v.b.
   bileşenlerin değişik ekran çözünürlüklerinde görüntü durumlarının pozisyonlarını
   belirleyin.
   Örn.: Ana Form yüksekliği 600, genişliği 800 ... gibi.
       Label1\Left -> 15, StatusBar1\Panels[0]\Width -> 695 ... gibi.
3. Bütün hazırlıklarınızı tamamladıktan sonra, ana formunuzun FormCreate yordamına;
Kod:
  with frm_AnaMenu do
  begin
if (Screen.Width = 640) and (Screen.Height = 480) then
begin
   Height:= 480; Width:= 640;
end
else if (Screen.Width = 800) and (Screen.Height = 600) then
begin
   Height:= 480; Width:= 640; StatusBar1.Panels[0].Width:= 540;
end
else if (Screen.Width = 1024) and (Screen.Height = 768) then
begin
   Height:= 600; Width:= 800; StatusBar1.Panels[0].Width:= 695;
end
else if (Screen.Width > 1024) and (Screen.Height > 768) then
begin
   Height:= 600; Width:= 800; Label1.Top:= 470; Label1.Left:= 331;
   Label2.Left:= 290; Label3.Top:= 419; Label3.Left:= 82;
   StatusBar1.Panels[0].Width:= 695;
end;
  end;
benzeri şekilde bir kodlama yapmanız durumunda, müşterinize programınızın ekran
boyutlarıyla oynamasına imkan tanımamış olursunuz.
 
** Programınızın denetimi tamamiyle sizde olmalı. Kullanıcı, istem dışı davranışlarla
   program kırıcı olamamalı.
 
İşinizi görmesi dileğimle,
Çalışmalarınızda başarılar dilerim.
 
NeverFear - Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
Logged
Sayfa: [1]   Yukarı git
  Yazdır  
GoogleTagged

 
Gitmek istediğiniz yer: