Başlangıç > Kodlar > Delphi ile Ekran çözünürlüğünü değiştirmek

Delphi ile Ekran çözünürlüğünü değiştirmek

Form üzerine Button1 adlı bir buton koyun. Button1'in OnClick Event'ine aşağıdaki kodu yazın.


procedure TForm1.Button1Click(Sender: TObject);
var
dev1:TDeviceModea;
begin
enumdisplaysettings(nil,0,dev1);
dev1.dmpelswidth := 320;
dev1.dmpelsheight := 200;
dev1.dmFields := DM_PELSWIDTH + DM_PELSHEIGHT;
changedisplaysettings(dev1,0);
end;

dmPelsWidth ve dmPelsHeight değerleri ekran yatay ve dikey çözünürlüğünü belirler. Yapılan değişiklikler dmFields'de toplanarak belirtilmelidir.dev1 sınıfında ekran tazeleme hızı, renk derinliği vb. değerlerde var.

Ertan Tike


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: