2005-08-26 18:29:39 +00:00
|
|
|
unit UnitfrmMOTDGen;
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
uses
|
2005-11-09 14:32:07 +00:00
|
|
|
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
|
2005-11-09 14:32:07 +00:00
|
|
|
Clipboard.SetTextBuf(txtMOTD.Lines.GetText);
|
2005-08-26 18:29:39 +00:00
|
|
|
end;
|
|
|
|
|
|
|
|
end.
|