Területének növelése a képernyőn keresztül delphi

Vannak olyan programok, amelyek lehetővé teszik a növekedést egy bizonyos területen a képernyő a kurzort a területen. Szükségünk van egy forma egyik eleme a képek kezelése, egy panel, időzítő és csúszka. Hozzátéve, hogy az alak a kép és a panel. A megmaradt kezelőszervet. A csúszka A nagyítás a képernyő. Ezzel minden készen áll a programozásra. De először meg kell változtatni néhány tulajdonságát a kontroll. Az ingatlan min trackbar alkatrész egyenlőnek kell lennie 1, az Interval tulajdonság a timer és nem egyenlő 1 Most írjuk be a kódot is, az összes fő hatás csak egy esemény bekövetkezik, a OnTimer, így hozza csak a felvezető:

eljárás TForm1.Timer1Timer (Sender: TObject);

Ha nem IsIconic (Application.Handle), akkor kezdődik

// PosForm egy téglalap

// koordináták Form (image kontroll).

// ha a kurzor túl formában.

Ha nem PtInRect (PosForme, Kursor), akkor kezdődik

// Ezután a kódot lehet használni, hogy nagyítani egy adott

// a képernyőn. Kisebb módosításokkal, akkor

// csökkentésére használják

iTmpX: = iWidth / (TrackBar1.Position * 4);

iTmpY: = iHeight / (TrackBar1.Position * 4);

// A felvezető (fogantyú) az asztalon.

// Peredaom része az ablak kép a TImage.

// Mindenképpen folyamat minden Windows-üzeneteket.

Mint kiderült, az összes nem olyan nehéz, ez egy kész használható kódot, amit sikeresen alkalmazzák a programokban!

Michael Khristosenko. Területének növelése a képernyőn Delphi.

Kapcsolódó cikkek