Разрешение экрана

[Копоть Артём]

Здравствуйте!
Подскажите, пожалуйста, как программно устанавливать нужное разрешение.

[DomiNick]

Поменять разрешение в ОС или как бы полноэкранный режим для своего приложения?
И на каком языке делать-то?

[Копоть Артём]

Как бы полноэкранный режим для своего приложения ;-). Просто у меня компе разрешение 1920 на 1200 и у моих программ соответственное. А для других это не удобно (не влазит окно в монитор ;-)). Вот и думаю, что надо на время работы программы устанавливать конкретное разрешение, например: 1280 на 1024.
Я лично работаю на Delphi. Но вообще как вам удобно

[IT-man]

Как написать приложение, адекватно отображающееся на экранах с различным разрешением монитора

unit Main;

interface

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

type
  TForm1 = class(TForm)
  Button1: TButton;
  Edit1: TEdit;
  procedure Button1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    // Отлавливаем, сообщение о изменении разрешения экрана
    procedure WMDisplayChange(var message: TMessage); message WM_DISPLAYCHANGE;
  public
    { Public declarations }
    W, H: integer;
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Width := Round(Width * 1.5);
  Height := Round(Height * 1.5);
  ScaleBy(150, 100)
end;

procedure TForm1.WMDisplayChange(var message: TMessage);
begin
  inherited;
  Width := Round(Width * LOWORD(message.LParam) / W);
  Height := Round(Height * HIWORD(message.LParam) / H);
  ScaleBy(LOWORD(message.LParam), W);
  W := Screen.Width;
  H := Screen.Height;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  W := Screen.Width;
  H := Screen.Height;
end;

end.

[Копоть Артём]

Спасибо, конечно, только я трошки не понял текст кода. Для чего кнопка? и что делает? разьясните, если не сложно

[DomiNick]

>Полноэкранный режим<
>Полноэкранный режим формы<
На всякий случай:
>Как изменить разрешение экрана<

Но в таком случае, думаю, это не лучший вариант...
Просто узнавайте разрешение монитора и меняйте размеры в OnCreate (при создании формы)...

[Копоть Артём]

Спасибо большое! Обязательно попробую

[DomiNick]

Или можно сделать как один мой знакомый... Он правда где-то в И-Нете стырил этот вариант...

Делаем форму с BorderStyle=bsSizeable и пишем примерно такой код для каждого контрола в FormCreate и FormResize:

Var Form1: TForm1; Button1_W, Button1_H, Button1_L, Button1_T: Real;

...

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Button1_W:=Button1.Width/ClientWidth;
Button1_H:=Button1.Height/ClientHeight;
Button1_L:=Button1.Left/ClientWidth;
Button1_T:=Button1.Top/ClientHeight;
End;

Procedure TForm1.FormResize(Sender: TObject);
Begin
Button1.Width:=Round(Button1_W*ClientWidth);
Button1.Height:=Round(Button1_H*ClientHeight);
Button1.Left:=Round(Button1_L*ClientWidth);
Button1.Top:=Round(Button1_T*ClientHeight);
End;

Получается что-то наподобие Html-страницы, все размеры которой заданы в процентах...

Немного неудобно, когда контролов слишком много...
Знакомый просто на VBasic'е делал - там было проще - не надо переменные объявлять и т.д.

[П@вел]

Попытайся при помощи команды Screen

[Копоть Артём]

Спасибо!
Только по-моему это трошки не то. Если я правильно понял, то по твоему последнему методу дофига текста писать для каждого элемента окна и получается лишь изменение размеров (длина-ширина). А это трошки не то.
Но всё равноо спасибо