procedure TFrm_PrtTest.SetColor(SelectStr: string);
begin
if Trim(SelectStr)<>'' then
begin
Memo1.SelStart := Length(Memo1.Text) - Length(SelectStr)-2;
Memo1.SelLength:= Length(SelectStr);
Memo1.SelAttributes.Color := clRed;
end;
end;
begin
if Trim(SelectStr)<>'' then
begin
Memo1.SelStart := Length(Memo1.Text) - Length(SelectStr)-2;
Memo1.SelLength:= Length(SelectStr);
Memo1.SelAttributes.Color := clRed;
end;
end;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/166523/viewspace-1133937/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
Delphi中票据凭证的精确打印
下一篇：
获取电脑上连接的USB打印机
请登录后发表评论
登录
全部评论
