Є Image з картинкою. Як розгорнути картинку на весь екран?
Image1.Width: = Form1.Width;
Image1.Height: = Form1.Height;
Image1.Stretch: = true;
Мається на увазі на весь екран, а не на все вікно.
Так теж фігня виходить: (((
Незрозуміло, що за фігня виходить, це могда статися тільки якщо ти все по російськи написав). Поясни трохи Інтелектуальний, в чому проблема, однак, є ймовірність того, що наступне помогет (роби висновки, що треба, а що не дуже)
procedure TForm1.Button1Click (Sender: TObject);
var
prop: Real;
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;
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;
BoundsRect: = Self.ClientRect;
Stretch: = True;
end;
Дійсно все нормально. Тільки якщо робити, через Form.Show, то на екрані залишається панель з меню Пуск, а через Button.Click все нормально. Як зробити, щоб через Form.Show панель не з'являлася?
Так теж саме, нічого не змінилося.