unit describe;

interface

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

type
  TFormaDescribe = class(TForm)
    Shape1: TShape;
    Comenta: TMemo;
    Image1: TImage;
    Shape2: TShape;
    Label1: TLabel;
    procedure FormPaint(Sender: TObject);
    procedure ComentaKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComentaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaDescribe: TFormaDescribe;
procedure describir(boton:TMouseButton;x,y,caso:integer);
implementation

{$R *.DFM}

procedure leedescripcion(posicion:integer);
type
bloque=record
base:string[10];
descripcion1:string[125];
descripcion2:string[125];
end;
var
arch:File of bloque;
bloq:Bloque;
begin
if FileExists(leeruta+'\ayuda\describe.des') then
begin
AssignFile(arch,leeruta+'\ayuda\describe.des');
reset(arch);

if posicion<FileSize(arch) then
begin
Seek(arch,posicion);
Read(arch,bloq);
FormaDescribe.Comenta.Clear;
FormaDescribe.Comenta.Text:=bloq.descripcion1+bloq.descripcion2;
end;

Closefile(arch);
end;
end;


procedure describir(boton:TMouseButton;x,y,caso:integer);
begin
FormaDescribe:=TFormaDescribe.Create(Application);
with FormaDescribe do
begin
if boton=mbRight then
begin
FormaDescribe.Top:=y+70;
FormaDescribe.Left:=x-Trunc(FormaDescribe.Width/2)+25;
leedescripcion(caso);
FormaDescribe.ShowModal;
end;
end;
FormaDescribe.Free;
end;

procedure TFormaDescribe.FormPaint(Sender: TObject);
var
centro:integer;
begin
{centro:=Trunc(FormaDescribe.Width/2);
Canvas.Brush.Color:=clRed;
Canvas.Pen.Width:=2;
Canvas.Polygon([Point(centro,5),Point(centro-20,30),Point(centro+20,30)]);}
end;

procedure TFormaDescribe.ComentaKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
close;
end;

procedure TFormaDescribe.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Close;
end;

procedure TFormaDescribe.ComentaClick(Sender: TObject);
begin
Close;
end;

end.