end;
procedure tcoolmemo.setedgecolor(value:tcolor);
begin
if fedgecolor<>value then
begin
fedgecolor:=value;
drawborder;
end;
end;
procedure tcoolmemo.setentercolor(value:tcolor);
begin
if fentercolor<>value then
begin
fentercolor:=value;
drawborder;
end;
end;
procedure tcoolmemo.cmmouseenter(var message: tmessage);
begin
inherited;
mousein:= true;
drawborder;
end;
procedure tcoolmemo.cmmouseleave(var message:tmessage);
begin
inherited;
mousein:=false;
drawborder;
end;
