Есть Image с картинкой. Как развернуть картинку на весь экран?

← →
Mishenka (2003-12-20 21:37) [0]

← →
$HiC0 (2003-12-20 21:52) [1]

Image1.Width:=Form1.Width; Image1.Height:=Form1.Height; Image1.Stretch:=true;

← →
Mishenka (2003-12-20 22:32) [2]

Имеется ввиду на весь экран, а не на всё окно.

← →
ТипаЮзер (2003-12-20 23:38) [3]

Форм.БордерСтайл := бсНоне;
Форм.Хейгхт := Скрин.Хейгхт;
Форм.Уидтс := Скрин.Уидтс;
даллее смотри

> $HiC0 © (20.12.03 21:52) [1]

← →
Mishenka (2003-12-21 02:23) [4]

Так тоже фигня получается :(((

← →
prophet (2003-12-21 03:16) [5]

Непонятно, что за фигня получается, это могдо произойти только если ты все по русски написал). Объясни чуть интелектуальнее, в чем проблема, однако, есть вероятность того, что следующее помогет (делай выводы, что надо, а что не очень)

procedure TForm1.Button1Click( Sender: TObject );
{$DEFINE USE_PROPORTIONS}
{$IFDEF USE_PROPORTIONS}
var
prop: Real;
{$ENDIF}
begin
if not Assigned( FImage ) then
with TOpenDialog.Create( Self ) do
try
if Execute then
begin
FImage := TImage.Create( Self );
with FImage do
begin
Parent := Self;
DoubleBuffered := True;
try
FImage.Picture.LoadFromFile( FileName );
except
on e: Exception do
begin
FreeAndNil( FImage );
Application.MessageBox( "Bad choice, don""t ask why...", "User made a mistake", 16 );
Exit;
end;
end;

{$DEFINE FORM_HAS_CAPTION}
{$IFNDEF FORM_HAS_CAPTION}
Self.BorderStyle := bsNone;
Self.BoundsRect := Screen.DesktopRect;
{$ELSE}
Self.BoundsRect := Screen.WorkAreaRect;
{$ENDIF}

{$IFDEF USE_PROPORTIONS}
with Picture.Bitmap do
prop := Height / Width;
if prop > 1 then
begin
Width := Screen.Width;
Height := Round( Width * prop );
end
else
begin
Height := Screen.Height;
Width := Round( Height / prop );
end;
{$ELSE}
BoundsRect := Self.ClientRect;
{$ENDIF}
Stretch := True;
end;

end;
finally
Free;
end
else
Close;
end;

← →
Mishenka (2003-12-21 16:17) [6]

Действительно всё нормально. Только если делать, через Form.Show, то на экране остаётся панель с меню Пуск, а через Button.Click всё нормально. Как сделать, чтоб через Form.Show панель не появлялась?

← →
wnew (2003-12-21 17:17) [7]

FormStyle := fsStayOnTop;

← →
Mishenka (2003-12-21 18:37) [8]

Так тоже самое, ничего не поменялось.

Есть Image с картинкой. Как развернуть картинку на весь экран? Найти похожие ветки