Форум: "Система";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
ВнизРазрешение экрана Найти похожие ветки
← →
Andrei1982 (2002-09-26 04:24) [0]Занимаясь дипломным проэктом, написал программу по изучения протокола передачи пакетов Х.25 - своего рода наглядная лабораторная работа.
Возникла проблемма: "На машинах, где разрешение менее 1024/768 программой не удобно пользоваться".
Посоветййте как можно справиться с этим не прибегая к громоздкой подстройке размеров всех форм и элементов управления под разрешение экрана.
Заранее спасибо. Davydov Andrei (ALF)
← →
МИФИст (2002-09-26 11:35) [1]при запуске программы меняй разрешение, при выходе возвращай назад =)
или выкидывай табличку что программа должна работать при таком то разрешении =)
← →
Nick N A (2002-10-26 07:09) [2]
unit vmode;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Spin;
const MaxVideoModes = 200; // это не очень актуально
type TVideoMode = record
Width,
Height,
ColorDepth : Word;
Description : String[20];
end;
var VideoModes : array[0..MaxVideoModes] of TVideoMode;
NumberVideomodes : Integer = 1;
ScreenModeChanged:boolean;
type
TForm1 = class(TForm)
SpinEdit1: TSpinEdit;
Button1: TButton;
SpinEdit2: TSpinEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var ModeIndex: Integer;
DeviceMode : TDevMode;
Result:boolean;
begin
mODEiNDEX:=sPINeDIT1.Value;
with DeviceMode do
begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=16;//VideoModes[ModeIndex].ColorDepth;
dmPelsWidth:=Spinedit1.Value;//VideoModes[ModeIndex].Width;
dmPelsHeight:=Spinedit2.Value;//VideoModes[ModeIndex].Height;
dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
// при неудачной смене режима переходим в режим текущего разрешения
Result:=(ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL);
if Result then ScreenModeChanged:=True;
if ModeIndex = 0 then ScreenModeChanged:=False;
end;
end;
end.
Удачи
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c