Delphide Ekran çözünürlüğünün değiştirilmesi - Delphi / Kylix Webmaster bilgi bankası, knowledge base Webmaster Araçları

AnaSayfa > Delphi / Kylix > Delphide Ekran çözünürlüğünün değiştirilmesi
Kategori: Delphi / Kylix
Gönderen: Admin
Tarih: 2011-02-20
Puan: 0   Puan:0 | Katılımcı:0 | Katılımcı : 0
Okunma: 3014
  
 
1 puan 2 puan 3 puan 4 puan 5 puan 6 puan 7 puan 8 puan 9 puan 10 puan

Programınızdan ekran çözünürlüğünü değiştirmek isterseniz yararlı bir kod.

{Ekran Çözünürlüğü Örneği-PC'nizin Mevcut Ekran Ayarları}

// AnaForm üzerine ListBox1 ve Button1 bileşenlerini yerleştirin

{Ana formun OnCreate olayı}

procedure TForm1.FormCreate(Sender: TObject);

var

i : Integer;

DevMode : TDevMode;

begin

Button1.Enabled:=False;

i := 0;

while EnumDisplaySettings(nil,i,Devmode) do begin

with Devmode do

ListBox1.Items.Add(Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]));

Inc(i);

end;

end;

{ListBox1'in Onclick olayı}

procedure TForm1.ListBox1Click(Sender: TObject);

// Listede istenilen çözünürlük değeri seçildiğinde Button1'de kullanır hale getir

begin

Button1.Enabled := Listbox1.ItemIndex >= 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

// Seçilen çözünürlük değerini değerini uygula

var


DevMode : TDevMode;

begin


EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);

ChangeDisplaySettings(DevMode,0);

end;

Ekran çözünürlüğünün ekran tarafından desteklenmeyen değerlere ayarlanması ekranınızın bozulmasına neden olabilir.





Yorumlar
Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin!
Yorum Ekleme Aparatı
Yorum Eklemek için lütfen sol menuden giris yapınız..
Toplam 0 yorum listelendi.