amxmodx/editor/studio/UnitfrmMOTDGen.pas

31 lines
550 B
ObjectPascal
Raw Normal View History

2005-08-26 18:29:39 +00:00
unit UnitfrmMOTDGen;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, ClipBrd,
2005-08-26 18:29:39 +00:00
StdCtrls, ExtCtrls, Forms, mxFlatControls, TBXDkPanels, SpTBXDkPanels;
type
TfrmMOTDGen = class(TForm)
txtMOTD: TmxFlatMemo;
cmdClose: TSpTBXButton;
cmdCopy: TSpTBXButton;
2005-11-09 16:48:21 +00:00
lblLength: TLabel;
2005-08-26 18:29:39 +00:00
procedure cmdCopyClick(Sender: TObject);
end;
var
frmMOTDGen: TfrmMOTDGen;
implementation
{$R *.DFM}
procedure TfrmMOTDGen.cmdCopyClick(Sender: TObject);
begin
Clipboard.SetTextBuf(txtMOTD.Lines.GetText);
2005-08-26 18:29:39 +00:00
end;
end.