amxmodx/editor/studio/UnitfrmMOTDGen.pas
Christian Hammacher f2b8b82515 Component update (whoa I hate delphi reinstallations)
Added another feature for the Code-Explorer
2006-03-06 19:47:22 +00:00

32 lines
567 B
ObjectPascal
Executable File

unit UnitfrmMOTDGen;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, ClipBrd,
StdCtrls, ExtCtrls, Forms, mxFlatControls, TBXDkPanels, SpTBXDkPanels,
SpTBXControls;
type
TfrmMOTDGen = class(TForm)
txtMOTD: TmxFlatMemo;
cmdClose: TSpTBXButton;
cmdCopy: TSpTBXButton;
lblLength: TLabel;
procedure cmdCopyClick(Sender: TObject);
end;
var
frmMOTDGen: TfrmMOTDGen;
implementation
{$R *.DFM}
procedure TfrmMOTDGen.cmdCopyClick(Sender: TObject);
begin
Clipboard.SetTextBuf(txtMOTD.Lines.GetText);
end;
end.