fdisplay.pas

系统目标：通过库存管理系统

unit Fdisplay;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TF_display = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_display: TF_display;
  pmode:TDeviceMode;
  count:integer;
implementation

{$R *.dfm}

procedure TF_display.FormCreate(Sender: TObject);
begin
  count:=0;
  while EnumDisplaySettings(nil,count,pmode) do
  begin
    if Combobox1.Items.IndexOf(inttostr(pmode.dmPelsWidth))=-1 then
      Combobox1.Items.Add(inttostr(pmode.dmPelsWidth));
    if Combobox2.Items.IndexOf(inttostr(pmode.dmPelsHeight))=-1 then
      Combobox2.Items.Add(inttostr(pmode.dmPelsHeight));
    if Combobox3.Items.IndexOf(inttostr(pmode.dmBitsPerPel))=-1 then
      Combobox3.Items.Add(inttostr(pmode.dmBitsPerPel));
    if Combobox4.Items.IndexOf(inttostr(pmode.dmDisplayFrequency))=-1 then
      Combobox4.Items.Add(inttostr(pmode.dmDisplayFrequency)) ;
    inc(count);
  end;
  Combobox1.ItemIndex:=0;
  Combobox2.ItemIndex:=0;
  Combobox3.ItemIndex:=0;
  Combobox4.ItemIndex:=0;
end;

procedure TF_display.BitBtn1Click(Sender: TObject);
begin
  pmode.dmPelsWidth:=strtoint(Combobox1.Text);
  pmode.dmPelsHeight:=strtoint(Combobox2.Text);
  pmode.dmBitsPerPel:=strtoint(Combobox3.Text);
  pmode.dmDisplayFrequency:=strtoint(Combobox4.Text);
  ChangeDisplaySettings(pmode,0);
end;

procedure TF_display.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

end.