Unit Unit1;
{$MODE OBJFPC}{$H+}
Interface
USES
Classes, SysUtils, Forms,
Controls, Graphics, ExtCtrls,
StdCtrls;
TYPE
TForm1 = Class(TForm)
Procedure FormCreate (Sender: TObject);
Procedure FormResize (Sender: TObject);
Procedure FormClick (Sender: TObject);
Procedure ShowVAT;
PRIVATE
PanVAT: TPanel;
End;
VAR
Form1: TForm1;
Implementation
{$R *.LFM}
Procedure TForm1.ShowVAT;
Var
LabLeft : TLabel;
iFontSize: Integer;
IMG: TImage;
BMP: TBitmap;
Begin
PanVAT := TPanel.Create(Self);
PanVAT.BorderStyle := bsSingle;
PanVAT.BevelOuter := bvRaised;
PanVAT.Color := clBlack;
PanVAT.BorderWidth := 0;
PanVAT.Caption := '';
PanVAT.DoubleBuffered:= True;
PanVAT.SetBounds (Self.ClientWidth Div 2,
0,
Self.ClientWidth Div 2,
Self.ClientHeight);
PanVAT.Parent := Self;
LabLeft := TLabel.Create(PanVAT);
LabLeft.Transparent := True;
LabLeft.AutoSize := True;
LabLeft.Font.Color := clLime;
LabLeft.Font.Name := 'Lucida Console';
LabLeft.Font.Quality:= fqAntialiased;
LabLeft.Font.Size := PanVAT.ClientWidth Div 30;
LabLeft.Font.Style := [fsBold];
LabLeft.Align := alLeft;
LabLeft.Alignment := taRightJustify;
LabLeft.Caption := 'Current Period' +sLineBreak+
'Return Due' +sLineBreak+
sLineBreak+
sLineBreak+
'Period Shown' +sLineBreak+
'Output VAT' +sLineBreak+
'Input VAT' +sLineBreak+
'VAT Due' +sLineBreak+
'Sales' +sLineBreak+
'Purchases' +sLineBreak+
'Adjustment VAT' +sLineBreak+
'Adjustment Goods';
LabLeft.Parent := PanVAT;
iFontSize:= LabLeft.Font.Size;
BMP:= TBitmap.Create;
Try
BMP.Height := iFontSize;
BMP.Width := PanVAT.ClientWidth;
BMP.Canvas.Brush.Color:= clLime;
BMP.Canvas.Brush.Style:= bsSolid;
BMP.Canvas.FillRect (BMP.Canvas.ClipRect);
IMG:= TImage.Create(PanVAT);
IMG.Picture.Assign(BMP);
IMG.SetBounds(0,
Trunc(iFontSize*3.5),
BMP.Width,
BMP.Height);
IMG.Parent:= PanVAT;
Finally
BMP.Free;
End;
End;
Procedure TForm1.FormClick(Sender: TObject);
Begin
If Not Assigned(PanVAT)
Then ShowVAT
Else
Begin
PanVAT.Free;
PanVAT:= Nil;
End;
End;
Procedure TForm1.FormResize(Sender: TObject);
Begin
If Assigned(PanVAT)
Then
Begin
PanVAT.Free;
ShowVAT;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
DoubleBuffered:= True;
Constraints.MinHeight:= 200;
Constraints.MinWidth := 300;
End;
END.