You've already forked lazarus-ccr
6f8c048343
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1748 8e941d3f-bd1b-0410-a28a-d453659cc2b4
56 lines
905 B
ObjectPascal
56 lines
905 B
ObjectPascal
|
|
Unit BigCoverImg;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
Interface
|
|
|
|
Uses
|
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls;
|
|
|
|
Type
|
|
|
|
{ TBigCoverImg }
|
|
|
|
TBigCoverImg = Class(TForm)
|
|
Image1: TImage;
|
|
BackImg: TImage;
|
|
Procedure BackImgClick(Sender: TObject);
|
|
Procedure FormClose(Sender: TObject; Var CloseAction: TCloseAction);
|
|
Procedure Image1Click(Sender: TObject);
|
|
Private
|
|
{ private declarations }
|
|
Public
|
|
{ public declarations }
|
|
End;
|
|
|
|
Var
|
|
BigCoverImgForm: TBigCoverImg;
|
|
|
|
Implementation
|
|
|
|
Uses mainform;
|
|
{ TBigCoverImg }
|
|
|
|
Procedure TBigCoverImg.Image1Click(Sender: TObject);
|
|
Begin
|
|
close;
|
|
End;
|
|
|
|
Procedure TBigCoverImg.BackImgClick(Sender: TObject);
|
|
Begin
|
|
close;
|
|
End;
|
|
|
|
Procedure TBigCoverImg.FormClose(Sender: TObject; Var CloseAction: TCloseAction
|
|
);
|
|
Begin
|
|
main.Enabled := true;
|
|
Image1.Free;
|
|
End;
|
|
|
|
initialization
|
|
{$I bigcoverimg.lrs}
|
|
|
|
End.
|