Как развернуть панель на весь экран (Full Screen)

Федор_Федор
Дата: 13.11.2007 18:10:41
Извините за возможный повтор. Поискал, но не нашел. Только запутался.

У меня есть главное меню, тулбар и статусбар. Все остальное место формы отведено под рисунок. Подскажите, пожалуйста, как растянуть этот рисунок на весь экран, так, чтобы не было видно ничего кроме рисунка (ни заголовка окна, ни панели задач, ничего...). То есть как сделать FullScreen.

Спасибо.
Gator
Дата: 13.11.2007 18:49:37
1. Рисунок - на отдельную форму, которая должна быть размером с экран; без границ; без заголовка и т.п. Не забудьте сделать на ней что то вроде KeyUp (Esc) чтобы она закрывалась

2. Свернуть все окна и рисовать прямо на Десктопе


Very smart impertinent dog is in my avatar
But he helps me
Anatoly Podgoretsky
Дата: 13.11.2007 18:56:26
А где у тебя там панель?
Размести панель на форме, а форму сделай без рамок (bsNone) и максимизируй (wsMaximize).
Федор_Федор
Дата: 13.11.2007 19:11:20
to Gator

Спасибо.
chron
Дата: 14.11.2007 08:01:17
а можно так:
RectScr: TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0);
FullScr: Boolean = false;

procedure TForm1.turnFullScreen(Sender: TObject);
begin
FullScr := not FullScr;
if FullScr then begin
RectScr := BoundsRect;
SetBounds(Left - ClientOrigin.X, Top - ClientOrigin.Y,
GetDeviceCaps(Canvas.handle, HORZRES) + (Width - ClientWidth),
GetDeviceCaps(Canvas.handle, VERTRES) + (Height - ClientHeight));
end
else BoundsRect := RectScr;
end;