PDA

View Full Version : Putting Images on Formz! (and some other cool stuff)



FrÕzÑ_§ÕµL
01-05-2008, 08:51 AM
http://i227.photobucket.com/albums/dd120/Fr0zn_S0ul/cooltext75674029.jpg

Hey everyone,
this is my first tut, but I hope you enjoy it and learn anyway :D After hours of searching the forums, I didn't find any in depth guides on how to do this, had to find out myself by mixing up some tuts and experimenting.

To use this tut, you should already know how to create a functional form! I will show you how to turn a bitmap into a string and then use it to make your Forms look cool. I will also show you how to add some effects to the form ;).

OK go to Form Editor, and create a new form. Put 2 labels on it. With both labels change the following settings:
Autosize -> False.
Captions -> Blank.
Cursor -> crHandPoint.
Name -> One to StartLabel and one to ExitLabel.
Transparent -> True. //SINGLE MOST IMPORTANT VALUE!

Your form should like like this:
http://i227.photobucket.com/albums/dd120/Fr0zn_S0ul/Form1.jpg

OK save that as SweetForm.
Now in SCAR go to Tools -> Load DFM Form. Find SweetForm and click OK.
Put the variables at top of script and in a procedure called InitForm put the rest.
Add the 3 procedures that every form needs (SafeInitForm, ShowFormModal, SafeShowFormModal)
Don't forget to change frmDesign.Visible to False!


By this stage your script should look like:

program SweetForm;

var
frmDesign : TForm;
StartLabel, ExitLabel : TLabel;

Procedure InitForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 246;
frmDesign.Top := 88;
frmDesign.Width := 361;
frmDesign.Height := 214;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
StartLabel := TLabel.Create(frmDesign);
StartLabel.Parent := frmDesign;
StartLabel.Left := 16;
StartLabel.Top := 72;
StartLabel.Width := 113;
StartLabel.Height := 49;
StartLabel.AutoSize := False;
StartLabel.Caption := 'StartLabel';
StartLabel.Cursor := crHandPoint;
StartLabel.Color := clBlack;
StartLabel.ParentColor := False;
StartLabel.Transparent := True;
ExitLabel := TLabel.Create(frmDesign);
ExitLabel.Parent := frmDesign;
ExitLabel.Left := 192;
ExitLabel.Top := 72;
ExitLabel.Width := 113;
ExitLabel.Height := 49;
ExitLabel.AutoSize := False;
ExitLabel.Caption := 'Exit';
ExitLabel.Cursor := crHandPoint;
ExitLabel.Color := clBlack;
ExitLabel.ParentColor := False;
ExitLabel.Transparent := True;
end;


procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

begin
Try
SafeInitForm;
SafeShowFormModal;
Finally
FreeForm(frmDesign);
end.

If you run it, you will get a form with 2 invisble boxes with text!


Now we need some pictures!
OK, so get a bitmap (I've attached 2 below if you don't know what to use, you can not release a script using these). It should be quite small, and it will be the size of your buttons.
First clear the Debug box.
In SCAR go Tools -> Picture To String.
Click Open and find your bitmap.
Change the Name of the Bitmap to Picture and then click OK.
You will get a massive string of text in the debug box.
Since we cleared the debug box first, we only need to click it, press ctrl + a and then copy.

Now we need to create a new procedure that will be used when the Form starts up, so that the images are painted on it. Call it DrawImages(Sender : TObject);
Then we need a couple of variables:
Picture : Integer;
Canvas : TCanvas
Picture is the Bitmap and Canvas is what we will paint the bitmaps onto.

So the new procedure is:

Procedure DrawImages(Sender: TObject);
var
Picture : Integer;
Canvas : TCanvas;

Begin

end;
This must go ABOVE InitForm.
OK now inside the DrawImages procedure paste the BitmapString that you just got from the debugbox.


Right, so now we have the bitmap in the procedure, we need something to draw it on to the form.
For this we use the procedure CopyCanvas.
First we put the bitmap onto the canvas using GetCanvasBitmap:

Canvas := GetBitmapCanvas(Picture);

And then we draw it onto the main form as follows:
CopyCanvas(Canvas, frmDesign.Canvas, 0, 0, 113, 49, 16, 203, 129, 252);
OK I'll explain the parameters for this, so that you don't make any mistakes and know how to use it properly.

Canvas is where to copy the image from.

frmDesign.Canvas is the destination of that image, in our case that is the Forms Canvas.

The first 4 numbers are the coordinates of the picture to copy from.
0, 0 means from the top left corner of Picture.
113, 49 is the bottom right corner.
This is used in case you don't want the whole image, but if that is so then you should re make the Bitmap String with the unwanted part cut out to save space in your script.

The last 4 numbers are where on the form to draw the image.
These will be the points of:
StartLabel.Left
StartLabel.Top
StartLabel.Left + Width of your image (in my case 113)
StartLabel.Top + Height of your image (in my case 49)

So I get
CopyCanvas(Canvas, frmDesign.Canvas, 0, 0, 113, 49, 16, 203, 129, 252);

Also make sure you add a FreeBitmap(Picture); after your last image has been drawn to save memory.


So the new procedure is:

Procedure DrawImages(Sender: TObject);
var
Picture : Integer;
Canvas : TCanvas;

Begin
Picture := BitmapFromString(113, 49, 'string data here');
Canvas := GetBitmapCanvas(Picture);
CopyCanvas(Canvas, frmDesign.Canvas, 0, 0, 113, 49, 16, 203, 129, 252);
FreeBitmap(Picture);
end;

Repeat the above process for all the Bitmaps on your form!


Now everything is in place, all we need is to make the form paint the image!
So add this to your InitForm procedure.

frmDesign.OnPaint := @DrawImages;
or you can use
Fr0znFormDesign.OnActivate := @DrawImages;
Thats up to you, try them both out, but OnPaint is probably better.
We also need to get rid of the text on the labels, so delete the lines
*Label.Caption := '*';


So far, our form is as follows:

program SweetForm;
var
frmDesign : TForm;
StartLabel, ExitLabel : TLabel;


Procedure DrawImages(Sender: TObject);
var
Picture : Integer;
Canvas : TCanvas;

Begin
Picture := BitmapFromString(113, 49, 'string data here');
Canvas := GetBitmapCanvas(Picture);
CopyCanvas(Canvas, frmDesign.Canvas, 0, 0, 113, 49, 16, 203, 129, 252);
FreeBitmap(Picture);
end;


Procedure InitForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 246;
frmDesign.Top := 88;
frmDesign.Width := 361;
frmDesign.Height := 214;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.OnPaint := @DrawImages;
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
StartLabel := TLabel.Create(frmDesign);
StartLabel.Parent := frmDesign;
StartLabel.Left := 16;
StartLabel.Top := 72;
StartLabel.Width := 113;
StartLabel.Height := 49;
StartLabel.AutoSize := False;
StartLabel.Cursor := crHandPoint;
StartLabel.Color := clBlack;
StartLabel.ParentColor := False;
StartLabel.Transparent := True;
ExitLabel := TLabel.Create(frmDesign);
ExitLabel.Parent := frmDesign;
ExitLabel.Left := 192;
ExitLabel.Top := 72;
ExitLabel.Width := 113;
ExitLabel.Height := 49;
ExitLabel.AutoSize := False;
ExitLabel.Cursor := crHandPoint;
ExitLabel.Color := clBlack;
ExitLabel.ParentColor := False;
ExitLabel.Transparent := True;
end;


procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

begin
GetApplication.BringToFront; //Makes sure Form is in front of other windows.
Try
SafeInitForm;
SafeShowFormModal;
Finally
FreeForm(frmDesign);
end.



Wow our form just painted its first image! If you set it all up right then when you move the mouse over the 'picture' then your cursor will change to a hand with a finger pointed :D Now we need a few more things, like labelclicks.


Making your form do stuff!
We create another procedure, ButtonClick(Sender : Object);

In that we create a Case statement of Sender, so that when an object is clicked they are all directed to one procedure, with a part specific to the object!

So our new procedure will be:

Procedure ButtonClick(Sender: TObject);
Begin
case Sender of
StartLabel : Begin

end;
ExitLabel : Begin

end;
end;
end;


If we want the form to continue without an error we must have the line:
frmDesign.ModalResult := mrOk;

So StartLabel will be

StartLabel : Begin
frmDesign.ModalResult := mrOk;
end;
and ExitLabel will be

ExitLabel : Begin
frmDesign.ModalResult := mrOk;
Exit;
end;

Now to get to that procedure we put the following in InitForm:

StartLabel.OnClick := @ButtonClick;
ExitLabel.OnClick := @ButtonClick;


And you have working buttons! I will show this in the script further down after a few more things.


Now when you run the script, you may have noticed that sometimes the images all disappear :eek:

So we add something that will make the form RePaint, makes sense right? It can be anything, but I use OnClick as follows:

frmDesign.OnClick := @DrawImages;
And thats all you need to do for that ^^ :p


So now we have a fully functional form, and you have added as many bitmaps to the DrawImages procedure as you need. What else can we do to make this form look/do-stuff-thats cool?!

Well in mine, I create two procedures : EffectsOn and EffectsOff.
In these when something occurs in the form, such as changing textbox in my example, it goes to the EffectsOff on one thing and the EffectsOn on the other. I will show here, but you can not use these directly as I have made those labels for my form and it won't compile:

Procedure EffectsOn(Sender: TObject);
Begin
Case Sender of
LogoutEdit : Begin
LogoutLabel.Font.Height := -25;
LogoutLabel.Font.Style := [fsUnderline];
end;
TalkEdit : Begin
TalkLabel.Font.Height := -25;
TalkLabel.Font.Style := [fsUnderline];
end;
ColorEdit : Begin
ColorLabel.Font.Height := -24;
ColorLabel.Font.Style := [fsUnderline];
ColorLabel.Caption := 'Game Color Tol';
end;
SpeedEdit : Begin
SpeedLabel.Font.Height := -25;
SpeedLabel.Font.Style := [fsUnderline];
end;
LampEdit : Begin
LampLabel.Font.Height := -25;
LampLabel.Font.Style := [fsUnderline];
end;
end;
end;

EffectsOff is the same, but uses
LogoutLabel.Font.Height := -15;
LogoutLabel.Font.Style := [];
therefore reversing the effects of EffectsOn.
The sender for these is the textboxes:

LampEdit.OnEnter := @EffectsOn;
LampEdit.OnExit := @EffectsOff;



I will explain in more depth what this does. When the user clicks in a text box to change a value, it underlines and enlarges the text in the corresponding label. So clicking the LampEdit makes LampLabel get bigger and underlined! And then when the user clicks on another box, LampLabel returns to normal state and the other label gains the effects :D

That is just one simple example of what you can do to make them look cool. I used to have my form paint stars on the background when it started up 1/5 of the time. However, since I kept that inside the DrawImages procedure, when the form re-drew, it would sometimes draw a star over an existing object and cause an access violation, so I removed it because I did not need it. However, I may as well show you how I did it ;)

Drawing things onto the background of the form
OK the main thing you use here is FastSetPixel. Parameters are:

Picture = Where to put the pixels.

x, y = the coordinate of where to put the pixel.

StarColor : A variable I made for starcolor (it needs to be a TColor not an integer or string)

OK the parts of the procedure I made:
The Case Random(5) means that if the random number is 0 it will draw stars, otherwise it will skip it.

You need to do Picture := BitmapFromString(SizeOfForm.Y, SizeOfForm.Y, '');
Make sure the last bit is ''!

Inc(Tries) means that it increases the number of stars made by 1 (I used tries to save on variables)

the x and y := Random(SizeOfForm.*) means it will put the star in a random place.

Case Random(6) of
0 : Starcolor;
This simply chooses a randomcolor to make a star.

And at last the FastSetPixels.
FastSetPixel(Picture, x, y, Starcolor)
That one creates the center point of the star.
The next 6 extend the line by 3 pixels up and down of the center.
The following 6 extend the line by 3 pixels left and right.
And the last 4 make a point on a diagonal each way of the center.

Until(tries > RandomRange(40, 60))
This means that the script will place a random amount between 40 - 60. however it will get a new number every time it does the loop I believe (tell me if I'm wrong) so the higher the number the less likely it is. So about 45 stars is highly more likely than 60, but also more likely then 40.

And last of all actually putting it on your form!
Use

SafeDrawBitmap(Picture, frmDesign.Canvas, 0, 0);
This draws from Picture to the Canvas, starting from 0, 0 of the picture. You will want to leave at 0, 0.



case Random(5) of
0 : Begin
Picture := BitmapFromString(283, 283, '');
Repeat
Inc(Tries);
x := Random(283);
y := Random(283);
Case Random(6) of
0 : StarColor := clSilver;
1 : StarColor := clGold;
2 : StarColor := clFuchsia;
3 : StarColor := clAqua;
4 : StarColor := clSkyBlue;
5 : StarColor := clTeal;
end;
FastSetPixel(Picture, x, y, StarColor);
FastSetPixel(Picture, x, y - 3, StarColor);
FastSetPixel(Picture, x, y - 2, StarColor);
FastSetPixel(Picture, x, y - 1, StarColor);
FastSetPixel(Picture, x, y + 1, StarColor);
FastSetPixel(Picture, x, y + 2, StarColor);
FastSetPixel(Picture, x, y + 3, StarColor);
FastSetPixel(Picture, x - 3, y, StarColor);
FastSetPixel(Picture, x - 2, y, StarColor);
FastSetPixel(Picture, x - 1, y, StarColor);
FastSetPixel(Picture, x + 1, y, StarColor);
FastSetPixel(Picture, x + 2, y, StarColor);
FastSetPixel(Picture, x + 3, y, StarColor);
FastSetPixel(Picture, x - 1, y - 1, StarColor);
FastSetPixel(Picture, x - 1, y + 1, StarColor);
FastSetPixel(Picture, x + 1, y - 1, StarColor);
FastSetPixel(Picture, x + 1, y + 1, StarColor);
Until(Tries > RandomRange(40, 60));
SafeDrawBitmap(Picture, Fr0znFormDesign.Canvas, 0, 0);
Tries := 0;
end;
end;



Using the SRL PlayerForm with your Form!
OK, the awesome thing about the SRL PlayerForm is that its only one line to call it! And that saves those hundreds of lines of a DeclarePlayers procedure :p Also it is easier for the user, noobs won't forget to set it up cause it's in their way of running the script, and it is much safer than DeclarePlayers. How many of us have left our names and passes is scripts we have posted? Too many!

OK, to call the PlayerForm, the procedure is:
SRLPlayerForm(True, [Boolean labels], , [String labels], [Extendeds labels]);

The True means whether or not you want it to be visible... I don't see the point in that being False but hey, there must be one.

The Boolean, integers, strings and extendeds labels are Arrays of things you want the form to make labels and text boxes (or drop downs for booleans). So my example is:

SRLPlayerForm(True, ['Member?'], ['Loads To Do'], ['Tree To Cut', 'Bank or Drop', 'Bank PIN', 'Run Direction', 'SRL ID', 'SRL Password'], []);

All these things that the user enters will be saved for them and filled in for the next time the user runs it.

Right... So I got my playerform... but which one is Integer[x]?! Well, you can probably just go back to the SRLPlayerForm, and your first one in each sequence is [0] and the next is [1] etc... but that uses my brain! So why not make SCAR write it all out for us in the debug box :p

//Add this in to your setup procedure after the SRLPlayerForm to find out which string/integer etc is [0] and [1] etc.
For x := 0 to HowManyPlayers - 1 do
Begin
For y := 0 to GetArrayLength(Players[x].Integers) - 1 do
Begin
if Players[x].Integers[y] = 0 then
Break;
WriteLn('Players[' + IntToStr(x) + '].Integers[' + IntToStr(y) + '] = ' + IntToStr(Players[x].Integers[y]));
end;

For y := 0 to GetArrayLength(Players[x].Strings) - 1 do
Begin
if Players[x].Strings[y] = '' then
Break;
WriteLn('Players[' + IntToStr(x) + '].Strings[' + IntToStr(y) + '] = ' + Players[x].Strings[y]);
end;

For y := 0 to GetArrayLength(Players[x].Booleans) - 1 do
Begin
WriteLn('Players[' + IntToStr(x) + '].Booleans[' + IntToStr(y) + '] = ' + BoolToStr(Players[x].Booleans[y]));
if Not(Players[x].Booleans[y]) and Not(Players[x].Booleans[y + 1]) and Not(Players[x].Booleans[y + 2]) then
Break;
end;

For y := 0 to GetArrayLength(Players[x].Extendeds) - 1 do
Begin
if Players[x].Extendeds[y] = 0 then
Break;
WriteLn('Players[' + IntToStr(x) + '].Extendeds[' + IntToStr(y) + '] = ' + FloatToStr(Players[x].Extendeds[y]));
end;
end;
And don't forget to remove it again afterwards lol.

So to call the PlayerForm, we add our line to our ButtonClick like so:
StartLabel : Begin
frmDesign.ModalResult := mrOk;
SRLPlayerForm(True, ['Member?'], ['Loads To Do'], ['Tree To Cut', 'Bank or Drop', 'Bank PIN', 'Run Direction', 'SRL ID', 'SRL Password'], []);
end;
Now we have a fully functional PlayerForm!



That concludes my tutorial (for now, I'll think of some more cool stuff you guys might be able to use).

May I suggest someone comes up with an idea for using
OnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

If you want a list of all the things you can add effects with and stuff, go to SCAR, Tools -> Events Handler List. It also tells you all the params you need for the @Whatever procedure.

If you have any questions, comments or suggestions, feel free to reply! I have this thread on instant email alert :D Remember, you can only make cool new things by experimenting!


Attached files :
Home and Start.bmp for your [i]test form if you don't have anything else.
Fr0zn Form. This is my form that I use in my wc script. Take a look, its pretty awesome :D

SKy Scripter
01-05-2008, 09:17 AM
thats very nice...

although it gives errors :p

FrÕzÑ_§ÕµL
01-05-2008, 09:32 AM
Like when you close the form? Yea how do I fix that lol?

SKy Scripter
01-05-2008, 09:45 AM
Hmmm Lets see,


Program SweetForm;
{.include srl/srl.scar}
var
Fr0znFormDesign : TForm;
LogoutLabel, TalkLabel, ColorLabel, SpeedLabel, LampLabel, StartLabel, HomeLabel, ExitLabel : TLabel;
LogoutEdit, TalkEdit, ColorEdit, SpeedEdit, LampEdit : TEdit;

Procedure ButtonClick(Sender: TObject);
Begin
case Sender of
StartLabel : Begin
Fr0znFormDesign.ModalResult := mrOk;
SRLPlayerForm(True, ['Member?'], ['Loads To Do'], ['Tree To Cut', 'Bank or Drop', 'Bank PIN', 'Run Direction', 'SRL ID', 'SRL Password'], []);
end;
HomeLabel : Begin
OpenWebPage('http://www.srl-forums.com/forum/forest-frostbite-p305759.html');
Fr0znFormDesign.ModalResult := mrOk;
TerminateScript;
end;
ExitLabel : Begin
Fr0znFormDesign.ModalResult := mrOk;
Exit;
end;
end;
end;


Procedure EffectsOn(Sender: TObject);
Begin
Case Sender of
LogoutEdit : Begin
LogoutLabel.Font.Height := -25;
LogoutLabel.Font.Style := [fsUnderline];
end;
TalkEdit : Begin
TalkLabel.Font.Height := -25;
TalkLabel.Font.Style := [fsUnderline];
end;
ColorEdit : Begin
ColorLabel.Font.Height := -24;
ColorLabel.Font.Style := [fsUnderline];
ColorLabel.Caption := 'Game Color Tol';
end;
SpeedEdit : Begin
SpeedLabel.Font.Height := -25;
SpeedLabel.Font.Style := [fsUnderline];
end;
LampEdit : Begin
LampLabel.Font.Height := -25;
LampLabel.Font.Style := [fsUnderline];
end;
end;
end;


Procedure EffectsOff(Sender: TObject);
Begin
Case Sender of
LogoutEdit : Begin
LogoutLabel.Font.Height := -15;
LogoutLabel.Font.Style := [];
end;
TalkEdit : Begin
TalkLabel.Font.Height := -15;
TalkLabel.Font.Style := [];
end;
ColorEdit : Begin
ColorLabel.Font.Height := -15;
ColorLabel.Font.Style := [];
ColorLabel.Caption := 'Game Color Tolerance';
end;
SpeedEdit : Begin
SpeedLabel.Font.Height := -15;
SpeedLabel.Font.Style := [];
end;
LampEdit : Begin
LampLabel.Font.Height := -15;
LampLabel.Font.Style := [];
end;
end;
end;


Procedure DrawImages(Sender: TObject);
var
Picture : Integer;
Canvas : TCanvas;

Begin
//Form Title
Picture := BitmapFromString(277, 28, 'beNrNe2eUXcdxJuZNBgZx' +
'MMAMMAAHcTDz5uWcc86Tc84RE4BBBgmCIMCcRUqURdGSbFMUJ VOST' +
'QXLYWXtWqZtSV7vOauVrLVXZ8MP68eu9+xP7/d1Xz6OAYoibeHs3l' +
'PoU7e6uqq6X1VXdd/Bqc6W+/C0as0tag3bNn2LxtiqtwNp1VnQQ1y' +
'tlQwtGhOJah3o5FTrWnU2UlrbWtoMZADF4Go1h1pN/lZLRO3ItJoD' +
'5IdwnRVyBAhFcojGSDkEQ6uWwqGuVe8gXeiCfCAKAyTANmg0O MEjO' +
'anO5GMvEHQZPRQrjGevJYxRxI1emETzYBgoBqcQCMvV7MVYyD QHhF' +
'jIdBM4NZsyXxoj9IKTonzSSGHhVrAqVpmDlAY2ABAuiE9RoYC gwBj' +
'JA3Umn9rdqfYPq/1DBN+AOjKvjiwQcWTUjjRbVztfQ9OazifastfY' +
'Gxxvi59ty1xpS10gPyS4CqSkLgj6ZU3/K5qO22Buiy6CoS2x1pY8x' +
'za+oo7MqUNTkACBZI4tA1GHZ4knz6FL035L7e6AQLUtprbF1a FJtb' +
'eX/O4utT0lW0wEiCZ/oy22BPlEMlc03c9oBj6lHXtDM/RZ7cjndat' +
'/pZv7NhDtxJe0E1/WDH5GO/VV7dTb2vEvago3YSQtgfHhGdqPaUI4' +
'AFNmm1E788IAQAI4Fk1tTyomgcGZgwGcHQxDrzmgsFkitM2RB QNdE' +
'Zww3tvbej8ejaFVrVHrra1wCY1RDU+Ak7dpW9t0cHW13kYKfJ KvJr' +
'XBASJ6SdfbFE5QgGgYBWpLUG3yqq2RNqyA0U0eORaSMcTgoCL wQ7L' +
'Ro0jDwKI6o0vRSNVWtd6uNjgFOMBAOpn1QrtV2OOkOogCs87C V0qw' +
'yuFkwJKCAVYVDdYYaAaI4Df72QIwCgC6RCQuTYXlcG9QIAr8Q KwRh' +
'SLskRKUtcKU2eUWQjzEMYQQkNBmT7Th14d2/tYxtpaQ7NKExjShCU' +
'1wtM3Xp4nMso0va1LnNf6BNnuyzdujSW5oMpdIDE9pcte0HY/iVZt' +
'/CIi2cENhTpwFrm2/pet/Sdf3orbnOQ5JnQNFk74AsWRDm1jVROc1' +
'0Tm28RVNck2h4zU4QiHtN9tcBU1gqM2RAmhC49QenkRvmzMDy 9ucW' +
'SA0Mr2pyV6h5dmr1JXc0A19Rjf+Rd3klw0bPzKs/0A38SXC9Nd1U2' +
'+j1S/+sW7yLRocW+CowLDUCKA0f3+bKw/VwLlWzhxfiWTkQgHHrwm' +
'T8CoMm8As2jxdNAbMMAyrih/IGqXlHF5oc3dw9UITbffj0ZnbNLo2' +
'rbGtTUPQGtjqTBqDVWNyA9r01ja9RWO0a0wutG1aPRkwBCAQE vVW8' +
'pu9GmtQY49pbFGNMy2Ha4xOjcHGXkggpwXCoZR0UpyKWGiBJV AkR4' +
'EoQWGz00JhiWJMUSkYLAHqhXazR3YVcU4EOHhsEYHYFS0wCWw c5VM' +
'shC4M4UCfxuInUIJT4ZQmGR3KjBTbHAJ3i1He98cq6xAnKIYJ e9Al' +
'FwcI6LawxhpSbLCFtcFhDX5ld7vG16fLXtYlVnTdTxnm3jGu/Klh7' +
'hu6rsdJ7LyjjS/qup/UpTfwqh/9nH70N/Xjv62NzulyV3WpdV32In' +
's7HtH1PqsrPKjLXIBDQrIufZ5dmQu6/HWyAcAGmeAsPETJyVVtdFY' +
'bm9cGR8gMtvaHNa68xtvFWXg6RNewNjKtDY1qfL2005UDM+j6/hd1' +
'COH4sq77CQrsvAOTjBs/Mq7/wLj654bJN40L3zYuf5dzWfyOYeIN/' +
'fBnqDSxQo3YNGBhYFCL1/iSNjwB+XgFEeug8XaLZemmOpjBhYpw5a' +
'1B0v0DCrMrBws5BGwYAmJ4Ar1kiExRS2QKNmvvx6M3aXUGrcH CVqv' +
'T6o1anZ5EUACyV2/SmZ06k4O40Sbo5ve6jDqTnb1Wv86Z1NnDOkdM' +
'58roLF6t0Q7Qmd1irB0gKDYpmXRB1JldOotHsLmBsNdoU2QSX ALIz' +
'FEmB4hSMgFmgGj1Ua8tRBuEnUCUXq2OA2G/xSu1KMZjFClenTUgiF' +
'aAolGqBjN6iXAiOltQmY7VpxgvbQMbtNuCOntEQJg2SHtcaZ0 jTpx' +
'sXp0jyvVBS6U+soHHmeByYTiFhMgf6NfH5w35y6bFPzCtvUtY +a7p' +
'7PdMa39uWvu+afXfmc/9wDT/+/ropKHjhqHvWUP346aFb5rmv2Hof' +
'14fmzGk10ExFK4buu4A1yeX9bFZfXRan1h8H4lO6SPj+uSKIb NhyF' +
'0iM6D9IUPnLUPPk4b2Bw1dj4JiHPokLfQUdL5uWhUZ1/n7oJcS4vP' +
'60DDofI3NGMc/bxz6lKHjpoAbGAuzzef/PUw1n/uRaflPTEvf4RRm' +
'v2ocfc04+jokG/JXYYYuOKQLDlK+t1MfHjWk1/SRCQDU6Tx5dnnaa' +
'YA7x6VzpbhoxBM6bwfnglmAH9OJzRqy5w2Zc4Iyrg+PsRcTzF 8xdD' +
'zMGeUvk34/HqOFYLKzNZgIegNxs0Nvsoleq8HqNtgDBqsHrwaLy2D' +
'1AhfgFmx2MjgiBlfS4Iob7EGDt6A3GBWBkAwwOwS/V4BbCuFYo1V0' +
'eQ02P8Ee4BDaY2Mvu4RqRxi9fOVAj+yldgyXpiqcQYPNp3SBx 2QzO' +
'KOgkAgcciAfQ4CD2RlVEIvr/eFQJC0EM8Y6Y2LibtpmcZINPPIV06' +
'HNPgUBJ6ZP/pCYSJBLgTWRvbLL127w5g3utNJCPulRvoaGjMlFU/t' +
'188inzVNftMy9zXb+a+bx3zR1PGiMz2JJwWZMLpl6Hrcsf8cy 8xbA' +
'PP4509DLpJz9rmXhHUgwppZNPXdMhSumrlvG9FkIRAuiMTZpC PYbQ' +
'oPG2BSkGRNzptwm2ToeNBUukwfE+IwxMW/KXzS1XzV13zaP/oYxMk' +
'rbwsPQboyOGwI9hkAvRFEgAOrSq+iFRho89llTZh3DYZ710o8 t5/7' +
'KsvGudfNHlo2/tKx+z7L4LcvMl8BmmX7TPPYaDcNwqTQ6QfPCwzQj' +
'MUel/i7O199t8OQMvk6CO0VL8OuAjqUDxd/N4ek1Lg7mFR3nfLMb5' +
'snfoiWDL5n6niYAGXjB1PskJmW8H4/FSTDbjCaL0WQmWJwmu9dkcx' +
'stDqPZTtzuRytf2VrdJpuHdEdA9HpNzpDJGTH5ciZ3wuRJAYQ 0i9F' +
'sVeRbXRxl9wlRAB8pkCblO4IkQiMoFO5GSwZYAkXodcUollZR L0fZ' +
'3GKUVwqh/RgIG2CJMFgx0puRRJgtrPVJ+eRxxWie1a0ArEWXI0BcT' +
'FNaCzMULdIYDoxSFMAZFur8tERO3B0nIlu8wmxhvDnQYfa3m4 M9Zi' +
'yRJ2X2583+gjnYZY6NmRMz5uS8ObtmTi+bk3NArAPP2Oa+bF/7rm3' +
'5W5buR8jmL5i8Wcr0ZsyxcfBbum9ap37bNvcV6/TvWEc+aZ15037+' +
'L639T1gKF6x9j6OXA1ML1r7HINZSuGhOLXJgfNIcn1I0RobMy Vlz5' +
'ixVpxaoGgAkOkr5hQuWzgfN2XWaDSNDfRwIwKjwACnpJUvHNU vPo5' +
'SWXrGtfMc69VtArCMv26/8xH75x7bFd2zLf2AdetE6/AnbwtcwF9v' +
'KH7Kdf9s68TpN7bll6bltyW+aE9OE2IQQtWwO94vF4VoJpJva sWLB' +
'Lk4fqwEAD5Y0MsyBqUVaiyl3XrfkzmGOsNw69DyWEVrkmpijI wDL/' +
'XhsDovdrbREXFZ3GGCxOUlk62JrtVssVoDV6bc4vACrKwDc6g paPV' +
'GrP2P1JqzBDuKRAfaCzea0ukIKv1QhtfDVo1Ag1u4WcoQ0p49 DINP' +
'pU0ZR0Xsq3BHJRiKM9MRAp21UJwaCAjoQX5qcrgC7yOMSA33K QEgQ' +
'StlSl18Y4ySPJ271JqkOdADXwSVXQ6igYRQuhFARTAIzRyWUU eiFq' +
'f6sNZAnji5fyhooWMM91lAX6f4cFyoyYEvN2PLrtswSEGt0CL 32jo' +
'uOmd92Lr7tmPgNa7jPGuykKIwNdRMJ99l7b9mHnnOufMMx9Tl bcso' +
'++rJ98CnH5OuOuTed57/vmP6CvfcRe/9j9v7HwQmx9r7b9s7L9oEn' +
'bIVz1sSENT5mjfRbo4NUl5iwZVegEUAzsiu2zKItPWdNTNpyq +J1y' +
'ZZZEPxkVuipWQ6HPfEx6hr7pH34BXvXNcfcW87z78IY58Ufuq 79rX' +
'PzLxyzbzjP/zkZRl92bvwp6M7178J4zgsrgOlgBaAlu2xLz9tya2z' +
'FglhjI1wrmFpctHAvVwwIAAgMiAxwccCA9YwNC0s+RUv6bmP1 ON/0' +
'PCUAYDwgPo6pOZxupzfs8kc9kbwv0eMOxB0uj/1f+zjsTrfd4bS7A' +
'3ZP2O70Ki2IoLh8ZECv06Ow+ZIKpzdmd/mJ+9P2YJ7gT9kDWUeki2' +
'zoAnijZHAH2VJmEYRwyHS42FJOUMiMsvWEhGq/MhavUp0nolCA+xJ' +
'2X5wAC8GAgaDAEg4PwwwCTMUQWAVRwMmfICKtgl5wFg2DHGkJ JUTe' +
'M0BYhYHQKG2TikChkUFySpmkRARzkksRamcbyCiWAGCGP+2I9 jrSM' +
'47UlCM57ogPOWIDjtigIzHqzC06e667V37fvf5HrvFPYg0dkR 4yYD' +
'ExKjbo7Lri7LvpbN9wRPsgzZmZcebPuuffdK/8nnvmc67RF93LX+f' +
'YiVed/Y+6hp9xjTznLKw6B59wdl3GqzO/Ql1SY2oS6mAAlbafc3Ze' +
'JHRdJnScZ29+xdn3COwhPbvgiA/TyPQMmXNLYIANAL5C19RrMNg1+' +
'RnPpR+6z37T+9Dfea78jXvhLdfoC+6Vd0B3L34F83KNPO9ITt hDHY' +
'7ECGwAYg93OmL9CiQnsCbOzCzlp6cFzyC1oMVCoTc5xtfkGB0 M9mB' +
'98JoYxSrxRw9kgGC+sARKnQN3hDQuEex3ZudhKsQ6tz4ujzeS C+bG' +
'wl1L0b5z4a7FYG7cn+z1BJMuj8/5MR4XRInWrSCeABEXQ5U4KABvy' +
'OWLgOgKJJ1uH3AiniDDOVxwhfPueC9e3YlBcMrhLp8Y7gm4/DFXMC' +
'UgzdYfdbr9aN+DOBgoyu3lKIWHRNHGqRcyMUQKhCXBDNlgA4b 7wgq' +
'CUeG8K5CgSYEkedBG2hX5GE7JghjKuUJZYUNMmOqhkaEcbSAe FFbF' +
'hExhTCDhinSwBQWzhgHA0SUtBBLKCo0pyocN0W4CVIcL7lgP1 sQd7' +
'3Onx7FE7uSQOz3B13i/OznCV1LGvaPP+ta+CXC3r7kinRiLgRQLBP' +
'ypMRqA11CW/NkZT89VIJ6+h/wP/tg793nvzOveuS/4r/617+zveYa' +
'f8E6+4p161d19GWI9g496pz7t7jwPIe7MFJWizc3RntyCu2Pd 3bHB' +
'3q4LhM5z7vZV0L3jLxEHXfLkl9yFZdgG1WLsBO3PzroLK+7OT e/MZ' +
'73Lb8MG/5Uf+m/+3H/pXRgDA3wbf+Rd+TqMUQZiKTJTrmiXXBBOM9' +
'pNPDlMk2AepEEdmKECa8WJj5IOBBQgMAn2w878EuXABrBxVeV KDsN' +
'UWO5d/l3Y4xl5Gqvk6b/p6b1O+zs3Pb/88YUSwcxQtOdsYuxGavrJ' +
'5OTt+PDVaM9KuH0qmB7wRzJef/CDR3p9+Ofx+j2+AAGIpAD8EY8v6' +
'A0lQPFGssA9gShffSFvOCM4/d5IHrg30eeNdXjDaV96mKMgATzBmJ' +
'AZYitEkRhKQQKHoJUQjAuxKSE5wLGBGF/DaWzsLVpL49GmxiNHG48' +
'eO3zkWM2uPfWHDje3GcXYFDkj2aLANp3pSNPJYydOH3ngOEbt 219X' +
'VlZeW1ffZvJ4Y516q/dgw+Gq6u0H6g+ptUYOjBYwSt2mPXDwYFVVN' +
'eh6swNmN6u1DY0PHDvZrNMbWzQGZBzsVLBHWJVBlmlR62DSkQ dOHH' +
'ng2OHDR2p27mo4fPTUmbZjJ89A9ZFjzYcfOL1z9766hqMnWgw eaIl' +
'3+dIjvuyELzPmKywQTw35ctOQ1mby1p+yVe+urz9lNwT7sIDN GktD' +
'4/Fjp1r19nCrOegId/rys3pv4dhpjd6ddiUGbfExX+8V7K5NZ8z7m' +
'izVexvrT1pN+Uvq3M3Dpq4Tjl5jZl0dnnEW1gMTL/hHnwxufFPj7a' +
'k9fKqsvLK2vknjSPk6V325KV/HWV/PBV/PJV/fNULvZV/3eV/7sq8' +
'wD9w/+pR/6BFf1zlf5xrpHStkRhfsb1+E8b72JRhGUR1nA8tvha7/' +
'Tejm34Vu/CS4+cfBS9/H8OClPwusfs3Xc5GcgPQwVsCb6OXcU4Pee' +
'A/cxpfs5ytWRi4LpEEXlEIRNIKSGfVlxpWlo5xF//Bt/8hjlMPeMS' +
'FtiKK6Nzkcr+2LgeUvBS9+LzDzqn/8ORoAevuy/6M9gVAslOqJds7' +
'GBy8kJ++kZp6WkJx8LDFyPda7iq5wbjgYzwdCEbD7A0GMYQuc ryF/' +
'MKrQ/YFANOMPhtkGQoFoOhBJso3lxWsmEC8Ekj2BzFAg1RfIDAPxh' +
'xP+UIwQjJAnklJeKTaCsWAQQjKBWC6Q6ArEO/yhOJlJT0G10JJqOn' +
'Zi2y9/du/ZB5B4dfX2+kNHdtTs/DD+vfvvoiCsWjRGlar0LvoHymk' +
'6cZrWxgtNJ85s+5jP9prd9Y3Hq7fXKJbUNiAosFAtOruq9B7t O/fc' +
'K+Fg4/G7KJXVNRVV23+l6mPGVEOzu3r3wbvoWmcy0Lkc7F4P9l0M9' +
'l0K9l9RoO9SoGMp2L0WGno4NPZEcPAGe3s2wEw6kPaFQGFGAl 87lo' +
'h3Locmnok8+NfR2/81+ujPwxvfCK9/PbzyxdDMp8JrX4WcQGGWHpK' +
'bCOTG2aYH6DNwmPQgcbTZMYqC/3QsBnvOBfuvQjiNgd78NFWgxUBh' +
'RmjkVmj0diAzwlEgyjYzFOzdxIyoAq6VHiDb1Avh1a+E5l8Pz b8WX' +
'v6d5uZmrVaL4z6SRugjP+F4NpofivcuJ0auMY5mn/lngFQ1/nB84F' +
'ysezHaPh5JdYSiqXA8E4okQuEoRocTuVAkTkooTArwZHs4kQc ezg6' +
'iF5EYzg6EU53hwiTaUDQJjeSXzPEsRUWT4jUhpCVA30ohM5Qm 8hSC' +
'sanOhkNHtv1/9uzeuw8p5tcmbV/d/8O51Oypi/SuR3rXIn3nIgOXI' +
'oNXI8MPRccejU48GW6fCfesRsfvRKeeiQxdB0623vVw99lI/2a4ey' +
'XcOc8funMhMnAx3LUcGbwCIfEr34vf+tvEnZ/HH/pR/MG/ip1/Jzr' +
'7iejZL0JsZOQRKSTcMUfhXYvh/LjwmUG6TW4kXJgI58cgP5zpJ71r' +
'MTJwOdJ/ITLyMAyjOgzh2GnyQOPIzejoLYrKDhHyo+zCQNFL4ZCc6' +
'SO9+2x05sXo1LPRicejC58pTr+kpKSqqmr37t0HDhw4cuTIyZ Mn1W' +
'q10Wh0OBzIPtEPfWLpznjnZGLgXHL8kdTsc6m55wnzLxLmXlB eZ59' +
'LTtxKjFxF0MW752PZnmiqIxqLc3w8SUi1R+PpaKY3mu6M5oej mW5C' +
'YTQaS0QT2Wgiw16wYYjS4jXFLg4UFCIp0kFUesWoVLvVFS7Ot Kur6' +
'/aW5913333llVd+mVfs3bsXPJubm5IZnL/4xS9MJtNWnp/+9Kfo2k' +
'oBAyigHz9+vCgHYyEHXTDgXkUfaNX09HRRtSS+8cYbv9KTP7p 2UGR' +
'vkRPPt771LYwF8VeaDfOwGpITjy0+Eh/YjA+cR5EfH304Pn4rPvlE' +
'fOrpWM9yrHsBdUt8/FF0xfrWCP0bKFrY9q3HepZiXbPA40OXseVSy' +
'Mxzqds/Sz328+T178dnnk9e+sPklT9JXngnPnQJYilt9AYExjomY5' +
'3Tsa55jAIxWhiL5gZiHVMU2DEFZjpSti/WPh4fvEixsGr0YdpDkxa' +
'lUphBwybuwBIkBQyhWDCgpVimAL52zRLpWyPz6EO0ZPTGR9lY ZGTt' +
'2rWrrq7u8OHDWOqWlhadToec5XK5gsFgfOuTSMbbRxK9S4iU5 PRTy' +
'flPEOZeTM69lJx7IbnwCnG2LyXnX06hi+Xf1UTf2eTAeqJzMp 7pSh' +
'SGEvn+RLYz0T2b6BiNJ1KJbBdaQioHBVQBAJ7MCGKeLfBUjqP EWEF' +
'JJzLtiUwHXptbNUWHgRP+0z9/pBfhgddJStF/8MBj7+KHg6F3Kx1e' +
'VFwu+NtWTqlU8kC+HHVXwP4yq+C0/3TPEw5zK8CvACPvsv9jad/Ki' +
'UdGR3FSUP3LBiJqiqq3aj9jTSXHbiRHriTHHsJJGUV+cuLR5P hNQG' +
'LwfKJ/lRvs8CUw8BU/LgAFzMBGom8l0b/OsWM3EoObaDO3/kP2zk+' +
'yT/631MaXuPEOXUhvfi21+KnMg3+GTZgycYKYfoJj+9cIPYuU1jUN ' +
'F2LbswBKcvQ6XwuDiY7x5Og1qoYKaQyVniXP0AWqljLB3zGa6 BhLd' +
'M+RoWtGwDQt75yI5/pDnYve8Rft/XcM6TV1dOlU4vKvJXFXVFTU1N' +
'Ts27evvr7+6NGjp9T8A06d0WpxeF2BpLx/oHkzz4hQeim5+Onkwic' +
'ZR4uvJpdfYwt8+bMERBZakapSM0+lBjdS7YOp9oFUKp1KZ1OZ QgpP' +
'Jp/K5FLZDhLxgA7AK4ntqXyPwAtEMFa8Oj2BorUyRuAPMkDgJ9Ih4 ' +
'RVb3amYUKTnwL2LLgeK9Ha0xdRQTEnwN3TBveGQcDMIl6mkKF lmK6' +
'jbuoYfaFUxfCAKAouODYat4bY1BXxE7fB5ySmnsHUHkKEhI/oDB8p' +
'XdMmJbw3eqh27LfGJzOzTmfnnMgsvZuaezUw/lpl5IjP/AvHRK+nB' +
'NbSZsWvp/qV073x6aCM9cgnE9MjFzPiDss1d/YP84z/LP/aT/BP/O' +
'bP8aQzkqMVPUODUo7mH382efysz+1Rm8ZXs5u9S7Mzj6eEL6b 4Fyh' +
'k6n+qeBmTGrmbGr6f7l1Ndk6nuqczEDepFO/4gAZYMb6YHzkJjenA' +
'9M3kTezhOZ+54ry3cbQj0qP3Dpy3JB1qdDSf0+095dp2KVJ9K l54Z' +
'LLNdKz3ZoToSVh32lTYl7kcZXFK1d1tZ9bbSqm3lO7aVbd+mq igpq' +
'66s2Veze3/t4eYjZ+yn3YNtsWVj4aql73H78PPukWe8Y88FZz8dmX' +
's1tvhaYumziaXXEiufS5z9QmL+lcTcJyQkp55IjV1PDW2m+s+ mO0c' +
'z7f2ZbD6TzWVy7ZlcIZPvzHaNZNt7gAjoyhS6ieABUuhuPHL0 rhSD' +
'zXmrD8swgb/B934hHumTko5WbviyKCqG2F3+U3Q/6YHghBB4MnTdm' +
'ynuDZ+7rCqGj6zHikEtQ0MmF+nhxWD/6NqL24KMiGKXDExZrd07UK' +
'oD/a5NY0sE7ckvPp9feDa/9FJ++WUguZnH8ksv5ldezc0+nh0+lx3' +
'eyI5dyY5dzg6u5Cau5yYfyg6t58avAs+OXMivfLL9uX9of/w/tT/1' +
'94Ur38hNPczemTtgA092cBWv+QtfyZ/9dG7u6fzGFwpXv50//2Z+8' +
'8sYmJt+lGJ7p7I9k/n5Z3JTj8Bbou2TgUSXO7dgS82a0vwj0pbo8k' +
'nf1FFrb31bolZT2HUytL2ls+xYqrR1TLVfozpoVh20lD4QUzU 4Sva' +
'cLtnVVLKjofR4pqxtCoFTeizFXrSHfaqjkftyjCyt3KYqZ4vw AajK' +
'CAgoVVlJ1T52gYjg2lZSvr9l+xHH7lOROsfCodCVBs/K4fijRwLnm' +
'qJXTqRvnco80py41Jq+osld03c9Zuy+Y+l+xD74jGPwSffw07 7xFw' +
'Ljz4bH7iTGbmKVsM9k++dznf25jt5812CuvTuXb88VOgH5rqF 8Z9+' +
'pU6e3OqrcWqUHFiucohNu9cmim0m/kj6zNU9trdzQtbWswhB5rJAR' +
'tzVNyOf4iVMfYlVRkbSheJwBUhR1l+SPrv2uohTMsrcYPh848 K5RW' +
'+OxeICKDl0pTN8szN4pLDxdmHsCkB/dzI9fJj5zKz9yLj+ykR+7lB' +
'9YKEw9BE68FqYf5pDphzse/KOuT/xj59P/pfOpn7Wvvkr+iWuggz8' +
'7fg2lXaRrMZCf8g0/5l7+mm32S8b26/rZ39ds/uzM8g+PJW8e0mfr' +
'jhn3Hnft9t3Yblkrbx1W1VtLdtTD51WHPKWnOktbRkpPdZUeS 6sa/' +
'ehiHmlwlp5sL21KlumWVPU2BAWgtLm/9EQeXaoDRuLIOA0OBtchD0' +
'aVnu5BfEHUfQmfklIknZLK3YwRBIvMRNtKtpWoGDg4S1XuRkQ DRED' +
'VyrAq2XGo4oBmR0vH7pZcrW2uPnr7oGv5oHPhoGOOrXu13rOG 9qBr' +
'5aBrSVDOCnyl3rt+yLvaGDh3NLR5LHbleHj9mHf2hGfspDV3U udr1' +
'tpatPwPBQfqD91VJm39xYsVy9ZoknFxl8OAs1gjyfNCUUiXeD AWzl' +
'YsrmQsgFIcK6+yDUZzOJI4fab1Q6y69+wzLZ6toorGSOM/ivatgSB' +
'Lsq316tbwuXegXBlZym41tbjzVNfs6Vh6tmP2VsfsIx1ztzsW nupY' +
'eBI5KDt1CwcQHLcjAxcD7fPewqIrNW5PzVjy543JBW1kWh2Za x18v' +
'XninVOz3zu+/OMjk392wDRUq+9FdqhR91Y2OksbfarGoOpIiNAYLD' +
'2eLdPMljtulLVNlrtuV6TeBJSHPgWoiL1ekfwiCi1VYwDZpGT PKVW' +
'djinjaARDmESa4qpDbkYHcg2DKMQIQmQ1JRhiCJajUdUhF9hQ sAFh' +
'1DDdRBFl0FvaOl5m3kQA3pfwYcapYPZhxqlgNDHj1Gyr2EUAL uMIX' +
'chKIhOVbD9YUl1XsutYye7jiCO0mFdZzcGqA601Te49bR21tv k61y' +
'rBvV7nXEa2qnOu1DkW6xxLAllQiJIHOIhEViSyRzeoqtx5r6P eW3G' +
'9IZ6tFwiyC23xvFAspfAqnRYUjAJRVjuy+ir6J3DUhFvzVGlp Ka9E' +
'UrmdO3d9iFXFg0ZRMhiKZzTp+VurtY+o/d4znVQkmbeGz70DsSByE' +
'aBL8shTUjGOdmt6aq0ze/TDu61LO7SjVScSFeqRMu1caesoSiBu2k' +
'1J7vDY/LGf19u5yTcG4Ntw1Ir0W5Xt367Ifr1q9CeICLox3BvBAme' +
'u06v2a1UHTIrDA+DSSBPHUmWG1dIzQ6XNA0gfZfpl1GCMhRN5 qCMz' +
'Ig455aCZ9diREGuw4zkKRGShCxGEXoQS0tAhd5nlEk09MwQGI AhMx' +
'YB6O1U3+mkngKLCGH5fkg/yDo48snJDEDF8ypiAEDtoZSZCECHpgL' +
'NiV0nlHiajqtqSfa2Mo51HSnafQKJkSgIIHkSiqnpfxf7m6gc 8NWd' +
'yewwj++zL+2wLBInYl2qda7WeC7Wei/scqwrdsQIE9L2W2eKvL30M' +
'rrK1bkfWuGuflxfUcMXi5QA8RLqT3NKLm7b06q2n+3uvIIrM7 yvF7' +
'lGx80OsknfmW49Xkgc2FI8kWw34WNqL28LWR16sbQ3kDzBb7B XF7H' +
'b3pX1ZtdjbE8I5A/Bhuuup7jLNNLd9+K3weXovHBKuW2dAL90SnJr' +
'Zivw7iJ3Kvr+oGvtbhtupLjrtkTATB8KHIeOmBLTIPsggLMDs kEB/' +
'RmoQUUPVCMzGIHfjmsPIO6raNobPsTS16JYYWSjeYANCACDsY Vo5M' +
'wg5LOEgHDhEITzFRQGjHsIRpKJsY9xhVL39vmQfhIaSaMqYaB BKMn' +
'CAyAMRA6qCBd6OelG21TNqAPtalNe9Z3BkUy4fCDuZvMp3iKq vXlx' +
'HlJdU7S3b01TZYNp+MrmzrW+PbUXCXsfaHvvqHusC2r2uTbzu dW6A' +
'Xlpd++FWw/22fnm565CyNdAQWfLu+t6PRMVUAh544C+7KMCycJqif' +
'P1YSwu9kHzX9yCZbj6G9vv0qEpZ/LSOlWnnUQjRwVj/JKVjI4KQIF' +
'gCoRZqcOInppOjxkC+QL2kniizXGbqSX+5avSnFZm3GVZCAo/qp3t' +
'wBhFpwqUkAoyF/zOJ+MkA5z/VKVzaKtKTnQd/uJOsZ7Ah72uVwULO' +
'5j4UYMwpTDohFmOgnBkq0y2WO28i+mg/wqd5gCGDFCZTFcYez3EHE' +
'AUhw7kxuK/JsquhpXJnnaqs8teXflQyuRBBokGYbD+A2kz6P50fgA' +
'hC3qnaKyLiEBkwTYCII+wY4pKhTAGGXjWhfKdy+cCorGYwFpN a+c7' +
'SPSfK69SVR33bz3TUaEd2WZZ22dZ22VZ3Oc6h3dHaXVL+AX+U Unn4' +
'Y+8h8mPi1svbe+/ffsUK7Tkp5nsCExer9EFb0C95ECzyHmNrsG/97' +
'nn/nnL3Ha75B85o55HS0708ZaNCo4sOsApq7qeLysN4ywgiSOQdK9 ' +
'0b1cWe0/BwcRjhuQNHlYrsV1m5Tf33MvNF1mDIEWDGsUXGHbOPS0k' +
'ukICohD8fS5fsPqmqVTO4GFMRQUwpPNCy+yRyEKOVWSzN0gt5 7b0U' +
'yXhv7mNoI+r1y4gIloLNfeX2B2k8lLJ0jHBSyHEn20mRNaTYE 4775' +
'orQ5J48bOqsaw7sbbLs/NfEFPyhWLDx9qBMXCCwnOOdtsTl8QeRVb' +
'1fXiNwr0CLOELCPWASEVGj3NGRs1oJScZOqYhQcXRCCzYRPiU 7H3i' +
'Pv0b0lqt21Jcf0FU0RaqaO3YYZnbopyoOO0preIegqtxdVnum urW3' +
'xrxUdSxSwjuNe1y4urayKVzRYKpoMFc0WCoO2//l6bgYIyhZccrDb' +
'8oaVe4Y9VwW1rTb5GGwpKaxZG8zc1Plnm3YcCr3YofZVlrxL9 Quk7' +
'7yiW4X0roKSivFx4W7t5I9JfvUSklZuVtVqyHbex8jYGpl17+ p6vu' +
'LMt2C6oDhvUJ9LyaiarDLc4E41ASkk9NR4aXwOhzJ6aKzZcZ1 BoXw' +
'eXkDzNKLlAzyC3b+isTvUMXIj3Ho4OaPFIZN/pBbyOmUzkyxsmwTZ' +
'yJGwX4tr5cRRPVWhgOvBTyQzNSDZUSQyvjCWES3ekKUhd2ihE spJR' +
'ksZGbJIu+U6Vcq0l8BG+IRdjK6MUrytI7TqlNdCLdyx41y+0O N1oE' +
'm79yHwFHX5CFj5/7m0J4ma019S0XNR4gp3hswKTA04ADy9kAGFB27' +
'XECFLOfg8zz7YB/GZEVu4r3Bfu37qYcBskNWg0xVyD7yPMVWJa7Et' +
'yvqoAtlnoxZ5rhquiK2d2au7eJr1HZkqLID+vKjgcqTmSr1YL Vxsd' +
'q4IGCp4kSm7KCpvMFaVm9BW3m6UG1aeY9hqdq0vN16rrK5S1W 9/0O' +
'/ee3DrGlASQksLCmvoePxEFfLag3bIEJDlKCC0sDMi1YWGMBBZP na' +
'wFcwy7IWDl9ngPOUfKhqFrS7HgA/A01k55IKJOv9SnKHKJwoDxhZx' +
'sgD+GEfSxFxc0tPZs1jYxfKJOAHTMIVk0wBLHtCYCv3PVs1/vdVM/' +
'9Qvfh/Kru/V+55otz1KO+BsVHLYzX8nMXbHMst5B15XQzHQ20GzzS' +
'uI62wNKITdvMcIZPUmUGEZEX8C6zcRv5juf8FcQkWZ8hAAm/bwuLm' +
'ISftESeXiLwN4yvqQx6IXOJM5JfHLiXNSRswKZyAxPcamCruM cZoA' +
'Mo2GIzQwAEH8Y4MaL3KebluyytuIEhDCBMyIDYRTbZr5cGXyz 1Pll' +
'kulbsfFxteZdXeo7uPmuvUycP20aOeuV8Jjc7JekNnbXNo9wO IqVb' +
'GVHn11qsDeZMmPwDxFfstQoOH5V3yQptHGHn8wRkHLQ47/N3hdaUl' +
'e04BlApQBgJihymmUmYiRtA/+6Ik81oteChWnrlE9pHaxc2DEMJI3' +
'CnOXyKKeZdeqqppKD1gLG+KlZ/MVahHqiznKg2LVeY1QKVxuVK/gN' +
'dK40ql8WyVdZNg2ShriqpkCqs5jLEE1PCHXRUtfegFc5X1QqV mouJ' +
'UoazRV4r6AYGAnUTeLjJA9pLCmNqrLA4PuY3Mv4gaXp4cZXrC OoAO' +
'2HmUzgyfOWjGQKYkUc1SJjixzhCF0EDFK6t9RApHHVHCkBFaz/15X' +
'ysZsDuhsGlwcP/HhgzfQ/jwGGIhw57T9DdZKSFm4aViw2d0wPGM65' +
'Xd/7Z64X9Xz/+vqqn/wYSimaY34ozPo4RHOSZQuNi3zwwSF59Iytq' +
'myG+5zBwkzimkw/mReo7nkG6QeiqirzH16JbKnY/IEwp3fvj86R4O' +
'ROixyhql88sqUQzkK0IAJ31R3TGhwB55QQGruFdYxGWCX7nEM KyKw' +
'rKPCQhBhJyCYEfZZr3KqAGPcY0a2yahVAk3eWnQOsopYDiCyP t01c' +
'TPP+ibZ031/hO7mxx1mtxh51Sje+4jwiHH5AF9577ToV1Nzh2H9OU' +
'1B1UVNQwHxs4e+Q2Izoy4kA4MB8DPit+3qlZV20ZPwM+NmgGH PqYY' +
'UfVtE3s4a5tKIltjgbEmso+S1+QNww7lbCWHyxpPHp1keuKBq/a9A' +
'1Tpe7cT4mpC1pwVu1R7m1XyS0FTorxloFw9Vq5fLjeuVpjWyn Xz5f' +
'pFvBI3rpbrFtiFndO8UW44W2HZlF0VpnW25o0K8zkBGxX6hfI zfaX' +
'4TfdrVCxTRfaRSQHujUBACGApkIt52j1Jb0dAAUeyQFzUNLLI Z2g0' +
'CIYT9FUUJPBVhKeIC7gHB7L6bWQ2R9Ei05n4bs5Ph7VqFDPiJ kot9' +
'mqe65XwQcaBm4Eub3oZia3iE7xF3NDyjlecGsax91bP/yNyBE4olQ' +
'M/hK+WB15kQsG5ABs4IyIl6zcKh8sJOp1ZhCTyF44YzERtk/ICDWE' +
'lHLuT2Sf7tcr+H8h7Y55cmFM87wcgIshySXz9b2dkMS3y+M8/CYBM' +
'xBHSJW/e3isj5UAZpExScWFbkLFwPKNMSmauWjU/m+pXRLLz8/6tb' +
'arc9wyNFCcs2FYeeImBD9sO+xBf5b7ncEz71YVz9d7qA2d2H/fu13' +
'Y2OOc+ErjmG1yLgEPetXr3cp11cs+Z5M4HHNvr1eW7DqvKt8t LA7b' +
'0nDr+3NhppS9V7cMvqNRg8m8VgKNVPh7tVKJjS/pQco243BYfm/jF' +
'VinkipzyTx0kT/EzLo5LZKth2lIQZjHWSPI8BQthFQBWIaB452NUw' +
'StOFEpbhuVXhjLTeSx7mXGDrelcmXlTARLXlFbSwQMcrfkCWu 6i4r' +
'fmti9SjBJKoowXPn+ISUpEEPyfN7FYKFnRMdcYxLnAQyfHYRa vR0L' +
'kZB0okhdwhfk4EcQm0/pp5W5KfOaQyYVjETsIKMhBBNUZGGW1bTxT' +
'YNZghgs9EJPFXrn/+eq5/8nY6fpu5cCPuGMjxeCYgFwgThNKNQjXx' +
'UIhdqCCdopPkCfyFfHP0y3p7VPyNIEl4qHDchkuysLJ+zSvxd 4r/O' +
'Qphn4uDkdYSSQm/uEZ0oQ48jOLQTLiFPUh8oJhVV7QKcd8CaBAiLw' +
'EAHNzn5w+Ywq/AhIZYkdGNBTxg1EOGU3cHvDyjX+W0NzP/QS9J9uR' +
'BFG2IVfi1/y4lwLIKdvr23ad8NdqO/n3AB8IrmXxJwHL9d4N/lWAZ' +
'41/JyD/hADgWj7gWNin69t1OrH9WKCyrqWswcrdEicguMfOB0T47J' +
'CFnFK2vXfoVm4P5EclmZuUe7ntLN6UKwteJsjwVE5AMkORKKo +GU1' +
'Ii+K7kkJhRO8T6nYyx8mYFScmGT4i2MWduUxVUjISKA6nyCYH rSVH' +
'Iir8HG28wyk1nlPpllW6FZVmQaVdwmup6UKpYb3UsFZq2lSAx M1S8' +
'8VSeKD1WqlmTnU8V9LgZh0LgXB1XizwzCv9n14NBOpqGsWh2y YOKR' +
'ZGBFwdIcC/0TqlBAs/nGm5nvwGLc6VyGsitYnTjUl+VX//u6H0LvF' +
'5UXyO0ctkxAsreUsMN+Ydb67c/RiiBhHEL/v5d9ByQ4aDsQzLiq+K' +
'IikgSOUBRH7okXhjALsNooCcqJpw8MF+ggIJoWF/CCcpSOZ9NWaHP' +
'QGzgyWwUKQD1GPljoe5/yNqkBpct4mLgkrciXXwm475ApICo0/cwo' +
'm/W3Myv4gPo4w43m93cRSsFR9wWY9hA0RJhh8CKYl/ftAhvzSxApR' +
'/wyOzJ4w5GqkIv4qkgz2Esf9/AXGaUPc=');
Canvas := GetBitmapCanvas(Picture);
CopyCanvas(Canvas, Fr0znFormDesign.Canvas, 0, 0, 277, 28, 3, 0, 280, 28);
//Start Button
Picture := BitmapFromString(113, 49, 'beNqtm/mS5MmR17OOrMrM' +
'ysyqrMqj8r7v+86s++6qrur7nO45NLdkQsdyjWB3YcEMYxYBi 3EYG' +
'jFaDuMPTGCGLWAYglfQK+gV9Arw8fBf/jqnRhLDsmluYR4eHh4R3/' +
'Dw8PhV9+svHQ8+/2b09+fKzx0P//gbd/wGhDWlr0t+20BvFP6B49E' +
'/FIJ5Q7OOXzd7y/i8HTH1Y6v7N5zzm3G1+mNj4Y89WzF3KOkOZ1yR' +
'7Gq0tLpddEVy7nB6LRCGcW0XVuI11VnbjLiDCRhnsr2SbC2n+ yg70' +
'110PME4FlZjFQhGqsGEllQpxbhpFVPhNANhViQwiTqmlnITzK oOzH' +
'JmADnTPVrRkWkk6ivJJgxVlB2NG0fjWmjwluP4B47us4XquaN 5z1G' +
'9WCgdL+fG9FUjTFWMxKvGQguiaamwu1jYW8pNUXa0Hzq6Tx2t B46L' +
'Hzlql4uF/YXyCXOQ0ZMt6Wi6iJFYhZK+MIulQ0f7kePib9BFLEzed' +
'3Qem/39sXdr2xPJCoVT7u2cezsPvxaMezcjMK54dTVR1yaEMGuhhC' +
'tRW021VzI9lFFwR4vCxMquaMl0z6BGiSYkfCiJKaOWUzkS7aJ 9ka+' +
'mWiwETJgqCC9nR8Aiu5ZsGLM5Bl1JdXQ4Rl8sHS1UzgBQUN39 2DF+' +
'l6qgUT1XSJmeQooyxlkFw2EBBgmw6D4KMmwERmpX4CMbkRtjB 8CZg' +
'6zU7Lh2lA2CMWsXC9mR4+j7juFr2dbxe476XYH08T/ybW2vsdJoYQ' +
'24Iml4yBtKeMNJSPCM5pFrKa3hFHNjpRhHCO+JlSAWKwxq21l jJOs' +
'LRiE1qzpWUziFZekLPnSP5hmdaWBwoX61WDmVzQJtRpHlt8wq BBOB' +
'l1HMoM7scKl8JL6Kb/SeO3Y+xFWcufFC7Q4WlvNTjKDjVEiTDelLL' +
'6rwqRaaMFSXyscYWaxdiJ2LHzGW9AJVjBT30JStzPSQC4zFA7 GWqK' +
'O/nN+R0XHvg+/KnvZfOPa/DZ6OJ3/ina3Xu52Bl3I74wPPSNofirm' +
'SDZVoq6C9nWFR7kTNlW6bskMJJpDgEK8YYAto+kJxLNj6NIkw nPRF' +
'UiI0aqa14Eo1pXu8spIbLdTvLlVORcI2YRxhdriSnwifrFPF1 Gq6i' +
'85y5WQJKJr32QjH6B3H5Fv0VVouHWKKXqvZAaboyELoS0eqzB ybMK' +
'vZ/nLpgF1Yqp4JIGd/lapQ5Rghruss7UtHs0yUpTsbwcFPdxmdoWU' +
'jOPKnf0W647FP/rHj2T9dS1S98SLkixV8sbwwQBrL+7fTvmh2Ld00' +
'TVIVSaygCt54yZNuebJdFNZSDTGSqCCcK42daNaYLagQxh9Jb UQSa' +
'uGNqUwbU2p8NT9erp6tFnewL5bTTTdryY0odTiUaXVWTyhXyg cLxE' +
'ACKeXo7eXaOX2XmjfLjUsUaF0tTOkFyZQSFeU92R6jwFBCaC4 15NQ' +
'DDt2d5UO6q52l5jWjyKC62ESV0pUbMhkUOO8y7vQD9kLwJKQ/+RPH' +
'83/uTdbWoxnIlyhDdPGDcKq+DoCJMgxVeNXxxwta9UezNDE3JDBr2 ' +
'c5apk2TP5ZDIqaSVakako7RrPSVVsuaL1FSHRi1wEzgmQALYb asyJ' +
'0fuYo77vyQVkqbd+XHtJrqyFk7Z1ErlWOOHsislvbpvti6B79 SO1s' +
't7aEDYdxMuCt28mNXaZcmeoHeAp6Gk9/7e47BK2NhT0tlsIa+N9PS' +
'NcrWJ0ortVNxTqIoMWfvU8Hz/DPHye+Jl778SSCe24ymArHsRqKwk' +
'SzBrKeqvmzbn254MVIce3Nd5OupykayTIk+pBJPcYqmyNN1b7 6PPl' +
'X4jXhe9DEYz6tZGO0lJXw0LWrJMqOgSS9fuqElo2NngdkefX+ pfZ8' +
'hXNUjjKO/VpxQpdWbH7jLe+Dgy7RWq8eorbTuKuMqH6w07lDlwlpu' +
'3Vtu3Ui1fkHTYvcJnrzYeyrC+gWaq3hy6y5NC4OXjsvfx6DaW a2fY' +
'Z8SHjsrzSuZG6gaNJiAq7yPUAzufGj6/oHj7K9J+fSfOF79dDOR34' +
'xlAolCIFUWShRYpj/T3EhXN9I1X77ny3WRBIAoXZ3JhZB4CyN0IOS' +
'mqebPddAXKgz92bYatChZ1F5SgnO6RitAIZERmXNhIGPlOlLN dVyN' +
'8+XOA0rIXTlw145dtVMU6O4p7VBlOQoyvBMwa6cAAr/Yf27c5q8Lc' +
'XdM3ne2rj2VfYy4GhdqEJzR1yqjSJfzzyjRdNVO3JVDFNAHNy Tsgq' +
'wr32ONujomgALRWy4mxrr6Q8fV33Icfs/x/J85Xn+5lSxsJoub6cp' +
'mumqospFrQyJJlQLZ5ka2hTyQqQmfa1MGMnUkdKRJlI2C0amr jr84' +
'9JWnagQ1a4hUaTZE1YxYtSX08uEAlb2NQm+90PcXR0hg3PUzh K7Wl' +
'at9De+pHtGEjrd6gL6z94RWBkK+3H+GAmor7Rt382Klcx/esfOR3B' +
'q7H7vrp+igrAQvlqsHQsa+s/uQK2al82CVgZoXotC88JZ3IVfzEgV' +
'3885GvstKGVfX6KmfEHAWxu84jn8oe3f9dxwnf9nx4l843vk3 oXQp' +
'mC5vZhuG6jYPQxMSKJQqBgAT9Ao9Sy1TCSdzlL7qPmvXXjCUK FOiT' +
'LmVqUFqZCtTRV+r8HZVJVj2V3YUUh9AVfd99aP10hjyNs88rT sI/a' +
'UJOjDe+glyX+3QX9mFvPXjlf5T1JyD56vdB+723aXRK3fnxjl 8Icn' +
'V4V8CVZW7W1eY8jTOUZa+xiBVlAXS3iN3956ndUmrpWBa1f56 cSDb' +
'XZpIKYOeLE7elSsJPPFP4gYH/+VPHO/9+0i6GMpUQrlGMN+CqEYyZ' +
'crtdAG5CkO5+mahqwRvqCEdcw2G89ePNkuDzXwnUBpSGmv1UL aqan' +
'RHKPJcwxhsqk3DNEUIGWWMrFf3IEah9HSuKTEeqEwgP3tX3dU 5IIS' +
'ookCTKHfvAcJq//Fa+wrG3X9Ed3fvwcrwxfL49fLkXZoQrg6fC9N7' +
'gP5a83yteeGvHay1L2kCE9TUDsZBDMsoBMojStVEwpyRyKyQt y/lw' +
'XX8Q0aRCMMN9fpLxwf/IZYtbeeqkUIzUmgJ5etUY5liLJ2LZsuhYj' +
'dY6ocKbau10EIYydXQj0qvFk3+5ikULPakin6xZ/SbdpcZNaVjvg4' +
'vOmiWhxgPVkZUNyvjzep0vXHsb54h3KzueHr3qSIXtfIQCSTK VLUs' +
'DwP1A3oh93buokx1dfSSyXhbF1QRuobPsbPWufZ2rqQ6eAK5D apUk' +
'TMcJb0cd/9o4eA7NK03TwL1/UB1F2uY0hJlJZkP05PZ7iBf2P82uy' +
'CbhQUgffVTx0f/KZavRQuNaLFpUalNGc9XE7kyTZFSJ1weREpdW4E' +
'm0S+1E/kKDGWoOl5vnW/W9lBGk2q4MtwutuEpRVnJdNdeYrDUVs1g' +
'fTdYmwZap4Hm8WbjQJjWqb9z6ete06QGYUS5PEAzWN+DhyLlP nygc' +
'UTH9c4dymB1AkPfxYPveHv34NdbZ5SYYobIvd0byNe9C1H1d6 5o8g' +
'yeCCBXf7i09/Hq5LVn8Ji+zAQFxqXcbBx6+g+9/QdoukYvZKD6LpY' +
'R0p3W1fFbK9N35IZ69a8cn/zneKkVK7USpWai2BAq1CwGKjVj5W60' +
'0o9WeugoH7eYnqVJx1Iz2Dr29e9vNo+j1SEUqY7QlLI6RBkF7 aU8R' +
'KuWSFQZg5utk1BjL1zfCXQu1rtXm+0z5OHGrhisT0ONfaPfid QmaH' +
'pGz5CgvNk5Rz/IXnTubHQv1/s3/t4NubfKmRIT8w0fYQ1SHSWjcAf' +
'lteFT71Beo6vTd5y7Hyzvf+Lc+0h69e+jQC90UGbE9e5dz/jl2vAJ' +
'E2BoWXLnXIWLR99z3P3bjnf/7QKQltvJcgtKwJSaFhXrEBJa45Xud' +
'nUUq/a1SfW3DVzpYk2qxTqtTNszeWu7sYMwVh0oFPSNsx3VvpaGBj' +
'Icm1UdYAS5GaInXZr7W60Tdmercw6DBaxt16eqpvrbtbFQA9j vhJs' +
'H6KCp+hDCre4FRJboHT0F3kDvCoJZ79+TVjRRoGyfUmqrf/BAIL38' +
'fcqlo+8uH3xKCUre0TMWBfn79+lOic218XOIVvf0NU2U8HRZ3 X3fc' +
'edvOt79d0vf/rNMuQGlK+1ktQuTrHSgdLkpklofYbragYnXhkhUaE' +
'toFX3UaoNYYxrqnAV7d6LNXeRUY/VJvD6GaLV1hDdD0N1qwkitv93' +
'aD7eOttuH2829cOcEQqJELzTFoGGMtQHGGWi7fcSg0rG1DxMY 3g92' +
'L5jD0vH34ANAKnS9Pnzo2vtgbfoKhioK0Fbvcn3wYH38ROVAS t/F4' +
'x94pq8Z3Tt54Z28hHftvEsJ7wPM6Sv4lf2Psb+y96Fn521K+m INO4' +
'snP3S886+Xv/NfcpVmvlLP1LrpxhAeBoLJVVvpel+o1ks2RpDoGJ5' +
'SqDFMNsbZajvZnCIUpjEKjB6tT55FO8c0GRqhZunX+0hMr5H2 NR1F' +
'QlO0cwTFmzsILb69D6lOorkTax9A8dae6Jsu8Nu9s3D3nOGgc P9yc' +
'/Qg2L8Lre5/GOpfBoc3kMgH9zZGjyAUkKuEea7tvgP5pi9pctz8XZ' +
'RXDz7ZGD9Rs+HeRbB/habY6V+Jwf4Vfc30jpmbqPUutEqTd+c1B3/' +
'lu/+tUO8Uau1cvZdtDOBzjT5lqVqHtIo83ZpkmiMYynRraqpjSnht ' +
'TbZ2kaAc7Z4Gps82x4/jvdNkew+hram9QsmcdzMSTBaMZIoOZSRT9' +
'IdiPPy38w1x7N5JvHtEk2nVsabJ7qEIu4eMpYQaw0X759v9O5 HBVY' +
'Syfyc0ugf5d17RGmqf+FI1dyBMGeqeB0cPtsYP0Yn2L9BXzY3 pc+S' +
'bkydEQtfhp56DDzd2XgYmT22DkeFd1OgIocZYTEbG7Z6GBteM jrXg' +
'6P7W+BGrdnz0H13f+++F1rDU7BWaAxgo155QVuotqNTo0gTlW iPku' +
'fZUdJqDfGuU6exlOztIDE3Snf1U70i6t0aJ/tn26Do+vJPsHaMDxY' +
'rNtc3w8orLMfdbcq6Es+T5VafL4/jqz+la24imxYG7B5gNpsq+rW3' +
'5ChHPUSqFSz35AhMvbOUa/kTJlyhTuteDi0tO10Z4vTzxhROOr/2c' +
'vq31fC86uIRigztxtmN0HRo/CE0fr+++5uy7j77t238vNH5IK/NnX' +
'ZSsJTq8UgrsvtqaPNmaPgUB1o4CQpFMnmBk4dM/8/zgfxQ6k1J7VG' +
'oNSp1xobsjfHtUafUr7YHFtwfFzqTQ3c1191CrNDsI4XPd3YL SrJX' +
'ukDT1DjL94/TgNDU43UwWHL/lt7Cw6PjtPzAnv11yrjr+on9r25nt' +
'8b3t8X0ppw+DO8+Cuy9gyII2916Hd56GJ49oSoyuUsOL2Oiua E4fI' +
'jH8PRQ8R5/6Dz8I7r1EkhhcSNP4BrWl7/zXtR/+otwZl9tDoe4EXs' +
'HUarE7BUxhentQvreHHAVL0pkgEZ3eLiV8tn8E5fuHQr399PB sqzz' +
'8+oq++OKLXC43LwkEAp9//vlnn32m/F8ges+ePfv5z38eML95+Yov' +
'EB/dhSK7T0EGlAIH7y3e+VFo51l8fL21/zo2uUdrcnxFqdiyHKXs8' +
'DQyfew7/BC1+OReenSBBUqIQLry/V+AT60zrPSmpd5OpTOqdCcW35' +
'sKIemMSv19JWnq7+UHx8XBAXJKhKbcg8kPT4zaHgw6mdG50+P TJZy' +
'dnf3qV7/637PfL3/5S3t1gImEVq3+L/ObxxyeXfjsqz8gUgbQ5uW/' +
'/vWvdWsYkVGw/Mknn2jV5vW3niimJtfJyU1470VmfBncf7Vx+L7/+' +
'OPY7uPE5CY1uZsZ38mOzvOjs+LgUNfFSmVd40u6+I8+okt4/y3UkK' +
'DPqgmkvEm90XwwmuSVTe7NNcrJrXbHzU6/3htX+ztK5cF+tTct93e' +
'FekbS38U+VBieKEMv1Bg9ufMgsvdi8/BbxBbbCVmp4qYA8uv3+2Cl' +
'q/76D30U7OWD0nwrCNsoqeVbv1v6X++rPwJmYXQa33kERXefxHce L' +
'lz9QXp6DWUnl+npTX58riuFgVgsq4PZOP7If/Ipvaimx1faCrl/8A' +
'vH65+5N6NrPr87EIFxb8U8m9vrwYiAnKlES5JzZluTQv+gOtw vj46' +
'gyvAQUh4qjs9Ko5Pi6FT40Wluenf74K3I4evU7kOePLaL2itV rwNJ' +
'hFRxyK8vH+RtV1T9W7jhmfNm1cNtt7THwvjX8VTH1onx2mXC6 Z37m' +
'Z17yb3HsYMXa+ffDx59Kzu9Rl6YXOgaYXLTq/zkTn56SYl++PDtwP' +
'GHaIaP3qUv+gUA7x8sf/9/AqlnfQtIPRshC9KNkPKuUHo1nHEFEy7' +
'zt/i1mHyaDuTaXBm8ZSQj7ewU+vuYKo3PyuNTsC1OLuL7z8NH70UP ' +
'X6V3HyRaezpz/M1elB5qsKLkGNIEFDZigDN/5FEjEmqroqFqqnMLU' +
'n52bGEUqvSdR/jrkTY1PM/u3s/t3OR37jLh+OFLZu6++D3gRQJ6Jb' +
'Moo3AteO5cs8zw7nOSBLJZXkyrk9fe+rGnOPUkqu5wWr5EKaT +AF7' +
'q2oorgK5QajWcXdkurkbyCuxKpGCYLASjQgE8lHbHyt6EfKjf yHe3' +
'Cl1v755/+Ih8ODh5FBteLSwuzQfMry9QsbWhmI91/GyvAz2qtP4OS' +
'O0hYPQ+srfAxnz+50s30vtAd53bewBl9h4mDp7jb2un393Yfz dFdt' +
'Q5DrWPg/W9jdqefJ7Nyd8BnZmBo3GzUDxwVM4c3Wfyt/vikTPRWIl' +
'VAEQhtY68uGVKSFGdJwAEW2UMkkKRvEFYq1lagZ1dWCgeMpwz 0VzM' +
'jhfDxfkl3EIVuOxb2G6av5dvBQT0ba+7BSk+aVtAZ97JbZCti 35tn' +
'ePmS1bXKzveztVa+8pf2V2r7LuLU3d+uJyfOtNdIHK0Hy6nuq zCGa' +
'8tJ1pL6T7V5VRnIb8n/4ii91z+NQVg9l/Kv83oPEEHSFm+BSlgcrS' +
'3YuBpl+BsRQAbcHxYMLdclO6WGwcT4q7SmmYCDLqY31lK9ZgD maV9' +
'Zav72W52y1cVPQ74/BYADjDqJX4rJOrNZUN66ze/L7cGWvKHmZtML' +
'9Fi00GPkqq42XaRORu+qf8mh6aVaNloTrSXANh+KP9uhxJUO4 9FMn' +
'gF5gJItGx7qUBqoPMEwuaMpwRGIwErRdiOCQqsWhBlgTQrwq0 4g4p' +
'zZscAuxxM23jquVYcKO1jbl++6n63IAVPDYmK+XwOdut6+o2A z8fw' +
'N5D6Quw7CAhlR5wpR+kY91NIaYIB0oX8rnhg44a10Kr6ugVCw Fg+N' +
'f/s50b+dUT7EV4076W4ImioQ0pQBdiNEIxnfdN2YOLtm0hrIsAbS A' +
'0vQXUzqjvO6LL7vtCtQ60ZIy4EkrdWasfMeQfT+9q+rWiyUdW DPO/' +
'z85jbZkH+1sFfWF5l2jLJzNByvPpd9QQBNl5jReBpQuW5/Juc5j28' +
'FDmgsShcRboUj+guYAIpyNeuTKxr0FchXfNvrHl94o0mmxJsO f4ga' +
'bDFb/VQi69aIXeWCQBmpKA6RACZamaoB4qTsuDy2ciwonkfs68MBX' +
'De2ebvZY0GevbZhfm0AeGtzEqR162ZfzXcGkvCqXEGXNE4ZxO sIIU' +
'RYuYSRXHXWFXQI3K2HqCgvo1LcytJRCWQ6j8dJAIQJahW74jr vvWF' +
'Hny98S0M17esbCoQRi7uqjkVnhwISwQwB1/TAKFoWXjcPlbRQKS7v' +
'7gevXXD4lQKrOai3+Q5SRdNUPVdMH/v3Ho0aSiwPdl2y9tfFZwuJr' +
'YczrP14n6JhglTBk9uASuuNu1VqJ+IKzbvW17dvK/XvZSDV9LUfSo' +
'HP1KQIDyDVNDDP9c3rfsIL8VpkSPh+BsJfmh7qV5V6qtsnyZX KMhk' +
'YlWZLfEn2bGvp//X38Lan/+ZD6rqq/NX/28YwhOwgqSc+olCKje7g' +
'VpDgaJEkwZSYQRSE0JLx5YPw0/ep1Tftm98EPsKpEZiOa26KDnSdl' +
'EDAkiqgt5iJndNKcISXa0gL7u8HG8s+SMLq95Ft/83f2ty+Zz+rcW' +
'5b02LTtfyxjb7sujd+v/5WmKnEOrhv1EHX5VjDoCZIXjiq5oJCNSa' +
'FYBSrCp5lCZUhAKDud5cEmk7Txxj86f8nQ9FwvF/+S811Zf7yECqs' +
'RSnFZIgIF4q5x0vNT5ppf0EUs2pjETeBbKhDQaFEXdlJgQrOV lNkT' +
'OrYAZgF4zfcvqWfEFnIGoHZJMn2++IlGbCznB2KRBb3IgvBuJ L4bw' +
'TibmRZdfg/cHltY3ltcCSdwtyrodXNrYdCwu3gLWvLY02+rMTKo2o' +
'4oQSTk36Z64tvap0RRJFiQbmMOq6QE8DMpOUANt6wA2luyN/IZXrK' +
'WDFTCD1+qz0yUQDQZvQOoufGjwttzTJ1QzVrF6jcmMCjlm7nf 6J0C' +
'SxSnTRR4HegOLevBoMiXHzfJi9KYRnXRrfsKwZjqppVmz30oR 5ZSu' +
'15PJ+Q09ejJQ0/svxzwzl+Es4nV1PiQbGwRZSNHQUOd2VM9YrC+EG' +
'IUMwkUEO71bMPvjWA9+AqVmTXVWJTlt2CjyNf2ovCxYj0RcE+ 6iam' +
'jYLpMZ1bbh0GoLAfKJrAotmZRqWpaoZGsm2OYliEBdK93UIzQ NVTR' +
'erWYecF39oYcX9fwHUH9W7Wy2rcb36ZQi9nrIjSXXEo9KaZ6p foak' +
'JkjqPeOnkfYCV143xUit3Uoc0SFqnXokkivXqpkTLVo5qJ6v6 4DIe' +
'q0mdPnUVt5lfNRRq8SvQTjQ0JbP803awWZar09Y0RlCKVcRVz O1sv' +
'W7MQPa7WA+OxZvDaC7KhnMzQXhZ9KwvLC2bKL1qAgW07gymzd PyRt' +
'+S6vzWPTW79+VBpLtm3j7Wq9wcH1pBRseVOMzV33tuPbuA9O0/VQA' +
'58nLqjVvaEdWEUHm/G8fIWMmAiZ/2tWXfZXpSNK5K4kfYMYFIwRSU' +
'TDJgOac+HMw8dQj7W40FkcFKQRb/J37S3RxJDdG63nnNuaQuq0ZkG' +
'pqQGDR0l63JJBrydDK3jKInjym5pMw9lR1JBjX7WKSRCka/1Fl7Pd' +
't3cXKdkv0gtT1THHVTbyWNcm+CnjhV2kYPib659ERoiLAOuJ5 fE1H' +
'tGK54aqS1PxTMPhdk7S8wVgi1qlZipmm5nnTL4WepmnUhmuFk dWaB' +
'omM21Iozxp/fRB7FX2w2NP+U/Bxga1fm20hH/l8J93j1ju6F9a7Ru' +
'8PEOj1o1o3M6OYQ6ZTsB6n4p7qlufepKlwCiCBgwogBWb3ULt XN9B' +
'TLxwGz+zrh+YVYB9l81ZlPG2ZPsJTtVNZ3sDdoZ7Sj9ZrArPF Anbz' +
'JdroWsHo7m4BgeQ6ObZStg2O2UsOIfWqs3ce1eBPxqCSu6ikG 1caN' +
'RFQrwmTtxyPT0yvDsmYWaB2ZuTe+wDg76XL1+/zWMiV+pvV9amdT+' +
'oFFt8wqZ8PZsOgc7Anr1qjz6LVoP2ntMKIbYT0iZpFBrnuT4u rtr8' +
'dNLDN54/x2ELASNnN76jKtTEN3wbi6dejM2vUIqJvpKHiaBlIN1/L' +
'GrJxLtm8+X7zRN0mXztP2YT19WhpIv9SPJFYS5Q9InmC+AOhJ tz6k' +
'mM/UCqnE2Nl3KuuqMvBa94uBQuavnmCimbXdJhTMjlL6zcfY2YQto ' +
'X77MmFcUyYxbqKftVnGpgxkJcAN/aSpXzU1DliHUU+3SSbtRc0fH0' +
'bRwPImKpqrX76ZNK7xWNkLNl1TYlGQfFVvZOv7mzqPOr8F6c/0sOu' +
'fn9DRzbUOuJI51/rAl3eWefXr9WQlCZpombXoSmchUU+u9cVbkys7' +
'wL6JnHP3/puM12RuAp0BWd3AvozA8CuBUV8WoGEemJq92x+Q5TY3q' +
'ZdeZ9aRtyHVWKFZ/Syxt45/7RJeH9qaaeh9MTtoWftesG+92Zco8x' +
'1PjZtb2/ITTU0V29kVZr6xbOgHav0IoIDrRwBG1AxzlqhndQct91C' +
'nUqc195edz8/HT+uS1RMayWu6ZSe3GiE1B7CGMLFFj4Cip3m7fljW' +
'B6Z+1rAmY+KGnS1oHqh+aGfCcvb1/5ZWzq3NygwVdvtDvf1nDuveM' +
'cfQuvGtgJadfZxPadakD09z9jcsSG3PnPmwBIpZKNDXhB5S6+ 8mxn' +
'/erF2D+Syzsj8O2M9b6zaZPb7sDFYTXXtTNDSpS+v9a6XE+ig2H qV' +
'3jR1mzZuoY4XrWeiw02BFQBer7zV5slkvzcvZ9dfUY2j/jUMPtW66' +
'fdlZn6Bnl/UbtzT3EUPId1RzH+l3AA221gvLhFn9TqW+amXvJnnT9' +
'dpJuDWicRI9/vbtr/HT+g5jsjLjbA1dgo6u3m6/Us17qquhww7F9q' +
'GwgoP81aMj6aX50GGnTPpq0NvKel+YN7Le5vN/U7O+l/ae29uhAfk' +
'rjz7rVZ62nx56Pc3RzwzdYmZNb/+p0BvJV1tvmZJ32Zd/fqL777bw' +
'2xTmhaLz0zmadfmGc1P9lz8ReusLq/o7+mrT/wElmg/l');
Canvas := GetBitmapCanvas(Picture);
CopyCanvas(Canvas, Fr0znFormDesign.Canvas, 0, 0, 113, 49, 16, 203, 129, 252);
//Home Button
Picture := BitmapFromString(113, 49, 'beNrFW+eOZcdxPjM35zA3' +
'p3NzzjlOzmFndmcTd8mlmEnQDHKibElOgGHKsi3DARZlSg7wD 0M2Y' +
'Mg2DMt6Bb2CXkGvYH/V1bfnclYiaPmHLwqN6urq6u6vq6urz+w+/V' +
'S7/PiL0R+slB9rV9/4wh2/AMEa0/OSnzfQjcIfanf/iAjMDS07Pm/' +
'2lvFVO2Tqm7L7F5zzzbhc/aaw8A37RswWTNpCaWs4Y4kWLZGCNZy1' +
'hXSHLwTGGsmb41XWcfjDtkACjCnZMiebRr0HZZPegY49EIcFS 6wMA' +
'kPVQIJLVFGScdFKpkI6BoJZkoBJ1GDKkB3DLOuAMab7IJPeRS t0aB' +
'qJmjnZAIMqlLX6uVY/I+q/oO18oHUerFUOtMaFVjlcK+4YsyP0ZSO' +
'YKhmJV4SFJghNhvxsPT83ZCdQ1lpXWue+1rzUDr+iVY/X84u10i7m' +
'QKMnm9RRdCEjsTJK9AWzXtzSWne1w99AF7IwfkVr3xP7+03nR sQez' +
'hCFUrZI1hbJgXcE4k5/GIw1XrEkatwEIRhHMGFNVC2pljndhTIUbN' +
'ECMbGSNVoU3dNQQwlNEPHBJEwJtSzLIeEu3BdyS6qJhQATTBU IGzN' +
'DwEK7lqwLs1kMak61eTiMvl7cXivvA0BCdfaGNnqGKqFROWBI MT2G' +
'FMowjlVgOFgAAwlg4X0kZLARMFI9AT60EdkR7ABwzIFWKnacO 9IGg' +
'RFrJwuZobb9vjZ4Sts6elmrnRKk9/7YtRFxYKXRvANwhXXwIGcw4Q' +
'wlQYRnNAc5l9QaSmFuWCmMQwjeHiuCsFhioBbJCCMZVyAKYrO sI5t' +
'CKVimvsAH3aM5jI5pwOBa7WS9vEebBbQxCi2/KVZBmBC8GEUMasoM' +
'DKVt8lX4RvehNn0NrmLKjtaqR7BgzE1gBDomhjRZp77ohSr4V BOaY' +
'FA1lHZgZL16SHYOv4KxqBdQhZHCHJq0leku5ARjYZOsJWrQN+ amND' +
'rce/Nd2tPeI23xNvDUrr/lXK7XGUmDpzKSdgHPsO4OxqzJOku4ldC' +
'OpLEoW6Jq1VuibKMEJiDCIV4WwOah6QrGYUHpo4mEoaQrnCKh UBOt' +
'eWuqQd3jZXN2uFY7NZT3SIJtgnEIMwNzbkx8soYqTFn0DnSM5 V0Do' +
'GjcwUZow5e08ZfQl8lY3IIp9LJk+jCFjlgI+qIjqpg5bIKxZH rG4i' +
'Z2wVDZJ0D2fxVVovIOhHBdU3FBHcUyoUzdsRE4+HoHo2No2gg c+b1' +
'foe7w2Os/0R78mSNRccYLIFcs74rliAGksZw7oruiGYfeEE1UJUks' +
'zwrOeNGuN+2ZDhQcqToZSZQhXCmFnWhGmM2zEIw7nPKGE2zhx lS6B' +
'VNs3JIbGSv7lsIU9smy3rBhLdkhSh4Oymg1VXZRmkuba4iBCK Qohy' +
'8aqwfoa2icG+vHUECrJT9BLxBNKVFm3p7pYhQwKEHQNNTp1AM cdDe' +
'VttCd7RgaZxiFBuXFJioordkBJgMFnHcad/Iq9oLwREi//pb28C+c' +
'yaonmga5EiUQuriBcKrmAYCJEhhUwbOOO57nqjuaQRPmBgkYR 6btS' +
'LfQ5I5lISFTyQpVBVHHaIb6Uqu05koUWQcMW8BMwGMCWAhmix XZck' +
'NrYWrLDdCKUvHW3Aitojo0VQ+wKHN5B0cPyFiKC3Rfb16AN1f 3LcU' +
'5dEAwLibcITu5kbU4QxN6Ab01eBqc/OL3tf4TYWHOJTOwBn1nuslr' +
'pK1PFM3VPXJORFHEnPlbhOfBR9rul8lLH3/bF8/6oylfLONN5L3JI' +
'hhPquLKtNx63QkjhZEz24Hckyp7kyWU0AexxF6YQJPkes2Z60 EfVf' +
'DeeI70YTCeY7NguBeV4KM6qSVLGAWa6OXS61xidNhZw2y33ze 07mA' +
'Ia2UbxqHvKIxRRasz17eV5sDBlW5aKjtQMzdPmbGWNs31I1Rx YRmb' +
'F8bmOVVrh2ha71zDk9e790lYO4SmBZ7cPEXTWv+xdvxVGGQ7l to+7' +
'KMEDzvmxgnNDagKNDABa2kBIRmcvib6fk3b/zUq7/+p9uQ7/kTOH0' +
'v7EnlfqkSUyGOZ7nTDq1e8etWV67qyHUh8gEivLOVEkDjzQ+i AIBd' +
'NVXe2DX2i/MCdabFBSckC96ISOOtVtAIoSGhEzDnfp7Gybapm29b6' +
'gbF9iRJkK2/aqjvW6h4U0N1enKKK5TDI4E0As7oHQMCv9x4Kt/l1I' +
'twd41dMzTN7eQEj1vohGwTO0OcqRqEuBx+hhKa1umsrb0EB+s ANEu' +
'wCrSvXxRp5dZgAFBC96WLCWCdf105+S9t6T3v459rTTzeSeX+ y4Nf' +
'Lfr0iqOzNtkAkSRV9mYY304Tcl64Sn22h9KVrkKAjmkhZKAid Guu4' +
'CwNXacJGoCaHSBWXQ1TEiBUlQS8XHKA89+a7nnzPXRhCAsZW2 4fQ2' +
'jyxts7A2yvbaIKOs7IJfVP3Gq0YCHJj7wEUoGZundsah+b2Hf Da9H' +
'W6NWZv2Gp70IEyE3iyXNkkEvZNnStcMeb2pQUDNQ5JoXHoLM1 A1sY' +
'xFGyNI2+ug5ViXF6jvbaLgLM2eknb+ZD27ux3td1f1h79pfbS 3wb1' +
'YkAv+TN1QTXFg0ETJKBgquADmEAv35Vq6XIomUXpqiywdu4FB iWUU' +
'UIZ5Ua6CmIjG+kK9LkKXlVZAsvu8pQhdQGoysJV2/YURyBnY9/ePI' +
'LQXRxDB4yztgu5q7rlLs9AztqOuXcfaqb+Q0vn0tY6NQyf2Nr npsE' +
'jSq62fgmostzWPIEpe/0AytRXGEQVygRp966tc2FvHqNVKohWtu8p' +
'9Gm7i2MqadDd9fEzupKAJ/wTcQMH//G3tZf/IawXgulyMFsP5JogV' +
'MPpEsqInoechcFszZ/vMIEXVKeO2TqGc9e2/cW+P9f2FQcohbVaMF' +
'NhNXSHkOTZujDYYJuCaZAQJJRhxFOZgzAKSnv7DCWM+8pjkBt 7V5n' +
'xHCAEoQoFNJFy5wIgWHr3HK0TMLbeXXS3dS/Ng0fG0VPj+BmaILQM' +
'HhLTvYS+o3HgaBy6q5uO1jGagAnU2A6MAzFYhoKvNETJmpBgz pDQr' +
'CBvHdODa+dDjEIRBjfU00+1V/8xlilGspVwvhHON4lyNVRj6UJMz0' +
'YzpWChEyj2gvmWbM03IQxnq9CPUq8mmtyNPVCg0KUq9Atdod9 QXZb' +
'UoI65GnjSgWZpAOOB8hBVf3nkr0w89R13Yx9Cf2Vq795BFXJS Kw0g' +
'AZEyqlyWBr7aJnpB7myfQhlVy/AxJuNsHqIKoXXwEHYc7TNn+4Sq/' +
'WuQTaCKKuQYDiV6aae/s7b5Dpo8jV1fbeGrzGANpriEMhPNB9Oj2U' +
'4hX1u8jV2gzYIFQPrkO9rr/xzLVaP5erTQkFRsoYznKolsCU3hYjt' +
'U6oeLHaWAJtIvthK5MhiUwcrI0zzwV+dQhiaqofIgUmiBR0nK TKI7' +
'9yKDxRZrBmqzQHXia+75Gjv++iYxzT13+9jVOUMTGwRDyqU+N AO1O' +
'XhQuNQD76tvo6OnfYQyUBmDQd/1zXec3QvwnuY+SpjCDCF3ds5Brs' +
'4pCFV3+wRN9v41AXLydcP8Dcv4qb1/D30xEyhgXJT++pa9d+XsXUL' +
'TOnxEA9VmsAwhuqPVMnrBPHmJbqgnf629+S/xYjNWbCaKjUShTpSv' +
'SgZUbMRKnWi5Fy13ocN8XDJdqYmOxUaguePq3fE3dqKVAShcG UKTy' +
'soAylDgXsyD0MolJKwMg/7mbrA+D9Wmvvahp3Pib+1DHqrPyGBtEq' +
'wvhH47XB1D0z58AAmU/e0D6AewF+0jb+fY0zt3d8+Re7McU8LEXIO' +
'7sAZiHSahcARlx+C+c0CvUcvkJdPsVePiTdP8derVuwMF9IIO lDGi' +
'p3NqHz12DK4xAQxNS24fsHB9+z3t9Le1Z3+3BkhLrWSpCUqAK TYkF' +
'WogSNAaL3cilWGs0uMm1o8IuPRClaqFGloxbfv4hUh9CmGs0m co0D' +
'eO7aj0uBTUp+GwWZU+jEAuhuhSl8Zio7mL3dloH4CBBViL1Ca sxvq' +
'R6oioDtiPQo1N6ECT9UEQbnQOQcgSncP7gNfXPQGB8fQuqBWa UEDZ' +
'2kPJre7+JUF6/FWUhu13jZtvoQRKzuEDLArk7t1Bd5Sw6Rg9BKHVN' +
'nmKJpTg0cUye0U7+k3t2d8b3v5BulQH6eVWstIBkyy3QXqpQZ JqD0' +
'K90gYTrw4gYaGSoJX0oVbtx+qTYHs/0D2KNmaQoxqrjeO1EQitSod' +
'4MQS6yyYYqfYizUWouR1pbUUa81B7FwQJE3pBkwwKRljrwzgG irS2' +
'MSh1bC7A+AZ3Ap1DzMGw8x54HyAlOvMMrqzzVx2TJ2BQhQJoo 3vs6' +
'V96RtcsB6Tou77zgX3yFKM7x4+c48fgrdNnKMG7AObkCXjz4g 3YN8' +
'9fs09fRIm+sAY767sfai/9jfGdf82WG7lyLV3t6PUBeDAgMNlKU6/' +
'1iKrdZH0IIh3BoySqD5L1UabSSjYmEBJTH/qGdz3jB9H2DpoEDaEm' +
'9Ws9SESvIfcVHUmCpmh7GxRvTCGUfGsBYp1EYxprbYLizTnpi y7gI' +
'939UOcAw4FCvWP/8DLQOwWZWueOeNHij+JV7iuN/P0L7/AuCArB3j' +
'Fp9i8wT8fsJZBr8hhN2vnvBQbnls03vaNrNhvqHgZ6J9CEHAw 6okR' +
'fMb0dzI3UuodcRZNz+hQH3/zuv+dr7Xy1la11M/U++Gy9h7JYqYG4' +
'CrneHKcbQzAo9eZEVEcowXNrsjmDBMrRzp5v8sA/uhfv7iVbcwiVJ' +
'vfKNAaClwQdMkLCMfMwFe/uxjvbqAoJjzVJdrZI2NmCAhPUMFy0dx' +
'DpHYX7J2GUvaPg8MK6kdA++7NuxKEQGF5ujK6gE+0dogpNkHf yEHL' +
'/+BqR0Lr1ln3zNe/0sW98XxkMD06hho4gqGEsTIbG7ewF+2cYHdYC' +
'wzsbo7tYtfb6P1nf+498c1BsdPONPhhQtjVGWa41QcV6B02gb HMIe' +
'bY1IZ1GP9ccptvzTHsKiaCx3l6kutvUvTlM9PYjw7P44CjZ3Y EOEx' +
'RYH91RshBG0EvvbLKRoF6yONwKB6PZ6vCHw6Uu+kYLTV8sY3F 6IEc' +
'JHg8Es9OrlE0OjyOsR2qjjfJI+1k/o80ZHF8FxvfCw4to/xgU6x/F' +
'sR3Ds+DoMji555k9xdm3bb/tWrwcHF2hFfPH0CixlujghMk3e7Ixv' +
't6Y3MfkMW2a2+CEJONrGFl76wf2D/4z3x4XW8Nis19sj/KdKfGtYb' +
'nZK7f6km/1C+1xvjPLduZQKzfaEILPdmZ5pmUruoOoqbuZ7u3o/b1' +
'Ufy+YqVqdN0CtG4x2j98qwJEu5PRCxx2Maz/n5/SHtS/8A7DMfPTR' +
'R9///vdR3jRF0pHRBSg2OhfMHSonV4Hpg8DsERhkQf7509D0fmh8F' +
'02J4UlqcBgbnpLm5Io6En8BBfv2W+6tVwPzx5Ak+odLm3cM7/yb48' +
'MfltqjUmtA1BmDZzC5WuhMACYx3Tko151DDgUpaY8hIZ3uDCX 4TG8' +
'blOttEXUX+mDfFS9o/38/n8/3k5/8BMAqSbi1HR1fguKjs/jwFBSe' +
'3QcyQMm3+fL60VeC0wdo2lg8jY0v0JocnaBkbLEcpsxgLzy55 9p6D' +
'Wrx8YU+PIQFlCAEUvP7PwQ+1fag3J0Uu9Nye1jujCXfnRBB0h 4Wew' +
'smaurNc/2dQn8TcpQQinIOJjfYFWpzMNBJdjb/tyC8+eab/738AY1' +
'sNquaPhI/yD/++GMw+/v7XOXfj3/8Y/RdNcX6kKNVNXkSxcj0OjR/' +
'FJtcpcZnoOT4HNX06DiweOLdesW980Zsdi8xPk+NT9Ojo8zwI DfcL' +
'/S3eF1YKdYFZXRxb7+OLqHFC1CDBPpYNQIp3qTOaC4QTeKVjdwb 1y' +
'hObqUzarR7te6o0psylfqLSndS6s2IukLSm8E+KD/YZQa9oIbRk9P' +
'L8PyRf+tLeIPzQh48eKDW/tOf/hRorEIHiJ5X498nn3zyM9H+mT8+' +
'4/BMuOWtph/96EdsxObZ0Cfn0cXD+PwaDKaaH+7Fp3dB0dl1fHq1d' +
'vI1fXIGyoyPoZAbHfBKwYCwWHQB49153b37Fnqhqo9OuBVk++ CH2t' +
'Pv2pBpuNw2XxiMbSNm90c8gTCBnC5Hi5RzZprjfG+zMliUhtu g8mA' +
'LxDyoMNovDncLwz3ih3vZyWlk84Xw1tPU7ApBRgGilgnceOEK YfCs' +
'g4U/D5RyVMD7+ZDCq6GGchVk9ZOhIFnUB4fJ+b3E4r4+vYPZgsCkp' +
'xcQxjYfOQ7eD2x/KTM5gzw/PuQ1gslOTnLjo9zkGCX0Q1sv+nZeg2' +
'Zo+xn6Qj8PwHubxvf/C5DaPRuA1O4NSki9QeatQd0SSlsDCav4W7w' +
'jRp+mfdlWME+PHcpI29N8bwFTxdF+abQHbAvjw/jiYWj75ejWE312' +
'mZueeRJ5XgtckY+nApmPpAp0cF1GA3IgoOBlRwWwyqUVttgOy JVvo' +
'7vileff+pntLi6D7b341uPM7CIzu5Odnuemp5gwJJi57fDLgB cSoF' +
'cUixIKZ4Tn9AzLDM0eIklANosXk2X81FnbsRcm9kTFFtLpSxR D6vb' +
'BS5G8MYDWYMoSypgjBUs4x8Caw3nBZEBgWEiAB3VbrORM0Id6 b66z' +
'ke84uxfuwV3kw4Hx3djgxBPLrkIKNOCTq1FO+Y/yLnZLqAExJeGwC' +
'cktf2YP574cY5WL8nWPUbBZz2Nrsrtj2PcFoDvLzi9B6flVYv Mh/M' +
'2x96538SyF7Ki9E2ztBGpzb3VOn2ez9HdAU7qv1c/XCptaeV/rPKC' +
'/3Re2TYm6OVYGIAypPPLklikiRnWVACCwZUYgSRTOCYS5mkErYM cu' +
'rBW2MJwp0VjPjAzpwZortHps1dp7vd5qAFRxcjXnUfigr+IZQ 6XPc' +
'DHC6v669bsFqYozjsa+o3XiLs8c5YWtMLHlBsbcxKR3AJHWuj KmOl' +
'iFKV41JpoGvYeqMdVey83pH1F0H9K/pgCYvcf0bzPa19ABpFi+hBR' +
'g4mhvxICnKoGzjAAKcPgwYS5dFN2lGwcS5K7UqmMCGHQ9NzWk upgD' +
'INUsjtVjvnr5rp5r5XWAWq0dUKgDrrC6FYrZGgdq9FVq6uBDu Jo2o' +
'LuqrifbQI+2PtUlN4sUaM7EN/jf5KDJHC0BrvXMGHIQAdi6on+3gx' +
'Kotu+RpP8EmBMg0ZLyUoJUQGf3hcQZTxGMQgKsGGEVExhYtkD KBGm' +
'GhBtxDIppgAAsnwVtbY3nv3qKeaUq+Vm9vIAtexFKhTMYpa9i 72rc' +
'wL7wna5CLoZb3R11Um5OgcFkyAxxprTiDtyPIYVLgAGka7kZe WD9H' +
'GtBKxADgScHBgHG0p74Zz/n9K8jWnfhRateClcEGuyQFFQBrDcIBm' +
'8c5cCItzeRVkSAG0gFT0HVH+Udx+givDRMvqhylVupzuoJBQ6 rCrd' +
'+fAetevJqlb2R09TVoK18Vd34t6LKeqggHa92yp5AwMarWBHw FKHy' +
'gP5NTuMCXgo5QMOi4CrUpbBNBxBgAlIgXz0Rsa6Ovgypw+11O F3kj' +
'SKbImxx/IGkwBZ+y4eafFWG3GUmADDDedZBBADCGEgcEzjqmDbXE7' +
'kVFRWqymkVLOrGv5VPqnO66qgQsjI77a1o+XxEhX+uOu26zY0 dF87' +
'ZAFYghhEkZt4hd41VCD1EzuYlFCAhVynu4FaiiIpAyv90EBEA UQLV' +
'yhG57guf8MHnG19i6NmQ2ZQvBDm5K+dU8GRfiCKAOPicBhBFS 8TD7' +
'WNlDkS8+xROQ7lf4BWp/Go1Bv7Cdp4//mt2H+GZaJL7JeoiTAk8cQ' +
'vIuNpQq2A/IVds3JFe3bjD1z2V/SfU1LlPBz+cpyC8hJTQg396/PI' +
'+gpfCaSGHBMdfSOCHykv5qmJfxfZxcgUFmkysQrOFi8JjU511 u+f/' +
'/lRfWzd+ETWDJ7xu936+obVgDgDSDc6TRJCkUz9mSKUcV7wIBYw Sm' +
'jiQEkOQihBa3JE+DH78Ckr2bXXjA7HPQCok0mnZRZEjRQocEI AkK/' +
'AtJnLXFCNM0VUG+Ya49OlkGfyJNbPtMytDdd1wcwxNFhPQsLr WDKb' +
'nYDIZnX5TtCiM2Jf6VoPVsWYwcl+ja8Poj5tDOT41Rm90zWS9 jaXZ' +
'bvDR7Un3UWkP282TpGMOAJHs5eYENebMUPMpA0qxCuVRnFAhF AjM+' +
'eaiSNu+1kbiT/nT10iC4//4rzjVp/tIQMqxFE5LREGAvJTOO7xU+K' +
'RM+xFIOacSEnoX0IbWMSgYclfMRBwucYjqHJoI8GgJvWjtlBh nVED' +
'mKtnxRowOr9HhMzo3TAEdffm+48SPb2S+GW9yD4HkZ94g4Rxi DpzW' +
'4A4Zg2lpGXsNa3pPHPAxX0YcUckJKZyK9C89kM7At7+AlKKBO Iy8L' +
'qDHc8BAFGCbl7iheHfoL6R0PflkzASkTpdMn0Q0ILQRWpfxU0 6e3V' +
'IkV0tUMxRzxLgEDiAV0+BNJ6FIYpkkpGDEDUjujVeDIEaGH2W 8Uyg' +
'ZVSyEIBUZDqtxVqx6STzpAUKvD7mDItRzE+mLXsJXcRNtUagU 8Z+O' +
'f3pAx1+i3WE8aWtSbRCjwaPQ6S7vS9/ADYIMQUQGOrwbMXXw5QNfg' +
'MlZk6qyhKdNOwU8hX9yLwmLkEhHilVYk9NmglS4roKLp0HLXE 10RW' +
'BhEDgsU5UzNCTb4iTy2wGT5yE4D2Q1XixnHRJwiWRKVNNyC8R moSN' +
'woxxJ3N1smY3z1U9D8PWUGVKqQx6lc57JfgVNTpDYechLx68A WBhh' +
'L5W5EzukQFKeeiYkUVgvb0q0JHNUlazyg0t4LCd1/NRl3JZ+VWeo2' +
'U9Q5ZRM+ufSwVSWy9PmWEEoxcrkKuJ2lq8bMZB6F/PBkbw4jOKirD' +
'PgjL/yfLl9sbJ4Wp7zW5KdX95Ty3ufHkS8a+LtI1/lwghagQyPS3E' +
'YV3/3oXx2AdIXv8cA4sjTqRduqSKqCKEU8cTE0jIZEPFTXVvqLuOT' +
'wnEVS6OwIwIRg0koiWRAOic/HORRzax+q5EQheV1Ax3yfwEOH0kO0' +
'bzeVc2VpC7DRmganJAINHiX5WQSdbqqxC3D6NFjii4pcU9lhh QWlh' +
'+LOFKB4S91cq+X+05OzlNSD1LlmeSofr6VOMrdBD1yKl2hBwm/ufh' +
'EcIiQB5zPr4ioKoYznhxp1YeC5W2SUV9g1OUiszKOAIAl0eCT Lh1+' +
'marJC1EMR6sTCyQdsaEyzgh/vok8jD/ZrHP+Sfk5gK2eiG8jbfp/J' +
'bjHK0e8Fze+LZaJVfNBkzcyRheHiKekHqTkn+yW4t5HleEiQA gBEU' +
'YEyOylqmQ341NMHwfE7vOEVxciD7L4qrOaNiyfYCnlVPI72A3 aae4' +
'oXxMiYeBrlz5xULbTkcDy7SwCgvQcOLZQlgdHbCWHEXVq5O7D tfAm' +
'wqMScZVPMVCtn1NElREmox6PmB5fGdKaWKA8MitvfIJxedLp6 ne55' +
'TJFhOf3qcqm+AMLb5ksl8MpWHgOasK8New8fC2qJ60KIzdXs/qSsB' +
'Gni1vkOXy/8HHj+4WdXwUBmbCJ21Nmp5xp8C4IV1fJ203CJtyMR4G' +
'ncSDlcE1vzPIBZfvi88WNvki6eJ7Kh/n0cSkg/ZQ/ksgkyu2jPEF8' +
'AeCTLj+kiM/UDCnF2OV3KnlVCXjl/SKgoPmzJ4hoJrdbhILlUdJvP' +
'sYuJyyF/O1LhHFOmci4iH5ys4RNGkgmwHX+pMlfNTkOyMPIp1skk2' +
'pRq8cHo3BguYmK/E0S+UD9DB5Le4FNF9snFChf5RtZfn9j52Hnl5B' +
'+lw87//kJOry58oAziXPND3x6Z4lXP19PMkngREushVe6DIl8cuUX' +
'b06uVIC9iZwr9/5NxisyN4JOgMxuoC4jYPiZwMgvC6AhHpicvasPy' +
'HSbi9SLrzN55BWkHCs4q18m9vL4V4/B80ObMw2+L5YHLaPuBXXrLb' +
'9Eie94bFzc2tJPODVlbJdXmPjG4uUP1PwRgAHnjwAYkTPMZaK e4R2' +
'U7sFOxU4r7i+Vz6/GT3nJ8gkN5zjdUsktR0jOAeQQIrbwEWD0OG/n' +
'D8v8wOTPGnIyIm6obIHzQPZDlQnT2ef/W1o+kJuFN6yAXX2oV3/mk' +
'PeOOIbyxpcBLbP8OJ/irIkfnuLseyWkyjOXPkyBYhkK+DXBh1T+3U' +
'T4z83aOZgvMyv1cUA9b+Vtsnx8qQyWE121KRya2KX5/pUpMT+KhUf' +
'xXaPCLL9Ab15SInSoNJgR4MXye42fruKleby8/hp8DNXfOPhQ86ar' +
'y05+gl5e1jduKe4jDEHfUcV9xN8BONjKF5YIs/ydin1VZu8iebt5u' +
'SyPv3zpiKuBHVV9dFXJLWdl/BjnJfDo7O3qlSreUx0OHSoUq0Mhgw' +
'P91aNN6aX4PqBSJn41LD8R6Oyu/BiU3yuWGZ38Xtp9qLaDA/JnHn3' +
'yVa6rpwdfTyv0XUG3mGXTi98jupF8tvWWKXqXffqLE7p/voWfp7Aq' +
'JJ3vrNCyyxecG+s//jbRC5/I6uf05ab/ATN6144=');
Canvas := GetBitmapCanvas(Picture);
CopyCanvas(Canvas, Fr0znFormDesign.Canvas, 0, 0, 113, 49, 154, 203, 267, 252);
//Exit Button
Picture := BitmapFromString(113, 22, 'beNq1WGmMZNdVfrW/2pdX' +
'66vlVdV7Ve/Vvm9dSy9VvXfP9HRPT89Mz4x7Vs94HG9xMiKO48gJy' +
'MF2vIU4TsaJSVACRhBZIpawhRDIIXgJEAgSQnJACBRAyCR/sPPLfO' +
'e9dmnkBAmxPB1dnXvuOeee+91zz71Vl7/u2X8y2N8NDE4GBqcCw1P' +
'+0Rn/8ExgeBqSYG8nMNyHhJs9CPRPkGTmeKC/FxjscfMXuLnzvoWL' +
'UObmz0MNQlj5R2dBcBVU1agl5hS15FwdJclJPzzPniOCcO42O PSNr' +
'/gWLnMLF7m5A7V7mUjtIgZyDrW58xTh6AyGPMv3eFZU2rjh2fks Wu' +
'/inSRcuss7uQ4FcrJwCQQrcoK5VA9ECxd8k6veye1Ei9c9a/d51u7' +
'3rNzrOfE5OPHS0B0+rHH+gp8MKTwiMKC5AziHK+/kmhezn/gcGcLD' +
'kQc8q/d6zjzNbD/u9Pjs/pgtELf7QnYuYvdH7X7e6fWDHL4gG5ZsQ' +
'cHOhSFHFwokDKVYXjbHCrBSFZJgrMEkyBZMkAeOh6bTw4FUt2 E4gR' +
'o54cLw4PCFVJOULZAgJgQPMVO8rM/O6TMjU6LKRrLwbOEVNpKxRGT' +
'qRjIsn7WGUpgCXWO6A00mt8gUN5j6LtM5xxTXDemeTh7rMrPG ZMMc' +
'L5oSFfhk4YQnc0xnjhXJT1QxCXVzNGeKVwziDJNb1isLTPkIs 3QDE' +
'qPQMKbaemlgSHct0RwbFs3RvEUlU6KGkODElCQdXXaeae0znd uY7g' +
'HTOk389uPM7tP2qOzgJZCTSLTHZGckBd4VToKxJUoQuiIpV1g AgSc' +
'KJx18xiaUbMmqPVGwx0F5kCOaVSmjtapJUjNRJfAsQuIOxcmD qowp' +
'oGkTyvZEET7t8ZxZmjHkl425BVbswL9NqLDpJptuWVN1a6qGL pQtY' +
'tuYX7Rk+ubsUF8CpCf0AKR91lBYMSpjQ3HdmF8yKXPm7MCiOU nWtA' +
'hVJ6AG5NRKPZM8ghWZL3+CmblkzE1M2ZGxsGxUFiA3FJYxBWY E0ey' +
'JMrzBg0XqGsqbTGOPqWwxvYvM+KPM/N3M+D5m5/PMyS95YpIvInij' +
'aU8864nLaF2JvDNVcSdyrmTJITaIV+UYhZCYmITWnVDsUsct5 D0JB' +
'ZrOVNUlFMAQCXmX6sETy0DZGxM90TS1cdlLkoyXT7kTedVhAe ZOMq' +
'840zWnUHQli3axYS6vGVsnjeV1qzLL5uftma4907YqI7vUhn/My+b' +
'mda3TjnSDlUemyqa5tGouLJrK66wya6xsGlondTOX9J2zhuae sXrU' +
'kh+zuTm0pvKaubQCTRCrQDJB11Dd0rVOMSuf1DVOwoMlN6/ps7lZq' +
'OkbuxBidVqEjnQd0VrlgalyhNIS+TlzkVl+gGh8P7P7FHPmq/6ExC' +
'WyvmTelyygBe9NlbypIifInKDxJU5QiEmXPWINjC9V4JI5f1z 0pYq' +
'ubNct1jkhB3NPuupNleHEI1bdUgP6UIOtj4gYdGmiVIEkNCRz yfyp' +
'C9eefPbmt19+9eOffSKgdGDoyrQ8Ut2p9O35OWduaCstWcvL9 vy8Q' +
'xm6Mm13pumAXO6x1Q2nMnDJPUduZGoctxXH5vq2pbLBVmg72M a2fu' +
'YCM7zKDO8wNvfY8qqtuKjShKi0BCs4xCzW0rKldgSZZq4dY6v rGMJ' +
'caJ3yDHRshYm1vGItryEwT7rilpoAwZXtIDZ99xwzus5MPs4s 3MOs' +
'foqZfIw5+Sxz/luRVDaUzgXFUlAqg0LpfDidiySzvCCGU0pAqvgzN' +
'YyC0QijwXQhJBbJUCxycstdnHMXRlymHshU/VJVVYOfAvlU3QZUgj' +
'ImCokFSOCTPGfrr/zhH79/y/fue+9dfeARn9z2FGZttU1PfuhTupz' +
'SQevNzfiUHqbj5LaP+C54b3549cbDL7z40oNPfW3p3F3ltXO2 +paz' +
'PLE20C45qmtsY4dtgnZttQ17fZNtHgfU1vqWrb7pqCw7yiuu4 theX' +
'Wdbu8zqg/rBZWvjmLO8iBVhajh3F+e9+YGruGDH9pWXMOTNIYY2gg' +
'HjqKwYRtfY9p6ledw4c8As/RJz+ivMld+NZkp8thzNlsCoVEQbkwo' +
'xKQ8mIlcjSiOsNPhsJZotUwuFbCWi1EktUwBB6C/Nuurr3vIkkmvx' +
'ci2sNEEhpQk1PluNkv8yL1cxFMvCCm5rUbl65tq97/+i7/Tdn/r0U' +
'88/+dXffObm1z/z+Bc29y+fufZR8M985YX7H/rlX/3CzT/63pt/94' +
'8//q2XXn7jz//yQ7Y//td/u/2Tj6Ksuevrntqytzx219ZcjU1Pddl' +
'bWfJUVzy1VU9thbrVRXShZm/t2FrHUUstvbOmwUVT/7y5f+AE5s0t' +
'qMHcXVvV1BzNY9buKbRkWF2BAjy7q6swNA4uM2sPMWe/Zrj6UlIup' +
'eSioFTi+XpSLiaUCghMUikn8vV4rpbI1WKFVrTQgo6gVGP5Ji TxfC' +
'NWaMdz9QQZNuL5Jl/qB2qLXGM1WF3gi12+2IsWOjCMg0iBdCChLqx' +
'ytSe+eHOKw40bN3Z3d9966633/4++P/nhj7ytTW9zw9fcQEie5hFH' +
'96SrveNtbnL1lUB9CS2GIHF1d53dPXdri1n7NFdfNc7daZ/Z97U23' +
'e1tkLNz3NE54eocd7eOeVpbxLS30Tp6p1ydXfBwC59w5W7vmO buYM' +
'69YLnzO1KxnilUxWIjXWpJH7RyvgSSijWp1MBQqtwhKrUxmi6 1U+V' +
'2stxLVojQRZuo9JPlrlisx2pzgc7RYHsz1hjHqyMMpcpd2EJf Zbpi' +
'qQn+hW/+9odAeO6557xe79tvv/0/APDKlSuPPPLI2+o3Fb75Fz8MN' +
'1fCrbVoYxJqrYP8nWNc51iouRZpLqNFkCCuu0Py3g47/ohpfJdtdM' +
'nTPxVoH400lvn6JFpfiDSXQu11VXkDrTq0GGytY6XR+hgt31g MtDb' +
'8nS2uu81c/h3bPa/I9ZlcravUOkq9B16pdoivtnO1jlzrylXiM7WZ' +
'TH0g1gdypaWUG9laT6oPpSraAQ2pJNaHYn0k1fogsTFKN2aF1 jjeW' +
'k60FoXmONVYSDYWUs156CztHkwX/uKLLyI/mQ8+8JocEN1QPzDoIo' +
'G1LpAHbpPJJJ1Ov/POO9pGwBBDABYM2qnzex96JNFcFFqTRHsp1lm' +
'Ndtb57ma4uxXpHuU7G9H2erS9Fult+ft7oZkd/JzRr3yCG5wO944F' +
'ZnahEG+vkGF7JdZeJb61hLWAj3Y3vIMz7tEBfs5EOxuQh3rbs c5av' +
'LNquv57+vPf9AtKJJGKiFQ543I5ma+JhWqmWM2UW9lqF6gS1K 1Rrj' +
'lU0LbQgmaV9iwYuT0ntxfk9rzcmss1B9n2QrY9n+xtRPvboFh/i+/' +
'vqMw2PzjOD3YSvU2ht/HEzd+YZqaGJPCZAjhFD582+uqrr0IBDJDE' +
'aKPR0ORQZn7RN0X1W9/+jthZTHWWk93VdBftGijeOxIZnkBUiASU6' +
'q4gSAQWHpwIDfcsS/fF+seE3nqqtwaSOhMsDYvKdCbZzhgk9lbF7n' +
'Jg7px7fHt4eIof7UFNE2baY/bu38cNxbo4m93JugMWb9ji41lvyAb' +
'C76mwaOMzjkjaGZVc8ZwXzx68psRKQCyHM5WwXONzDdTVaHmQ KPeF' +
'Sl+oDYXaCFvMDfdD/d0oBbYhzBxJDLZT/SPp/mZysJUY7iSH26+9+' +
'QNtyYBIA+q/OtEaqloe3qqmSQAp0J4CC6i1ajw9/h97+DFpsCkOjm' +
'T6a5n+utTfIBpspgdH47N7sdmTqcFRsb+RVsMTBsdis3vh2X3 H5CP' +
'8YDfdmiRbk1QTh2s+3lyMNSex2jzqAF+d86LMNjZxo7G9s2z7 hLM4' +
'ppck3lfxrO62bzD7z1u9ISvHW30RFr8u/TE2kGD9cZaLEvl4gGzhY' +
'mZ/wuKLmv1xMBqZgmlTIGXyC9QNJGFoCaXNvKLLzhmys+Zk3SR2zW ' +
'IHP0/ww8eWqtrFJt7nTqnpkpr//pOf3orM9AOAH4IUR3uqc+vlpQk' +
'hAXraeceHGvKhqz9YmOGKI29pnsv3udwMXm4+vHvzI7fSx4MW b1Q8' +
'OB3KwC738QvCnqqxUs+abhgzI13lqDm3YE61LLEC/WhNtY2JmjFeZ' +
'aQhk19hKttMYY3JrzLV44yyyFR29LGyKZQxBUV6RO0/b/MEWEDqDQ' +
'NVu5sDnmAgtHn8ENIQjQYJYQAOtIF8QDCHJXMkaw5JVi5qCSZ pI7i' +
'oXmgSJVuMODBGi6ZwRiWoiZjRGFGMYdkUkr7/g7/SVq0dYaQf0ECy' +
'oQ5MkdR4MNqRR3srXFNItTKrZfKtCv/0z/9y9OBOQ0Q28AVdvAbS8' +
'0XwxnAWMehjFT0kibou2WbkMfHxmjFaMMaKRj5vSNR06RmmsM 4UNx' +
'l5wSA0DfGqQWiQMDuvEwcQInOY8lH6ewHwljZ1mRGQN/F5Zv+mBqn' +
'd5QVoSFeb20dI+iIqjOhyIEJbxZMYgAz0VLIE0+ZgGskJnC3h DBDG' +
'vKZYEa0h2TIIdVOsZI7IkFtCIilHsqZoAZJnvvzrHzrXt2Yg+ OklN' +
'c1A7Zj/dyB95yc/RW03RfM0NfadV7BSQ7JJyAhNSjZkVLSI1ggQYi' +
'V9uqsTZ4CJThqCNyTqyEbIASOUDekO0NPnFvWZkT7VASE/dZk5Jre' +
'okxeY2nGmtstUd3TKxIhVC03m1Je1g2/zhe1Op83tVQEMWn2UsbdA' +
'SpUBsKClAx5MsSrDBgVkpjmcQZZCCMbE57SWgEVsCcRWpNUBc KxOh' +
'R1+ts5emWbj9K4BekB4on6Qa4+B6TPgQ0f7Vki1O+7WLE2Uex 9Ain' +
'lpRnMEwOYAkV7sM5k5Q7KtBqYGiXOdbAFPpB+QB54gJCoICaB aUYq' +
'iNcZKpAxUqzv6zCzqm16Z6Eqb9LcJJNKAhlRIkZZ2JKfbT4cd 6Qow' +
'Aal2SUEISH0R9WgnD/MNlRNnn8pvWGWiloAAOW0uIOUVwGuK5iiwu' +
'JYSBSoRdPwlMscCQ9Jf/83f3noHTb9p4k2ve3womNrx1+otRrV7TU' +
'vmnwf89KXryEx1RoApqwFTpaJqH5YAC4BFpunTPaNAkFI2ol4 hCcU' +
'+hARmjNIYrVlNEhxJOqccpRMcIm+xZDqbKGh8jskv64rrwBxD Wi2l' +
'yknZ6LO5fFp+UtcTtFG6Rqh4+mMUmJqK8KydfQLcEwSkh1XCF zHFC' +
'sBKXQjdUzChdKWNVlcHArBq5sB8sr793s9+9v7/zyeUu2rABKBJ3W' +
'KVKH5LiBgkLTJKp9B/rTp5bEw2TfEyUpGKgDSrQ76hcCVqcMLCKpC' +
'0qC32RQU2inQFvGYqZbIxXtaLM/rckjFRx2IPryeXT8UwgJy0uzx2' +
'pxt5S7mHLVYPNUswBrVL6vBtQHU1+MHzADvIA2H1thKJCMCMm hLqu' +
'cPO4jYEtlQBJLrmkNXBVLk3//Irf/DzgPzHu+/+b/D8zOd/7bBoaz' +
'HgaABDhKEeJdporcZSgVKoqOLU49LBJYX8TLbp3sFVXliju4D 2JaW' +
'eUIEWq14osKKTqHlTV3p4ZUAezmjXE8HocOGG0m55pKWWk9qm 0MEH' +
'Ym6OioMKI9S0ymD18fRaALwAmYoq+T8sttqTQJ2UqkE0p9Y0i SBV8' +
'ST/av5v71949OlnH33mS48+89xjT39x+/QBXB1cuf7d770+Rem7f/' +
'rGj/7+H6b8w489/drr3wf/2utv3fvgr2g8dd/4s7N33qCjoRZArYw' +
'TtoCOVn1YeQ4DC6ZZSrwEYKftjqt1EjVTbZncknoNzcIV6WgX BF4s' +
'caoGVv9hEVCvaYEyhy5BOpiHkNrtNofD6vKynpAFyYm9wIkGb i7Oi' +
'ox1emx2h40Yt8bYrazKO23YCCsLQ5vDaXX58IilB6qbIw/eoEV902' +
'qvVrxs8QuCXrYoyKi0ODLQVH9WsCgjaDEdTRpifdSFB6iBYGK jwAL' +
'EIzZ6GwusN2IKy+qvkrDFGyGf2CYOb2YBeWWM5PAc0uOW4Qt4 wuHJ' +
'hMebHuURk+J1DShUTfDTAKxIDNwXGEIwvog5KOIppUt28ATVS SNsB' +
'LnlC+pGpKy4X3DjIGAkG2KGuYvDi131HAOknsvfwG8rbnwJFJ g7CM' +
'zeFpg7JP/8heDwNAlHZ4hmzwVHZ4Kj/cDs2cD8gdrdD45Oa8yhycI' +
'FWNHo3Hkw8OkHQbhwUZuCG18mfnI7CHLSnD+vzntOnfEAQlKb XPVN' +
'7uAmV7QhTQhNzRV8+ibX1IloFnWKi+rQ4YyYBf59i9d9S9d9i 3f4y' +
'Ns1jojm5cZX1DAuTG215UwD0Lxhdu/y3Z4jD3jhZ3JV8wlSV3rgpz' +
'Ue+BGeugTugwA8/wlRxjLK');
Canvas := GetBitmapCanvas(Picture);
CopyCanvas(Canvas, Fr0znFormDesign.Canvas, 0, 0, 113, 22, 85, 258, 198, 280);
FreeBitmap(Picture);
end;


Procedure Fr0zNForm;
Begin
Fr0znFormDesign := CreateForm;
Fr0znFormDesign.Left := 489;
Fr0znFormDesign.Top := 136;
Fr0znFormDesign.BorderStyle:= bsNone;
Fr0znFormDesign.ClientHeight := 283;
Fr0znFormDesign.ClientWidth := 283;
Fr0znFormDesign.Color := clBlack;
Fr0znFormDesign.Font.Color := clSkyBlue;
Fr0znFormDesign.Font.Height := -15;
Fr0znFormDesign.Font.Name := 'Franklin Gothic Medium';
Fr0znFormDesign.Font.Style := [];
Fr0znFormDesign.OnActivate := @DrawImages;
Fr0znFormDesign.OnClick := @DrawImages;
Fr0znFormDesign.Visible := False;
Fr0znFormDesign.PixelsPerInch := 96;
LogoutLabel := TLabel.Create(Fr0znFormDesign);
LogoutLabel.Parent := Fr0znFormDesign;
LogoutLabel.Left := 16;
LogoutLabel.Top := 168;
LogoutLabel.Width := 92;
LogoutLabel.Height := 20;
LogoutLabel.Hint := 'Log Out After How Many Loads';
LogoutLabel.Caption := 'Log Out Every:';
LogoutLabel.Font.Height := -15;
LogoutLabel.Font.Name := 'Franklin Gothic Medium';
LogoutLabel.Font.Style := [];
LogoutLabel.ParentFont := False;
LogoutLabel.ParentShowHint := False;
LogoutLabel.ShowHint := True;
TalkLabel := TLabel.Create(Fr0znFormDesign);
TalkLabel.Parent := Fr0znFormDesign;
TalkLabel.Left := 16;
TalkLabel.Top := 136;
TalkLabel.Width := 69;
TalkLabel.Height := 20;
TalkLabel.Hint := 'Randomly Talk Every How Many Minutes';
TalkLabel.Caption := 'Talk Every:';
TalkLabel.ParentShowHint := False;
TalkLabel.ShowHint := True;
ColorLabel := TLabel.Create(Fr0znFormDesign);
ColorLabel.Parent := Fr0znFormDesign;
ColorLabel.Left := 16;
ColorLabel.Top := 104;
ColorLabel.Width := 147;
ColorLabel.Height := 20;
ColorLabel.Hint := 'Recommended as 3-10';
ColorLabel.Caption := 'Game Color Tolerance:';
ColorLabel.ParentShowHint := False;
ColorLabel.ShowHint := True;
SpeedLabel := TLabel.Create(Fr0znFormDesign);
SpeedLabel.Parent := Fr0znFormDesign;
SpeedLabel.Left := 16;
SpeedLabel.Top := 72;
SpeedLabel.Width := 92;
SpeedLabel.Height := 20;
SpeedLabel.Hint := 'Mouse Movement Speed';
SpeedLabel.Caption := 'Mouse Speed:';
SpeedLabel.ParentShowHint := False;
SpeedLabel.ShowHint := True;
LampLabel := TLabel.Create(Fr0znFormDesign);
LampLabel.Parent := Fr0znFormDesign;
LampLabel.Left := 16;
LampLabel.Top := 40;
LampLabel.Width := 72;
LampLabel.Height := 20;
LampLabel.Hint := 'Skill to Choose With Genie';
LampLabel.Caption := 'Lamp Skill:';
LampLabel.ParentShowHint := False;
LampLabel.ShowHint := True;
StartLabel := TLabel.Create(Fr0znFormDesign);
StartLabel.Parent := Fr0znFormDesign;
StartLabel.Left := 16;
StartLabel.Top := 203;
StartLabel.Width := 113;
StartLabel.Height := 49;
StartLabel.Cursor := crHandPoint;
StartLabel.Hint := 'Click to Choose Your Characters';
StartLabel.AutoSize := False;
StartLabel.ParentShowHint := False;
StartLabel.ShowHint := True;
StartLabel.Transparent := True;
StartLabel.OnClick := @ButtonClick;
HomeLabel := TLabel.Create(Fr0znFormDesign);
HomeLabel.Parent := Fr0znFormDesign;
HomeLabel.Left := 152;
HomeLabel.Top := 203;
HomeLabel.Width := 113;
HomeLabel.Height := 49;
HomeLabel.Cursor := crHandPoint;
HomeLabel.Hint := 'Check for Updates or Get Help';
HomeLabel.AutoSize := False;
HomeLabel.ParentShowHint := False;
HomeLabel.ShowHint := True;
HomeLabel.Transparent := True;
HomeLabel.OnClick := @ButtonClick;
ExitLabel := TLabel.Create(Fr0znFormDesign);
ExitLabel.Parent := Fr0znFormDesign;
ExitLabel.Left := 85;
ExitLabel.Top := 258;
ExitLabel.Width := 113;
ExitLabel.Height := 22;
ExitLabel.Cursor := crHandPoint;
ExitLabel.Hint := 'Exit';
ExitLabel.AutoSize := False;
ExitLabel.ParentShowHint := False;
ExitLabel.ShowHint := True;
ExitLabel.Transparent := True;
ExitLabel.OnClick := @ButtonClick;
LampEdit := TEdit.Create(Fr0znFormDesign);
LampEdit.Parent := Fr0znFormDesign;
LampEdit.Left := 176;
LampEdit.Top := 41;
LampEdit.Width := 89;
LampEdit.Height := 28;
LampEdit.Hint := 'Skill to Choose With Genie';
LampEdit.ParentShowHint := False;
LampEdit.ShowHint := True;
LampEdit.TabOrder := 0;
LampEdit.Text := 'Woodcutting';
LampEdit.OnEnter := @EffectsOn;
LampEdit.OnExit := @EffectsOff;
SpeedEdit := TEdit.Create(Fr0znFormDesign);
SpeedEdit.Parent := Fr0znFormDesign;
SpeedEdit.Left := 176;
SpeedEdit.Top := 73;
SpeedEdit.Width := 89;
SpeedEdit.Height := 28;
SpeedEdit.Hint := 'Mouse Movement Speed';
SpeedEdit.ParentShowHint := False;
SpeedEdit.ShowHint := True;
SpeedEdit.TabOrder := 1;
SpeedEdit.Text := '13';
SpeedEdit.OnEnter := @EffectsOn;
SpeedEdit.OnExit := @EffectsOff;
ColorEdit := TEdit.Create(Fr0znFormDesign);
ColorEdit.Parent := Fr0znFormDesign;
ColorEdit.Left := 176;
ColorEdit.Top := 105;
ColorEdit.Width := 89;
ColorEdit.Height := 28;
ColorEdit.Hint := 'Recommended as 3-10';
ColorEdit.ParentShowHint := False;
ColorEdit.ShowHint := True;
ColorEdit.TabOrder := 2;
ColorEdit.Text := '3';
ColorEdit.OnEnter := @EffectsOn;
ColorEdit.OnExit := @EffectsOff;
TalkEdit := TEdit.Create(Fr0znFormDesign);
TalkEdit.Parent := Fr0znFormDesign;
TalkEdit.Left := 176;
TalkEdit.Top := 136;
TalkEdit.Width := 89;
TalkEdit.Height := 28;
TalkEdit.Hint := 'Randomly Talk Every How Many Minutes';
TalkEdit.ParentShowHint := False;
TalkEdit.ShowHint := True;
TalkEdit.TabOrder := 3;
TalkEdit.Text := '10';
TalkEdit.OnEnter := @EffectsOn;
TalkEdit.OnExit := @EffectsOff;
LogoutEdit := TEdit.Create(Fr0znFormDesign);
LogoutEdit.Parent := Fr0znFormDesign;
LogoutEdit.Left := 176;
LogoutEdit.Top := 168;
LogoutEdit.Width := 89;
LogoutEdit.Height := 28;
LogoutEdit.Hint := 'Log Out After How Many Loads';
LogoutEdit.ParentShowHint := False;
LogoutEdit.ShowHint := True;
LogoutEdit.TabOrder := 4;
LogoutEdit.Text := '5';
LogoutEdit.OnEnter := @EffectsOn;
LogoutEdit.OnExit := @EffectsOff;
end;


procedure SafeFr0zNForm;
var
v: TVariantArray;

Begin
setarraylength(V, 0);
ThreadSafeCall('Fr0zNForm', v);
end;


procedure ShowFr0zNFormModal;
Begin
Fr0znFormDesign.ShowModal;
end;


procedure SafeShowFr0zNFormModal;
var
v: TVariantArray;

Begin
setarraylength(V, 0);
ThreadSafeCall('ShowFr0zNFormModal', v);
end;

Begin
SetupSRL;
GetApplication.BringToFront;
try
SafeFr0zNForm;
SafeShowFr0zNFormModal;
finally
FreeForm(Fr0znFormDesign);
end;
end.

FrÕzÑ_§ÕµL
01-05-2008, 09:50 AM
So all because of
try
SafeFr0zNForm;
SafeShowFr0zNFormModal;
finally
FreeForm(Fr0znFormDesign);
Kool thanks, I been wanting to ask about try, Finally except but I keep forgetting. Any chance you can give me a rundown?

SKy Scripter
01-05-2008, 10:00 AM
So all because of
try
SafeFr0zNForm;
SafeShowFr0zNFormModal;
finally
FreeForm(Fr0znFormDesign);
Kool thanks, I been wanting to ask about try, Finally except but I keep forgetting. Any chance you can give me a rundown?

actually you were getting your error here


ExitLabel : Begin
Fr0znFormDesign.ModalResult := mrOk;
Exit;
end;

You cant terminate a script... while the form is still up..
because modal result doesn't change until the procedure is done...


try - Says its name... it basically is like thread safe call... and trys to attempt something... in order to use try you must have except or finally to end it..

Try
Do something...
except

or

Try
Do something...
finally


except - except is called when something between try and except fails.. it will do whats between except and end has between it..

Try
do something that can give an error...
except
Writeln('You got an error');
end;


finally - is called after everything... so like freeing the stuff that gave an error on ect..


you must have an end after except and finally...

sorry, if you don't get it.. i cant explain things so well :(

FrÕzÑ_§ÕµL
01-05-2008, 10:14 AM
Ooh aha nobody ever told me that thanks! And I didn't have FreeForm :eek: that can't have been good. Lol no I don't really understand it, but I don't need to use it atm so it doesn't matter, I'll learn when I need it and its not nearly midnight :D

I've updated the guide with those things now TYVM!!!

BobboHobbo
01-05-2008, 10:44 AM
Wow, nice TUT, i never see scripts with forms anymore :( especially with pictures :)

FrÕzÑ_§ÕµL
01-05-2008, 06:10 PM
Well maybe some people will read this, run mine in SCAR and be like Wow thats kool, but I can do better! And then we get a whole craze of cool Formz :p

mastaraymond
01-05-2008, 06:47 PM
You could add an .close event where you UnInitalize all your events.. So that when it actually closes, it won't give errors..

Try
ShowForm;
Finally
FreeForm;


Finally is always called.. No matter what. Thats the power of a try\finally loop.

FrÕzÑ_§ÕµL
01-05-2008, 06:50 PM
As SKy just said a couple of posts ago?
try
SafeFr0zNForm;
SafeShowFr0zNFormModal;
finally
FreeForm(Fr0znFormDesign);
end;

However I need something in my script to make it stop if they click exit or home, but continue otherwise...?

King of Knives
01-05-2008, 10:31 PM
Thanks for the tutorial :D As I have told many times, I'm a sucker with forms. I can make a computer crash because I make so many mistakes.

BUT! Then I read this tutorial. Suddenly, I can make nice forms! THANKS :D

Looky at this... Me so proud... My precious...:

Program New;

var
CatherbyFisherForm : TForm;
CatherbyFisher : TLabel;
Credit : TLabel;
Tuna : TLabel;
Lobster : TLabel;
Mackerel : TLabel;
Swordfish : TLabel;
Shark : TLabel;

Procedure ButtonClick(Sender: TObject);
begin
Case Sender of
Mackerel: Writeln('Fishing Mackerel')
Tuna: Writeln('Fishing Tuna')
Lobster: Writeln('Fishing Lobsters')
Swordfish: Writeln('Fishing Swordfish')
Shark: Writeln('Fishing Sharks')
end;
CatherbyFisherForm.ModalResult:= mrOk;
end;

Procedure DrawImages(Sender: TObject);
var
Mackerel,Tuna,Lobster,Swordfish,Shark,W,H: Integer;
Canvas: TCanvas;
begin
Mackerel := BitmapFromString(30, 23, 'beNqFVQdQVFcUfewiVVAh' +
'sEEcehcQNYkxxkkyJo5GY4klJGESVFRcUQELLCB1kbLUSEABR SKol' +
'AgqkRI6K0jZBUQJoLHMKEap2/f3vP9XnVGMuXPn/fvfu+/8+++57z' +
'6Kek1IWskXT0omRzSGEsVwisJpmyAJjKJQHJHDaehCYOMUNaX FAtB' +
'WqicoioAwEglGku9CZsDVJIMJFSFwpVrFLBCyKQiopii5WvmM xQYn' +
'EniABTAcfg6bmpJAWLmcnImsURShvyGVqeAbguIqNapQqjU+Y 6Pj9' +
'NIkjBA1maPD4x1ITY3R1QXW1hy4D7r885R2eDsyjFaq0syQL1 dePA' +
'hacRUBbTYAvGNBPF4Qnx+mpQU8PZ0wXKlUSan/E6mU9pFDkcpIksR' +
'RTDotw5QQl8LkGMSHyAn8qKzM5DQBHyKvWLGYSREMG5uennwb JB0W' +
'RJJJpzU2jiG0QdKKKVSECqEIQhuAuGheZHjwscNcfkyomZkhT AikF' +
'ScUGvDXCKNxMGYeRRAJDODZ6AMmDFrVsilCDf9CTqGT2loggs eNiT' +
'xwPGxfSnL4yUz+LDawt+cwBaOWSsZxTDUDVs2sypmKmtSdBWB sUA1' +
'1gQ4ARnBkgdn64NDBTdx96wTJB+PjuLGx3Hh+IFsLuLlYIsgU g4Bp' +
'YiZxhhUS1RSSdPoRLFEYlQWHtexDq2/WLNm6cbn3lpU/f7/Kz3dVU' +
'OCXAQGfhPHWRkVuCuVtjI31ycsNj47czWYBL09bEpOSGF17BI 4q5Y' +
'pXsArZU5n0oY21Afy1dV+7e2/7yG/H5/v3rObu/gqOwQHrQ4+uDwp' +
'cFhn9WULiekHKlsjoDalpO48c2ZSaEgiRrRbMUcqeM8kkNBwp 5NNM' +
'YidsbYz19MC3m5dyuWsiwrbGRG7jx2w/EbstPmZrQtz29ESfX9J90' +
'jM2ZOdsTkpZm5S8oaTkaGVFXFVVRnlZ+m8FKRGhAfo6ABYMwz XF8I' +
'7B/MAT6vPj6qjoHXy+ryDJNynhu1SBd1bmD6dzfirI3Xkub1dhvl/' +
'hGd+SS7vz8r1Ly/eLxFl3bhdduhBVU33q2pXcyt/PXr1cXJCfU3bx' +
'AuRFMjFJk0ihOtogOSkk62RIYqJf0fmQ7Oydhef2Fp/fU3Zx7+Uy/' +
'yvl/hWle8ov7iot3vXHtWNNjfGtLYK5xgDuMpsHTIyArhbQZ7g21G' +
'HDcaGzk6OtDQyYzQYZaTGnT8VVVmRm5xwqLj58pTKkrja0ri6 4ruZ' +
'AbTW3rtofamMNt6E2WNiSXF+bYmIMnO3BB15mHi5mLnbmjlbv L/Fw' +
's7awcLS2dra19XJfSJF09cLjcyYvreLy6R2+XzQ0ZjU3p4jFG S0t4' +
'S2tR9paA9taAoTN+zraAkQdQf1dsSODJbos4GpvuNiNQyHjqO Q5Bb' +
'sfTk2NjtFti6AwhYIi6BNB4TIDPdBQX+q9fWVd3anevqKOjsy bXYI' +
'2YWRH1/HunghRT1hPZ2j3zRBxd1i/KPWmsFCfDZxtzXDFGERAJFMQ' +
'DZWrNQ0RgQZJIAopiihg3dbVnG9qKBK2FTU35/aIC/pvn+kSZ3b3p' +
'XWKBeL+tM6epJJSf6GQf+NGvFicD6tryWJ3y/nmzHHQHARKpVDOOM' +
'uEwSwgbCob6L3eISweHW1uE+b2DhTe+quwq/fX4ftFor6c1htpXV3' +
'Z7e1Zop58Dgd4eTm4urpiGISlEEb+q6EZw1RUl4zcab072NxQ f/bx' +
'49Yno43dPecGh0r6B4o6u/Pv3qu81Vfy4O/rI0NXtdnAwWH+i4b68' +
'tpQKpVvRYbdQNzRJGqvHxA1PbzfOdBfMzL85+iT9uHh6qGhqs HBqu' +
'GhWtgrOKZ063CyNzE3m4sxAveqVHQPR1GUfPNy0rRMYq6BgbE +rE3' +
'w5NHg+LORe4PtdwfbbolqdbQA5z0tSISHm6WTnbmdlam7qx3c oMkA' +
'ysg72jumQAgV5uniZmpkNG+2HsTXg2XPAqazWU7WZnaW8z79e NECj' +
'imsT0Qmg+xMjI3Tu5iYmbgIzQUxU0imqaulSppPldphwfzliz wcLS' +
'3cbKxWLPWCrCPTErikmFTQDsz9rUnC2NjYK/okEsmbuP8CdJS1DA=' +
'=');
Canvas:= GetBitmapCanvas(Mackerel);
GetBitmapSize(Mackerel,W,H)
CopyCanvas(Canvas,CatherbyFisherForm.Canvas,0,0,W, H,16,80,16+W,80+H)
FreeBitmap(Mackerel)
Tuna := BitmapFromString(29, 24, 'beNp1lflTU1cUxwMhJBAQtHVj' +
'lYS1SG3rTGc6rT/0h/4P/aG/9JfOdKbTqU4tKuLCTshCVggJa4wSt' +
'hCSAFnJxpKEXUQoSK0z1aqAgJD1vbye5GkFlzdnztz33n2f9z 3n3n' +
'sOhoWwN3bgCmFIIBj0+vB3/j1PckIihqBYCN3eWA96PTDYfPYUPIo' +
'EfN49DEO3tjbBB4N+FEM+hH2xsYkGEXjq2XkJnkgglF+/AR4LBgAF' +
'9vzJY3wAKDACvMLQ7e0X4ENhe4/O/Yb6A0BrEjVw6pix0URaRvorW' +
'sQ2nv4LnCgCQcDngkeQAC77Q1iQuvF8PRw1gh6Kp1aXV7BqGQ mUuF' +
'Npqb7dl2RiNPwL8XmBDDRuPZvDZsIgPz8XF4+9e+1Xi4biSLH Mqhp' +
'GRVWHtCWGQPjq7FkSgcCuqSm7evVQfBzAxUJBk0h4rbQkhhiV m5sN' +
'33g8ux/C7m5t4ykVC0V8Foddw+Ax2UlxVCDXlpdfunBByOFQybF8D' +
'pvNqGVUVSYnJeZk006eOAZYb2QF37bXeQMmlUSqvH6dW1fXKh bXV9' +
'eQIclcXgOb09LYWHz+vKi+XsBm89gswMLkT4sK4XO/z/MeJvaGCZP' +
'LS0v5LBajoqL65k1uTS27sopXyyj9/SKzqupmSUk9g1FXWVl6+RKX' +
'xYT5eXQaTsD3G87f2915pTMYSKCQObW1YKATsIACIKeqWlDHB Klll' +
'6+wKirhIWQDMgzhwF8AW5iXGwr4MSQItJc7W290ws727CVR40 uK/4' +
'DUsaqrQSeQJTw+mJDJAsEiFhvIUr6g8mrpjStXKq5dqykrKy0 uBuy' +
'XX3yOC3v29AkWCoKhfg8+gLetTQ3ytuYmIU/EZTfWs9saRfJmiUwi' +
'bhUKmvk8AaOuRSAEtUAeUHTBLyAbCpmsXSKJiRyW8E4OoaGAF wdiQ' +
'R88b+DXSxsEHEa1RMTvaG7qlcuUd+SAlQp4gL3TLJVLpBIuT9 HW3i' +
'IUwfJ1iJvsJhMwYRHlra3hYxhCIWQciCF+eNIuFQ8NKFvEIsW t9ts' +
't0m5Z+0BXp0px57ZU0lTPAWtvELWJGrTdPR2N4qHePr1qQNvT q+tX' +
'uW12l8NhHBxU9/aCtq315xgaAMEfJycOqfuB2Slr0yh7BlV9Rs2At' +
'rcbmOpuhaZL0dPRLhM3tgj4QBvoVOiU/Zqu7j757SNx8bEEwmFKHH' +
'gAxhGJZ4uKIlsCTnH41Dusxh9/+P7ib7/MOccWp90u24hlWGtQKUe' +
'0atvwoEmt0nR19t2SKeW39f0qIDv0hnhCVE5q2nffnEsmU+gp qYU0' +
'+pmCggI6PbJw4WVanJ9Rdnf++vNP92anZt0Tk+N2u9lgM+nsZ j2YV' +
'Teo0/SDjQxpbTq9XW+wDA1To4lncvNy0tIxKJ4olA4k7FEUr5kwAP' +
'ETNpvTbneOOmbcrpX7i64x+6BWnZ9Hp5CJNHrG8WNHEg/FjVj0I2a' +
'9Ra+3Gc3mYT18VZRXgAVhT3rfKnphC6LkKCJMm3VNLt9bvDsz O+l2' +
'rj1YmZpyk8kk+6jlRMrRLHqGSt3nnnXqDIMWo8FuGiFFRWefy srJo' +
'uGQnUgB2V8K4acL07Ori0swee3Plbmp6b/WVq0Ws81mSUykWqzGlN' +
'RjlHjSiNU47rL3q3qsJiN88tnpInrmKRwV8Pnf7QSU6Jipcef k2MT' +
'85PTK/SXn6NjC3bmN9WfDQ1qnc9w9OW4y66w20/3lhWGDZsLpgIX4' +
'9utztIzMSKTI9sbmAfLri0oiuxxjjx8+As3z0zP//P3o0dqD+bmZ5' +
'aVFu81iNunUGuXomLWnt/PuwrTRMATFMPXoccTn/z+lnt29d9V6tn' +
'YSYikQ19Gkw6tLy2Cene2HqyujDhsIdrvG5mYnk5Ng2QnEGEI MEcI' +
'vPExNxCEQHfgQgu5G+t2BNhO5zUxNy0rPyEhJhRiJkY0NBQfq 2EdJ' +
'CdBKPinIyaZn0rLSwMMQahI0YizSQJH9id2PhSb5ur9AXKfzC 07n5' +
'8ExST95AghZ6SlnCvNhp2GhAIp4IZvBvb1wtQtheFah00Fiof UfwP' +
'4HORaCUg==');
Canvas:= GetBitmapCanvas(Tuna)
GetBitmapSize(Tuna,W,H)
CopyCanvas(Canvas,CatherbyFisherForm.Canvas,0,0,W, H,96,80,96+W,80+H)
FreeBitmap(Tuna)
Lobster := BitmapFromString(31, 30, 'beNqNVvlTU1kWPgiCgmxRd' +
'jAJZA9bAkkIW4xCAoQ1IghuKEsDAjYtrahAido0Ol09Vf3jTM//NV' +
'UzU1PTWnYTwJDtvbz1zrkviKMzU9WpU/DW7537ne9850aPZMJjiET' +
'4j5CUoMcyDZ7QSGIIREgQgiESQiS+EKAIwHAaygCKAYjwlrBv iXxI' +
'xDjeJTI+lEI4CUlWwJUDeooPkGN8zEEKS/Iei/mQc6dguL1p2u8ed' +
'9YE7RUDtjIV4ou/MYd/J4SJfthXwKXPg/7k1L/j05Nb+C3CEnLEC/' +
'QyE7kAMNnZuHUncPdy3cpoh89eno/4chjvEVmIRxMU6HcH/uGUlXD' +
'JODKEtPQ3VpuzYX2i+/Htno2vglNXL2UBZJ4CnonRp6XfESlw5YAV' +
'kBOByDwR4mXpsBLsqk6Hl3OjS2PeJ/Oji3cGFu6OLs3fOZ0G/wNHV' +
'OL/4Ss1Otj7hUhxcvQeSX4+fW1t3O+qzKk6A7kAuRmQCZAOoNNUGa ' +
'sNXyL892mKECVo5vFDIseIGKkpOKU+DbM9rX/8ZubRzYE8AKs6v95' +
'Ubm/U1VsN5cVFKRqPM5I/W/4XVMsp+dHyxgkfwsINtZhaKvN2799a' +
'u95XngE2rcphVRMS39//F5WWLHGxhKAUCF9kBUU6qG5ZEpMslpvKA' +
'89FMcEkU+CiwHa1mIozYOJS7XSP49FEb21+WuUpqK/IdZirhMQe6i' +
'QeP8AXJS6JSe4dMSiACMOJx6oTwqH3RE4SmcmkukoSEZuGT8S P6F2' +
'ZKsRSAHN9zfO9jt2F8c2pIDLvNldykfeIzCaPlI4Q2FgUH09J 6+Ao' +
'TPtF5ogYw4WfAcgGsBtK805BThqwh2+JcETkOF5cDLZcBFgLu r671' +
'7929TI2Zqepwm2txmQkkT0Mh2hri7zAY1YSJ5FwLK7kjOqKnT 9Lix' +
'5otfS16GpLMjrNxQMteuOFdFUaYMlGPZYpr27Br3MWwuOrbS/u9CN' +
'4q65MDP/KxT9wfCJlHdF4hAKKUqpabDRcmAk5AM3a88EW481L1nG3' +
'drHPtj7WMedrmOmqu9VpHmwovx+wb006V3v125PuJ6OtD/pbSvEVT' +
'QkRGUI9ShJopBpcSoaP4vsfsE643s46Q8BhGXOb7/c0D5lV8536B1' +
'dMa37Lq+ttW0FXUzZ809Ow0m2cbSvaCFo2g407t7u2Jnzmc9B YeR6' +
'7VeAZRmCjSSbGsVRxIo/ghJcwYX+T/YpFP3XZNWZTz3eaHvnrtgL1' +
'mz3mn2d9P91of9lfv9Vr+cpWtOAq3ho0bI9anw5anww3/7gwhrS49' +
'RcJyouJC4o5cMfCFpEWrL42O6NBle1UZdxsUr+81rHus24FGr 150F' +
'sCjnQwADSlwYKzbM2jeT3a/Cygn3VfuF6X+9PicAWA/ixQsxJRXYI' +
'oS5i5oKiKSlqS0IqHbeqV7oavPdo3wYZn3so3o/btYfubmSFncRb6' +
'nq9WjcQu+xu/n/DsTrQ9HbRNuSp6as7q0sBRnGEtzCg5TTVAkuiBA' +
'sMw1DmT1JNZlsV1rQRcK17dk27NC7/659uO3WD9zkT74+u+knRwGq' +
'sdBrWxMPPeFRumujnc9GKsrSkHBkx5M17rSHP1zIBneWIQiW1 rrN1' +
'//wttQFEMhQ5STYe5TfucW2Mdr2+0Pu8zfOsp+8tS4GHAVonNUlJ Q' +
'r6kibASpu3Wp8fVM359WRloQWZN+w158r6Nmobd50lN//bKjKAMun' +
's9Vps+niRBlOOyv1YmBeX/z9oQH6dUDbFx1bd/uQSowZyJw2FCzwQ' +
'B6FDKsARg3ZD7orFryaJa7TA+HXLM++9yQF7/eWqfHdo6FDyQJRxh' +
'heCHBifjuwuTV5TGKdre9ugpgqbcJJ6NLX1GlykPnH/H7zgHYKvI6' +
'LmY7cmG2SYULfNyt+/qK7tFg86LftjjUieC6Ysw8KbBxWZY5XkTSl' +
'TlLUOS4LmNhujUPCPfOkAPWojMOUzV6y3BfX6lKpb2Q59SVa7 Ng3F' +
'5625z1zFuxHTB+21Wz3t+w3Nsw2+NEbluMVbSVqN0RBBcVV8F 2TcQ' +
'YV53VadSgaRHhUNr/Z1utPrG/h1pC21eXldlNBuHw3XmAh8Otf57r' +
'WmzI2hk074w0zLnLN8bbX82OILcdVq0Y2U8codsro50ch2K1e J6kG' +
'wfcFXAxdEFEZhMMtoKtrp4kGcwK9bY80r7qqfyur3rLp/XmQ3s+OA' +
'rAkAX43dryguPMJTkllTgncSf4tMYSvUtDwmeSSV5pNQm/K0QPkZz' +
'p3taNwbpXfTqU62Z/7Q9T3U/HOlHMDnUh0iJFD5ShHyPKdDhp2NS8' +
'+LijOP5xnHCsKuWjb//2V2zG56PuzR7Dut+I3bTab3+zeM1wDtyGU' +
'in8nhYUh76yIYnFGZF8Ikf4OJxTQ00Q6DP7eyHayET6ENpD/MJ0mP' +
'aYd296X016d6Z6f1ga//HhPZSKuTSP8ikkIochWkZRxJrKHwG/+MS' +
'nJSj1iEXpGOJ5HpW5OtY967X+YXEc2bigbOcsZflNhoti7IOE mxna' +
'RFIsFjt5W/4cPwUeiVDDZ6IRtDs6WgVhL0Qp1RVQw1EpM6LdonGZt' +
'A6LQYiEjytFpJNdnJLSRx5SW6nPMpdSY1oRE70Y2vuVhH9zaI txQL' +
'hNmti7fxAWtxk8ETksP/ouCizJ4I5PQj+P/RsKY8v8');
Canvas:= GetBitmapCanvas(Lobster)
GetBitmapSize(Lobster,W,H)
CopyCanvas(Canvas,CatherbyFisherForm.Canvas,0,0,W, H,176,80,176+W,80+H)
FreeBitmap(Lobster)
Swordfish := BitmapFromString(32, 28, 'beNqlVntwVNUZPyaLm2S' +
'TTXY3GoKaGALLO4+mqU4tmU7VTodp1T8QdVAcx/pgEIG0QABDTCEh' +
'EdiGJObBamRDJCQbNiSbh0RMMShBm9KB1nGg1TptYYh57t73u fee0' +
'+/cu1mw/9me+ebOOed+5/e9v3MopUQ2SKVU1ShVDJIpDWsEJpJGCa' +
'VYVoBB5UJ3IgRrXaeKioGZlyU4FlZlgajmQUHBwC+JqoYp1Qz SMSX' +
'YwNdhpc7hA/EagR1BkABz+ua3CeiOuuq3LCgGlqoCf5joqdCsapya' +
'5sPwxUSHTWr+Uw18QDaJ6mQOH+jmLOPnBUUSMLDZUFxDZc3aR x6zI' +
'gvFjE8Ki5SYSDon8xpTDxB0rMFpnaFhsFpn1hI9smMIVKOSaW RtRd' +
'ay1/ceKK7YuPaVtHkuCiorhogpgciaKUVRpJs3b2g62I1NIrqsqSI' +
'DJjSqCZlTA5YT49NMEqZ3xdxd8XrVxsc2v/SLlx0oMRnZnOwbb0PW' +
'RBR/n+seHeJAqCxxhOHLvDhBqADWE8pF8OktfEN9XeQFprxIE1Bix' +
'WvVe54r3/J4ScmTpZvXbCrf8MYTuWt+/fMNGx5d/9MVP8nPyrGieW' +
'FQRje8TeXJ6X+p+izgU8Ant/BpBByU0TVRBs1tyFa+cZ9na/3udb8' +
'rfaqqYv3hmpdqf7umeO+6PfufLy9Zt3PXsyWvPvEqsBXlrebG Q0Q2' +
'UwWsEBV9RlKnIvjkNnxggKAA1wx2IseRnfU1mxsbt7U2vtbat Km1e' +
'v0h7yZv2462+k2NrW+8v++Fyh3PlKx96GkbsptB0WRFEsPgVk 6cIl' +
'QE4DAnm/iaCr94CBXzDFM+3lftO7TF01nR0/vW8Ik9wc7Sga7S4Gj' +
'jH/sqzvjLTvcf/LCxuKX0ucota3cmIdcDi1czr2tUDAlGtqgqkcKc' +
'BNgcJ0SS1sghwqmQkHV7j9Ttqq/ZVhf0DL27vX3w0Mhf278eO/bF2' +
'LG/fPz2xXMNF4+VdAYPD3t3t+98unzrul025MITlInQqcCJhjs0E1 ' +
'JV1evXr7OZTif/OQGWgktrd9f6DrSdqPR7S1rPv/PZ6aqhT965dLn' +
'z6qkDA98MjZ9tGP1D8+f+A4OAX1/ie/mX2xzonocLfmV6SeQgRakk' +
'SYoqAhmeZ/s6OAzTOGRr2NfcURto2dfWXn2qr3awxzNw8fil0baxg' +
'Kf/yzNfdXn6rvT+bazri57asyerg96y9uaytmceeTEBOQE//C3zsK' +
'6aLhFVIqiaxPwvsbDqYeqMXVBT2ly1taav+ey7ZT7/4e5gfd83w/8' +
'Y6/5TErI7ketulOZAro/aRr4c/no0cKmrLthU3vL7PQ2vPLnZihJT' +
'49MsaJ4hQsNkhrBExYrMao2bwFbkqHnT6/MELgSudL/9wVjPlT/3X' +
'+k83OEpPrgwPiM/a+V9zgXL7nUvTVsCPrQjRypKS0IpHbVdTRXeyu' +
'1VbxaXb9/4m93bdlhYM4RqBXxuNjQOLlJ4FZzjsGQEW0e6vec+9l8' +
'+4/v0w9aRkc5PzrV/lHlnenbygoJly1k/xKpZ2lmOjMKFhSDo6oWr' +
'l4cvfzX29zg0L9mSkBhrcWdlLM2+H5TnpUnGSqjG7IBukzIc+ Oxsx' +
'+hp79CF3kvDnedtYDJKWZnmLnSv0mXeKB9MZNksF2lCcFoco2 cuDH' +
'QEoZB/nFuYv3SFKynpwYI8TWZpCckTzczZG6GkO5IHO4ZGes77j3b' +
'ZUTKQe/7inIU5eYtyCOQyxB/LAh82j8iiAlJiUcxg78B7R1tgsiR7' +
'EeORWRfFiqRiljtQsjKHxUkhzXbX+YFzAZ8/0NKREpvkTs9elbVi4' +
'fws46a4vZNQURQ5jjPndrvd7/cjhIqKijIzMzVNM/d5nocjs9NGl9' +
'OglcV9cKrf62kc6R+OQ5afFRYVLM1jJW6Aw30G9w1ktHlc13U T5Nq' +
'1a4C8f/9+m82WkZFh9Gol+mXImPJTfDyyttR5B/zBoVMDAP5QzgP2' +
'WJt5E0hh2fSGxsrR8Cdsa5oMITAG7LhcrvT09Nzc3Egjm5Nul htQa' +
'rxjqHuwt70bbqi8xatysleY4ArPQs+FJT1iNDQTDmNsIgAy6C kILI' +
'6ATwiJIodCIVjCLUslyBnLCe/xwHE/TMAnyzKXQI5gqHGd3vj3OCW' +
'R+POCBGjslKmaooAs05zoMI0yN9kX01Srvf9kd8B30opi8t0r l2e5' +
'I9HUqcizusaY+UXTb4UXkKPOoewNIERjajoHGGZmZlh/CMnzbc6mg' +
'7VxKObBVQU5i5ezRwm7wSKPBNAZYCenZsznRiRqczjgqNszyu xp5i' +
'Y2RgKKaa07CiIWpWUsSs9kzRmu7O9cmmZlROj7jmNHmkBzd/r9P1y' +
'WG3XLf4GTuecE+f7496akLrA7893LDeNV9ogj1Cwc8l36H4eI V//g' +
'R3iGU+AK01lHnXur/N/IMP4DdUEZIw==');
Canvas:= GetBitmapCanvas(Swordfish)
GetBitmapSize(Swordfish,W,H)
CopyCanvas(Canvas,CatherbyFisherForm.Canvas,0,0,W, H,256,80,256+W,80+H)
FreeBitmap(Lobster)
Shark := BitmapFromString(30, 30, 'beNp1VglTW9cZFYhFrKZ2Yqf' +
'eWI3xljh2bcdk2qa1mwQM3jA2DqsAAZIA7SvadwlJbGKTBAIM tmNP' +
'03bqJDNuMtP+mbYJjlm0orXn6XVUT93OvLlIl6tzzz3f+c59h 4/GU' +
'omdsD+ZSiRS8VQqkUrG95eWUCmUHAqFmEsSTyjox79+/PGf5AKMiX' +
'gUDz74/TvEZCqRfOOJpx8gh2JhciYY2KVmU4Rcjs1k5LJYZYWF2KK' +
'0sAA/DIcCGDc3f8h8ju6FScx4eou3kXfDfgI/EcWDBVkUik6lNKrV' +
'Uj5fJhC0NDe33rmNSVp+Lsb9P9uHEQRI2hh3tl9j3N3d/n/Mf9p6B' +
'eRXmz8UFxU4zGaNXI6nvbUVzJl9fQ2/u36j8fPmpsbPPr3e8PmnuT' +
'nZRYU0crts/IFuadj/Qt5LRreDO+RnrJpw2idtNnCeNFs6Wu613b3' +
'b39XV+bBNxOP2dHeymIMtt27eu32LNcDo6Wivv3rl+rXf4CA5 1Kz/' +
'yXlz+1UgRNRoX2mxxaD3zM6ODg0NdHZxBgZtBkNXW1t/TzeT0c/o7' +
'+3qbJeLRdxhNmAlAv7dO7fOnK6rrqrAKd6mHYoEk+mZUCgAzo 98yw' +
'qxWCkUaSRSIPOZLOHoqFQokImEoK2QSjhsll6tYg8OABy1RhV O1dV' +
'mvSFI5oG88WQsmfYSLYeqksscBqNCIATyGF+AcVynF3O5SpnU qNVo' +
'lQqTTgtkHI0/OgJNbjY2fFz/UV4u9W3kSJSwXCQSQiHwW7CyqDUAV' +
'PAFVrVGwGIDH7LrFIoph91qNLhdLqfFgq9yoZA3MgyBUN+LH7 yfoR' +
'2LRgKkeVJxUmT8y2mzKiUEsmh4RDIyCvA/Pnk653CimssLCyIOZ9I' +
'+PmG1GlQqi04HfBxwoJcO2vWXL8EnlRXHt16/IvG3024kmIeDqK/d' +
'YpbweOA5rtXZNFruwOCE0fTI7ZmyWGccDt/i4orbvTK/gI3gTLvJp' +
'B0bGxOJGPSeX179CD119dIvQDhjcoJ/bA+EF1wzVr3eqFDqZXI2vV' +
'fEHl53e2bH7e7JqcXJqYWJyQ2fj8Nkztod884JaALbABY/gYAQ5Mr' +
'FCwCPx/YyOofDQVIKFIVYJhCO9PVbVGoxa/ix2zvvcDr0hsdLy+CJ' +
'47icTpRg2mrb8C65p6b1SiWUUctkjO7uz679FsgfnjtLRA3aJ BIiw' +
'Q++e2BMIoaGdr1BJRRBB4tCNcbhYRcIYtPq5Dz+tN2O43tnXD gCyR' +
'wbgQxKA/LXP/n1O2X7jv38vc1//D1DG67QadV/eP4MK+ltD6EGb3B' +
'IxGTrxFKDVA7+o4wBvXwMDBGAarEEmDO2cXDwTM+gvvAJnrZ7 Lb+q' +
'v1pSQAPngH+HFBynmJ2aREUgMmFjHl88PKIRS4CPOrJ66IYxB dKpK' +
'Df3RHl5SX4+SD7f2EBNwRzIZpWaMKpc3nDtGrYuP3IY4ERqxR N5aD' +
'23B0wmTWYUDpZD9/GGmMgNKYeL0GMzGGg3EDh1oiaZiKGXzSbDitc' +
'Dh8AqToMR58IBh3v7SnNyD5aUksGeT6H8/tE6yjRndzz2LvGHmOho' +
'7uAQi94LqoKRkc4HD1B9sjrlx48Gg8Q1gUhcnHXNT00tuWZdF tu0y' +
'aLi8HmMwftNzWV5+alwBOBFWdlLM64vfSswWMWh98Qjo2ALYX u++I' +
'Le3v7gzp3uhw8BW1dTfbK6KpM5UDKfmo32AWeNUGxTaaxKNbO z+17' +
'jDVC9fO79ZDBUSMnyTs88WVre8HhRJjiqtakZagzS6Wg62Alb ALny' +
'2FHSTkQj7GxhBPKLr74C8gJkNJjMY8rhnl76g7aWhkbIG369V ULNe' +
'bToXl1YhJesGi1EVkml6AgE6d2mpttNN4pp+R9fuQzC8Ojuzt Ze+p' +
'JCgXDH/PXlyyfLPpdtHOeVcbiM9o7u1vtALsnJrf/wAsj7Zuf+9PR' +
'Lp9Gkk8mRn0h78ETVOu7fx2175mTtoQP7A9tbGc5kc+Egf/n665cv' +
'XoCPViJFFwhZbNip7eatA4VFx955F8yfra4hGWAhGA+eR2by2 GyEG' +
'H77AZK9pjpz6/l3t+ENfC4rLvJ53FDju2+++fOz5yalSiuVqURihB' +
'iHMQDMS2fPFWZl++bm0VmwJXRAzkNhsmpgS8AmibwC4H8CIRT Af//' +
'2/XerHs/TtbX15WVwQ7AgyeVcom0LKFnnT9bRKBTXuN07N4cQBmEo' +
'TO/sgLZn605WHD3yJmAw/dZBzCQT4OxdmF9f8WFcXfKiQeBAhAMMw' +
'O7tK86m1hw+UpZPmzCZcauOG42IF/QaUhHVIcyQBoTB8CZDvgkQsu' +
'xFgJyXneWanHi8trqxugKT1FZVltJoQJaMcnBToHYXT51ORaM FVOr' +
'izAxiwazX4ZggXHX8WFVlOd5VMoAE22QcuwAWDNe83u+//XbcbML6' +
'mupKLEZiQEwkCfIEyBUHD4EFVoLt7MQElsFggD1de+LfB09jb m39R' +
'AQj+VKUTIAJLhQck/Q5ikzMx6L4ikxDox0oKKw7Xh4J+LEY6Yd5aI' +
'uqkS9XxJiMR6MR8uUKIuMiJr6GQrDrs/X1nHS/X7xwHvXFWYhATh8' +
'HTtiXm3eushpvHGH/LiaRUefPnsmYNnPdkMhkUxO0Y7G4P4DcQ+/A' +
'ObvpfszcrVAAlrtQd6r2X+tj6c8=');
Canvas:= GetBitmapCanvas(Shark)
GetBitmapSize(Shark,W,H)
CopyCanvas(Canvas,CatherbyFisherForm.Canvas,0,0,W, H,336,80,336+W,80+H)
FreeBitmap(Shark)
end;

Procedure CatherbyFormInit;
begin
CatherbyFisherForm := CreateForm;
CatherbyFisherForm.Left := 250;
CatherbyFisherForm.Top := 114;
CatherbyFisherForm.Width := 420;
CatherbyFisherForm.Height := 200;
CatherbyFisherForm.Caption := 'Catherby Fisher';
CatherbyFisherForm.Color := clWhite;
CatherbyFisherForm.Font.Color := clWindowText;
CatherbyFisherForm.Font.Height := -11;
CatherbyFisherForm.Font.Name := 'MS Sans Serif';
CatherbyFisherForm.Font.Style := [];
CatherbyFisherForm.Visible := False;
CatherbyFisherForm.PixelsPerInch := 96;
CatherbyFisherForm.OnActivate:= @DrawImages;
CatherbyFisherForm.OnPaint:= @DrawImages;
CatherbyFisher := TLabel.Create(CatherbyFisherForm);
CatherbyFisher.Parent := CatherbyFisherForm;
CatherbyFisher.Left := 120;
CatherbyFisher.Top := 16;
CatherbyFisher.Width := 170;
CatherbyFisher.Height := 29;
CatherbyFisher.Alignment := taCenter;
CatherbyFisher.Caption := 'Catherby Fisher';
CatherbyFisher.Font.Color := clWindowText;
CatherbyFisher.Font.Height := -24;
CatherbyFisher.Font.Name := 'MS Sans Serif';
CatherbyFisher.Font.Style := [fsUnderline];
CatherbyFisher.ParentFont := False;
Credit := TLabel.Create(CatherbyFisherForm);
Credit.Parent := CatherbyFisherForm;
Credit.Left := 150;
Credit.Top := 48;
Credit.Width := 169;
Credit.Height := 16;
Credit.Alignment := taCenter;
Credit.Caption := 'By King of Knives';
Credit.Font.Color := clWindowText;
Credit.Font.Height := 0;
Credit.Font.Name := 'MS Sans Serif';
Credit.Font.Style := [];
Credit.ParentFont := False;
Tuna := TLabel.Create(CatherbyFisherForm);
Tuna.Parent := CatherbyFisherForm;
Tuna.Left := 96;
Tuna.Top := 80;
Tuna.Width := 29;
Tuna.Height := 24;
Tuna.Cursor := crHandPoint;
Tuna.AutoSize := False;
Tuna.Caption := '';
Tuna.OnClick:= @ButtonClick;
Lobster := TLabel.Create(CatherbyFisherForm);
Lobster.Parent := CatherbyFisherForm;
Lobster.Left := 176;
Lobster.Top := 80;
Lobster.Width := 31;
Lobster.Height := 30;
Lobster.Cursor := crHandPoint;
Lobster.AutoSize := False;
Lobster.Caption := '';
Lobster.OnClick:= @ButtonClick;
Mackerel := TLabel.Create(CatherbyFisherForm);
Mackerel.Parent := CatherbyFisherForm;
Mackerel.Left := 16;
Mackerel.Top := 80;
Mackerel.Width := 30;
Mackerel.Height := 23;
Mackerel.Cursor := crHandPoint;
Mackerel.AutoSize := False;
Mackerel.Caption := '';
Mackerel.OnClick:= @ButtonClick;
Swordfish := TLabel.Create(CatherbyFisherForm);
Swordfish.Parent := CatherbyFisherForm;
Swordfish.Left := 256;
Swordfish.Top := 80;
Swordfish.Width := 32;
Swordfish.Height := 28;
Swordfish.Cursor := crHandPoint;
Swordfish.AutoSize := False;
Swordfish.Caption := '';
Swordfish.OnClick:= @ButtonClick;
Shark := TLabel.Create(CatherbyFisherForm);
Shark.Parent := CatherbyFisherForm;
Shark.Left := 336;
Shark.Top := 80;
Shark.Width := 30;
Shark.Height := 30;
Shark.Cursor := crHandPoint;
Shark.AutoSize := False;
Shark.Caption := '';
Shark.OnClick:= @ButtonClick;
end;

procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('CatherbyFormInit', v);
end;

procedure ShowFormModal;
begin
CatherbyFisherForm.ShowModal;
end;

procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

begin
ClearDebug;
GetApplication.BringToFront;
Try
SafeInitForm;
SafeShowFormModal;
Finally
FreeForm(CatherbyFisherForm);
end;
end.

Thanks again, this tought me a lot. It's actually quite interesting to make forms...

-Knives

FrÕzÑ_§ÕµL
01-06-2008, 01:29 AM
:D yay I helped people! Ya its fun, gives you something to do when your sick of fixing other stuff :D Nice form you made, I didn't get to see it properly coz my 3.12 doesnt like formz much i dont think :p and I'm wcing using 3.13 atm.

Naum
01-06-2008, 10:55 AM
Kool going to use this thingy on me next script :p

Santa_Clause
01-06-2008, 12:33 PM
Wow, nice TUT, i never see scripts with forms anymore :( especially with pictures :)

I got owned. Nice tutorial Fr0zen.

FrÕzÑ_§ÕµL
01-06-2008, 06:33 PM
Wait, why'd you get owned lol?

FrÕzÑ_§ÕµL
01-06-2008, 08:30 PM
Added some stuff to do with SRL PlayerForm. Will probably re organize the tut later on :p

Edit: Oops sorry for double post.

Santa_Clause
01-07-2008, 04:55 PM
Wait, why'd you get owned lol?

All my scripts have forms...but Bobbo's too ignorant to notice :p

jhildy
01-08-2008, 03:13 AM
I feel you santa although i havn't released a script in like half a year but if i did it would have a killer form. Anyone feel like making a team script (not trying to steal this thread but if you are im me on aim/MSN).

FrÕzÑ_§ÕµL
01-08-2008, 06:17 AM
-.- Stick to topic :p aha j/k lmao but I notice wizzy says that a lot :rolleyes:

stranker1
10-26-2008, 09:59 PM
thanks for telling me, maybe i'll have time to try it out lol. =)