You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 lines
1.3 KiB
Plaintext
59 lines
1.3 KiB
Plaintext
unit u_sys_message_tell;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, Mask, DBCtrls, BusinessSkinForm, bsSkinCtrls,
|
|
bsSkinBoxCtrls, ExtCtrls, ComCtrls;
|
|
|
|
type
|
|
Tfrm_sys_message_tell = class(TForm)
|
|
Edit1: TRichEdit;
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
bsSkinButton1: TbsSkinButton;
|
|
RichEdit1: TRichEdit;
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
procedure RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
|
|
Shift: TShiftState; X, Y: Integer);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_sys_message_tell: Tfrm_sys_message_tell;
|
|
|
|
implementation
|
|
|
|
uses u_main, u_sys_message_pri;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_sys_message_tell.bsSkinButton1Click(Sender: TObject);
|
|
begin
|
|
if bsSkinButton1.caption='´ó'then
|
|
begin
|
|
bsSkinButton1.caption:='С';
|
|
RichEdit1.Visible:=false;
|
|
Edit1.Visible:=true;
|
|
frm_sys_message_tell.Height:=300;
|
|
end
|
|
else
|
|
begin
|
|
RichEdit1.Visible:=true;
|
|
Edit1.Visible:=false;
|
|
bsSkinButton1.caption:='´ó';
|
|
frm_sys_message_tell.Height:=22;
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_sys_message_tell.RichEdit1MouseDown(Sender: TObject;
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
|
begin
|
|
frm_main.WindowState:=wsMaximized;
|
|
end;
|
|
|
|
end.
|