- A Corsair égisze alá kerül a Fanatec
- Megérkezett a Corsair új M.2-es SSD-je, és mindennek mondható, csak lassúnak nem
- Módosít a memória sebességének jelzésén a Microsoft
- Elveszítette az egyik legnagyobb kínai partnerét az Intel és a Qualcomm
- Átlátszó OLED kijelzőket építenek az ablakok helyére a koreai metróban
- Módosít a memória sebességének jelzésén a Microsoft
- VR topik (Oculus Rift, stb.)
- Hivatalosan is reagált a Core CPU-k stabilitási gondjáira az Intel
- HiFi műszaki szemmel - sztereó hangrendszerek
- Milyen egeret válasszak?
- AMD Navi Radeon™ RX 6xxx sorozat
- ThinkPad (NEM IdeaPad)
- Nem indul és mi a baja a gépemnek topik
- Gaming notebook topik
- Amlogic S905, S912 processzoros készülékek
Hirdetés
-
Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
it A kreativitás szimbólumait zúzták be egy iPad-reklámban, ez pedig hatalmas felháborodást okozott.
-
Megérkezett a Corsair új M.2-es SSD-je, és mindennek mondható, csak lassúnak nem
ph Az MP szériás konstrukció egyelőre csak 4 TB-os tárhelymérettel tehető kosárba, és lineáris lemezműveletekben bőven 10 GB/s felett teljesít.
-
Kicsit később indul a The Rogue Prince of Persia korai hozzáférése
gp A pontos dátumot a következő hétfői napon jelentik meg a készítők.
Ú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
- Redmi Watch 4 - olcsó hús, sűrű a leve
- Bocsánatot kért az Apple, mert nagyon mellélőtt a legutóbbi reklámjával
- Windows Insider Program
- Call of Duty: Modern Warfare III (2023)
- Marvel Rivals - Középpontban Hela
- Google Chrome
- Multiversus - Joker is játszható karakter lesz
- Autós topik látogatók beszélgetős, offolós topikja
- Dragon Age: Origins
- Módosít a memória sebességének jelzésén a Microsoft
- További aktív témák...
- Szép! HP EliteBook 840 G6 Fémházas Laptop 14" -70% i5-8365U 4Mag 16GB 512GB SSD FHD IPS + Táska!
- Szép, és jó! HP EliteBook 840 G5 Laptop 14" -70% i5-8350U 4Mag 16Gb 512GB SSD FHD IPS + Táska!
- Zotac gaming amp airo Geforce RTX 4070ti 2026 végèig garanciás
- 9gen PC,, i5 9600K , 1660 Ti , 16GB 3000MHz , 512GBGB m.2 , 1TB HDD
- AKCIÓS áron Asus Tuf DASH F15 /I7-11370H/16GB/512 GB SSD/RTX 3070 8GB/FHD/IPS/144Hz/Garancia/
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest