2011-07-04 19:52:53 +00:00
|
|
|
unit FormDebugStringsUnit;
|
|
|
|
|
|
|
|
|
|
{$MODE Delphi}
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
2020-12-10 23:39:40 +01:00
|
|
|
Dialogs, StdCtrls, ExtCtrls, LResources, betterControls;
|
2011-07-04 19:52:53 +00:00
|
|
|
|
|
|
|
|
type
|
|
|
|
|
TFormDebugStrings = class(TForm)
|
|
|
|
|
ListBox1: TListBox;
|
|
|
|
|
Panel1: TPanel;
|
|
|
|
|
Button1: TButton;
|
|
|
|
|
procedure Button1Click(Sender: TObject);
|
|
|
|
|
private
|
|
|
|
|
{ Private declarations }
|
|
|
|
|
public
|
|
|
|
|
{ Public declarations }
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
FormDebugStrings: TFormDebugStrings;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure TFormDebugStrings.Button1Click(Sender: TObject);
|
|
|
|
|
begin
|
|
|
|
|
close;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
initialization
|
|
|
|
|
{$i FormDebugStringsUnit.lrs}
|
|
|
|
|
|
|
|
|
|
end.
|