VPF::Размеры и разрешения - Форум программистов

Pakshin A. S.

Дата 20.7.2003, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

Вот исходник мини-программы, его можно немного переделать:

Код


unit Unit1;

interface

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

type
  PDmArray = ^TDmArray;
  TDmArray = array [0..0] of TDeviceMode;
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    lpDMArray: PDmArray;
    NumModes: integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
 MoreModes: boolean;
 dm: TDeviceMode;
begin
 Memo1.Lines.Cloar;
 MoreModes:=true;
 i:=0;
 while MoreModes do
  begin
   MoreModes:=EnumDisplaySettings(nil, i, dm);
   Memo1.Lines.Add(' Mode ' + IntToStr(i) + ': ' + IntToStr(dm.dmBitsPerPel) + ' Bits Per Pixel ' + IntToStr(dm.dmPelsWidth) + ' x ' + IntToStr(dm.dmPelsHeight));
   inc(i);
  end;
 NumModes:=i;
 SpinEdit1.MaxValue:=NumModes;
 GetMem(lpDmArray, SizeOf(TDeviceMode) * NumModes);
 FillChar(lpDmArray^, SizeOf(TDeviceMode) * NumModes, #0);
 {$IFOPT R+}
 {$DEFINE CKRANGE}
 {$R-}
 {$EDNIF}
 for i:=0 to (NumModes - 1) do
  EnumDisplaySettings(nil, i, lpDmArray[i]);
 {$IFDEF CKRANGE}
 {$UNDEF CKRANGE}
 {$R+}
 {$ENDIF}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 ReturnVal: LongInt;
begin
 {$IFOPT R+}
 {$DEFINE CKRANGE}
 {$R-}
 {$ENDIF}
 ReturnVal:=ChangeDisplaySettings(lpDmArray[SpinEdit1.Value], CDS_UPDATEREGISTRY);
 {$IFDEF CKRANGE}
 {$UNDEF CKRANGE}
 {$R+}
 {$ENDIF}
 with Memo1.Lines do
  case ReturnVal of
   DISP_CHANGE_SECCESSFUL: {};
   DISP_CHANGE_RESTART:        {};
   DISP_CHANGE_BADFLAGS:      {};
   DISP_CHANGE_FAILED:           {};
   DISP_CHANGE_BADMODE:       {};
   DISP_CHANGE_NUTUPDATED:  {};
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 FreeMem(lpDmArray, SizeOf(TDeviceMode) * NumModes);
end;

end.

Pakshin A. S.

Дата 20.7.2003, 20:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

Зато весело было бы...

Pakshin A. S.

Дата 20.7.2003, 20:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

А если поставить форму без изменения размеров, т. е. что-то вроде BorderStyle=bsSingle или BorderStyle=bsToolWindow... должно работать.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »