Marco Cantù 1998, Mastering Delphi 4
Project: BACKBMP.DPR
Project Structure
BACKBMP.DPR
program Backbmp;
uses
Forms,
BackbF in 'BackbF.pas' {Form1};
{$R *.RES}
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
BACKBF.PAS
unit BackbF;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
BACKBF.DFM
object Form1: TForm1
Left = 232
Top = 171
Width = 274
Height = 213
Caption = 'Back Bitmap'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 266
Height = 186
Align = alClient
Picture.Data = {...skipped...}
Stretch = True
end
object Label1: TLabel
Left = 16
Top = 20
Width = 32
Height = 13
Alignment = taCenter
Caption = 'Label1'
Color = clLime
ParentColor = False
end
object Edit1: TEdit
Left = 64
Top = 16
Width = 182
Height = 21
Anchors = [akLeft, akTop, akRight]
Color = clLime
TabOrder = 0
Text = 'Edit1'
end
object Button1: TButton
Left = 190
Top = 151
Width = 65
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Button1'
TabOrder = 1
end
end
Copyright Marco Cantù 1998