BINGO application.

[seghele0]

The BINGO program is almost finished.
Have a problem with the EXIT button when the form is maximized.
The EXIT button keeps moving to the left, the other objects remain in place.
Does anyone have a solution please?
 

[dseligo]

You have discrepancy between Unit1.pas and Unit1.lfm (code and form).
In your Unit1.pas you don't have declaration for PanelBtnEXIT, so add it, ie. in line 27:

Code: Pascal  [Select][+][-]

1. type
2.   { TForm1 }
3.   TForm1 = class(TForm)
4.     BtnEXIT: TButton;
5.     BtnGenerate: TButton;
6.     BtnRestart: TSpeedButton;
7.     LabelCLOCK: TLabel;
8.     PanelTOPgrid: TPanel;
9.     PanelLEFTgrid: TPanel;
10.     PanelTIME: TPanel;
11.     PanelBtnEXIResetGameT: TPanel;
12.     PanelBtnRestart: TPanel;
13.     PanelBtnNEW: TPanel;
14.     PanelNUMBER: TPanel;
15.     PanelStringGrid: TPanel;
16.     PanelButtons: TPanel;
17.     PanelBtnEXIT: TPanel; // <-- add this line
18. ...

Then change line 133 from BtnExit.SetBounds to:

Code: Pascal  [Select][+][-]

1.   PanelBtnEXIT.SetBounds // <-- change this line
2.    (PanelBtnNew.Left + PanelBtnNew.Width + Spacing,
3.    (PanelButtons.Height - ControlHeight) div 2, BtnWidth + 50, ControlHeight -20);

I didn't check if you are missing some other declarations from form. Normally, form and source are synchronized.

P.S.: added explanation in code and comment at the end.

[seghele0]

Thank you for the fast support with the correct code.
It works now.
I still have a lot to learn.
Fortunately, I can count on real support on this forum.
(Still working on the program.)
 

[seghele0]

In attachment I leave the finished version of my BINGO application to all Pascal-Lazarus sympathizers.
Thanks for the great help from this forum and that of NL-Delphi.
Enjoy the program(FREE).
 

[Thaddy]

I will send you my code too, but somehow I forgot to do that. Sorry. I will leave it up to you to decide what's best.

[seghele0]

Thaddy
I hope you will really forward the program
Thanks already.
 

[seghele0]

Thaddy,

Apparently your promised application 'Bingo' has gotten stuck somewhere.
 
I'm really curious to discover your results.

[seghele0]

"Thaddy"
This is my final request to forward your application of "BINGO" to the forum.
You've already promised it twice.
 
Thanks in advance.