Există o imagine cu o imagine. Cum pot roti o imagine pe ecranul complet?
Image1.Width: = Form1.Width;
Image1.Height: = Form1.Height;
Image1.Stretch: = true;
Înseamnă tot ecranul, nu întreaga fereastră.
De asemenea, se obține și gunoi: (((
Nu este clar ce fel de gunoi se dovedește, se poate întâmpla numai dacă ați scris totul în limba rusă). Explicați puțin mai mult din punct de vedere intelectual ce este problema, cu toate acestea, există posibilitatea ca următoarele să vă ajute (să trageți concluzii, ceea ce este necesar și ceea ce nu este foarte)
procedura TForm1.Button1Click (expeditor: TObject);
var
prop: Real;
începe
dacă nu este Atribuit (FImage) atunci
cu TOpenDialog.Create (Self) faci
încerca
dacă Execute atunci
începe
Fișier: = TImage.Create (Self);
cu Fumage do
începe
Părinte: = Sine;
DoubleBuffered: = Adevărat;
încerca
FImage.Picture.LoadFromFile (FileName);
cu excepția
pe e: Excepția face
începe
FreeAndNil (FImage);
Application.MessageBox ("O alegere rea, nu te întreba de ce", "Utilizatorul a făcut o greșeală", 16);
Exit;
se încheie;
se încheie;
cu Picture.Bitmap
prop: = înălțime / lățime;
dacă prop> 1 atunci
începe
Lățime: = Ecran.Lățime;
Înălțime: = Runda (Lățimea * prop);
capăt
altfel
începe
Înălțime: = Ecran.
Lățime: = rotundă (înălțime / propunere);
se încheie;
BoundsRect: = Self.ClientRect;
Stretch: = adevărat;
se încheie;
Într-adevăr, totul este normal. Numai dacă este făcută, prin Form.Show, apoi pe ecran există un panou cu meniul Start și prin Button.Click totul este bine. Cum să faci asta, prin intermediul Form.Show panoul nu a apărut?
De asemenea, nimic nu sa schimbat.
Articole similare
Trimiteți-le prietenilor: