Context Navigation

UFormMain.pas

Last change on this file was 7, checked in by chronos, 12 years ago
Fixed: Components now have list of childs and free them on destruction. Fixed: Memory leaks.
File size: 638 bytes

Line
1	unit UFormMain;
2
3	interface
4
5	uses
6	Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
7	Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;
8
9	type
10	TFormScreen = class(Vcl.Forms.TForm)
11	Image1: TImage;
12	private
13	{ Private declarations }
14	protected
15	procedure PaintWindow(DC: HDC); override;
16	public
17	published
18	property FormState;
19	end;
20
21	var
22	FormScreen: TFormScreen;
23
24	implementation
25
26	{$R *.dfm}
27
28	{ TFormScreen }
29
30	procedure TFormScreen.PaintWindow(DC: HDC);
31	begin
32	// Image1 cover entire form area, do not paint form backround
33	end;
34
35	end.

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