Mega Code Archive
Ekran cözünürlügünün degistirilmesi
<![CDATA[
// AnaForm üzerine ListBox1 ve Button1 bilesenlerini yerlestiriniz
{Ana formun OnCreate olayi}
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 olayi}
procedure TForm1.ListBox1Click(Sender: TObject);
// Listede istenilen cözünürlük degeri secildiginde Button1'de kullanir hale getir
begin
Button1.Enabled := Listbox1.ItemIndex >= 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
// Secilen cözünürlük degerini degerini uygula
var
DevMode : TDevMode;
begin
EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);
ChangeDisplaySettings(DevMode,0);
end;
]]>