Rising Force the Roguelike Code

{   This file is a part of Rising Force Roguelike, the roguelike game.
    Copyright (C) 2010 Konovod Andrey (kipar@front.ru).

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see http://www.gnu.org/licenses/
}
unit uTextAnswer;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls, Graphics;

type

  { TfrAnswer }

  TfrAnswer = class(TFrame)
    StaticText1: TStaticText;
    procedure StaticText1Click(Sender: TObject);
    procedure StaticText1MouseEnter(Sender: TObject);
    procedure StaticText1MouseLeave(Sender: TObject);
  private
    { private declarations }
  public
    MyID: integer;
    { public declarations }
  end;

implementation

uses uText;

{ TfrAnswer }

procedure TfrAnswer.StaticText1MouseEnter(Sender: TObject);
begin
  TStaticText(Sender).Font.Color := clLime;
end;

procedure TfrAnswer.StaticText1Click(Sender: TObject);
begin
  fmText.TheAnswer := MyID;
  fmText.Close;
end;

procedure TfrAnswer.StaticText1MouseLeave(Sender: TObject);
begin
  TStaticText(Sender).Font.Color := clWhite;
end;

initialization
  {$I utextanswer.lrs}

end.