- Linux kezdőknek
- Anyagi katasztrófára figyelmezteti az Apple-t a brit média
- Manjaro Linux
- HBO Max & OD topic
- eBay
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Hamarosan bárki hazavihet egy Apple Vision Pro headsetet
- Hálózati / IP kamera
- Aliexpress tapasztalatok
- Microsoft OneDrive (korábban SkyDrive)
Új hozzászólás Aktív témák
-
sanzi89
addikt
válasz sanzi89 #1900 üzenetére
Akkor leírnám mire jutottam. Van egy Form-om, legyen neve Form2. Az alábbi beállítások érvényesek:
WindowsState = wsMaximized
AutoScroll = FalseVan egy ScrollBoxom, legyen a neve ScrollBox1. Az alábbi beállítások érvényesek:
Align = alClient
AutoScroll = TrueÉs akkor a forráskód:
unit elsokep;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, JPEG;
type
TForm2 = class(TForm)
ScrollBox1: TScrollBox;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses anla;
{$R *.dfm}
procedure TForm2.FormShow(Sender: TObject);
var
JPG1: TJPEGImage;
begin
//Formot a bal felso sarokba allitom
Form2.Top:=0;
Form2.Left:=0;
//Meghatarozzuk a megjelenitendo kep meretet
JPG1:=TJPEGImage.Create;
JPG1.LoadFromFile('c:\01.jpg');
//Letrehozzuk a megjelenitendo kep komponenset a jo beallitasokkal
with TImage.Create(self) do begin
Name:='Kep';
Parent := ScrollBox1;
Autosize:=True;
Top := 0;
Left := 0;
Width := JPG1.Width;
Height := JPG1.Height;
Picture.LoadFromFile('c:\01.jpg');
end;
end;
end.Ez annyit tud, hogy új formon megjeleníti scrollboxban a képet eredeti felbontásban. Erre kellene egy OnClick, hogy milyen változás legyen, ha kattintok. Ezt is megcsináltam, de nem jó:
procedure TForm2.KepClick(Sender: TObject);
begin
ShowMessage('OK');
end;Azt írja, hogy a Kep nem található, pedig ilyen néven hoztam létre... Ötletek?
"Mindent azért kell tudni mert kérdezik, nem azért mert hasznos."
Új hozzászólás Aktív témák
- ThinkPad T490 14" FHD IPS i5-8365U 16GB DDR4 512GB NVMe ujjlolv., gar
- Garmin Fenix 7 / Beüzemelve próbából / Nem volt viselve / Számla + Garancia
- iPhone 14 / Bontott doboz / 0 perces / Midnight / 128 GB / Kártyafüggetlen / Számla + Garancia
- iPhone 15 Pro Max / Natural Titanium / 256 GB / Kártyafüggetlen / Számla + Garancia
- Gamer! FHD Dell (i7 quad, 2 GB Radeon, 250 SSD, 16 GB) notebook olcsón!!!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs