Programalama > DELPHI

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                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.