unit finishu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TFinishForm = class(TForm)
    BitBtn1: TBitBtn;
    lblWin: TLabel;
    lblCongrats: TLabel;
    GroupBox1: TGroupBox;
    lblPickWord: TLabel;
    lblShowNext: TLabel;
    lblShowSol: TLabel;
    lblChkProg: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetPlace(pLeft, pTop, pWidth : Integer);
    procedure SetValues(vHintPick, vHintGive, vHintSol : Integer;
      vHintChk : Boolean);
  end;

var
  FinishForm: TFinishForm;

implementation

{$R *.DFM}
procedure TFinishForm.SetValues(vHintPick, vHintGive, vHintSol : Integer;
      vHintChk : Boolean);
begin
  lblPickWord.Caption := IntToStr(vHintPick);
  lblShowNext.Caption := IntToStr(vHintGive);
  lblShowSol.Caption := IntToStr(vHintSol);
  IF vHintChk THEN lblChkProg.Caption := 'Yes'
  ELSE lblChkProg.Caption := 'No';
end;

procedure TFinishForm.SetPlace(pLeft, pTop, pWidth : Integer);
begin
  Top := pTop;
  Left := pLeft + pWidth;
  IF Left + Width > Screen.Width THEN
    Left := pLeft - Width;
end;



end.