Context Navigation

FormMap.pas

Last change on this file was 73, checked in by chronos, 8 months ago
Modified: Removed U prefix from unit names.
File size: 652 bytes

Line
1	unit FormMap;
2
3	interface
4
5	uses
6	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
7
8	type
9
10	{ TFormMap }
11
12	TFormMap = class(TForm)
13	Image1: TImage;
14	procedure FormShow(Sender: TObject);
15	procedure Image1Resize(Sender: TObject);
16	end;
17
18
19	implementation
20
21	{$R *.lfm}
22
23	uses
24	FormMain;
25
26	{ TFormMap }
27
28	procedure TFormMap.Image1Resize(Sender: TObject);
29	begin
30	Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
31	FormMain.FormMain.Engine.World.DrawToBitmap(Image1.Picture.Bitmap);
32	end;
33
34	procedure TFormMap.FormShow(Sender: TObject);
35	begin
36	Image1Resize(Self);
37	end;
38
39	end.
40

Note: See TracBrowser for help on using the repository browser.