2008-07-06 17:36:37 -04:00
|
|
|
unit mImgText;
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
uses
|
|
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
|
|
StdCtrls, ExtCtrls;
|
|
|
|
|
|
|
|
type
|
|
|
|
TfraImgText = class(TFrame)
|
|
|
|
img: TImage;
|
|
|
|
lblText: TLabel;
|
|
|
|
private
|
|
|
|
{ Private declarations }
|
|
|
|
public
|
2010-07-07 16:51:54 -04:00
|
|
|
constructor Create(AOwner: TComponent); override;
|
2008-07-06 17:36:37 -04:00
|
|
|
end;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
2010-07-07 16:51:54 -04:00
|
|
|
uses VA508AccessibilityRouter;
|
|
|
|
|
2008-07-06 17:36:37 -04:00
|
|
|
{$R *.DFM}
|
|
|
|
|
2010-07-07 16:51:54 -04:00
|
|
|
{ TfraImgText }
|
|
|
|
|
|
|
|
constructor TfraImgText.Create(AOwner: TComponent);
|
|
|
|
begin
|
|
|
|
inherited Create(AOwner);
|
|
|
|
TabStop := FALSE;
|
|
|
|
end;
|
|
|
|
|
|
|
|
initialization
|
|
|
|
SpecifyFormIsNotADialog(TfraImgText);
|
|
|
|
|
2008-07-06 17:36:37 -04:00
|
|
|
end.
|