delphi多行显示颜色

procedure TFrmDlg.GetMouseItemInfo(var iname, line1, line2, line3, line4: string; var useable: Boolean);
function GetDuraStr(Dura, maxdura: Integer): string;
begin
if not BoNoDisplayMaxDura then
Result := IntToStr(Round(Dura / 1000)) + '/' + IntToStr(Round(maxdura / 1000))
else
Result := IntToStr(Round(Dura / 1000));
end;
function GetDura100Str(Dura, maxdura: Integer): string;
begin
if not BoNoDisplayMaxDura then
Result := IntToStr(Round(Dura / 100)) + '/' + IntToStr(Round(maxdura / 100))
else
Result := IntToStr(Round(Dura / 100));
end;
var
sWgt: string;
begin
if g_MySelf = nil then exit;
iname := ''; line1 := ''; line2 := ''; line3 := ''; line4 := '';
useable := TRUE;

if g_MouseItem.S.Name <> '' then begin
iname := g_MouseItem.S.Name + ' ';
sWgt := '重量:';
line1 := line1 + ' 重量:' + IntToStr(g_MouseItem.S.Weight);
case g_MouseItem.S.StdMode of
0: begin

case g_MouseItem.S.Shape of
0: begin
if (g_MouseItem.S.AC > 0) and (g_MouseItem.S.MAC = 0) then
line2 := '恢复' + IntToStr(g_MouseItem.S.AC) + 'HP'
else if (g_MouseItem.S.MAC > 0) and (g_MouseItem.S.AC = 0) then
line2 := '恢复' + IntToStr(g_MouseItem.S.MAC) + 'MP'
else
line2 := '恢复' + IntToStr(g_MouseItem.S.AC) + 'HP,恢复' + IntToStr(g_MouseItem.S.MAC) + 'MP';
end;
1: begin
if (g_MouseItem.S.AC > 0) and (g_MouseItem.S.MAC = 0) then
line2 := '立即恢复' + IntToStr(g_MouseItem.S.AC) + 'HP'
else if (g_MouseItem.S.MAC > 0) and (g_MouseItem.S.AC = 0) then
line2 := '立即恢复' + IntToStr(g_MouseItem.S.MAC) + 'MP'
else
line2 := '立即恢复' + IntToStr(g_MouseItem.S.AC) + 'HP,立即恢复' + IntToStr(g_MouseItem.S.MAC) + 'MP';
end;
3: begin
if (g_MouseItem.S.AC > 0) and (g_MouseItem.S.MAC = 0) then
line2 := '立即恢复' + IntToStr(g_MouseItem.S.AC) + '%HP'
else if (g_MouseItem.S.MAC > 0) and (g_MouseItem.S.AC = 0) then
line2 := '立即恢复' + IntToStr(g_MouseItem.S.MAC) + '%MP'
else
line2 := '立即恢复' + IntToStr(g_MouseItem.S.AC) + '%HP,' + IntToStr(g_MouseItem.S.MAC) + '%MP';
end;
end;
end;

我想把iname显示成黄色

line1显示成绿色

line2显示蓝色

需要如何修改?

那个过程调用这个GetMouseItemInfo过程的？

你是怎么输出的，把那部分贴出来，我看看。

你是OpenGL还是DirectX输出。

也就是在输出是设置

Canvas.pen.color:=clYellow; 画笔的颜色

Canvas.pen.width:=1; 画笔的宽度
Canvas.TextOut(X,Y,iname);

Canvas.pen.color:=clGreen; 画笔的颜色

Canvas.pen.width:=1; 画笔的宽度
Canvas.TextOut(X,Y,line1);

Canvas.pen.color:=clBlue; 画笔的颜色

Canvas.pen.width:=1; 画笔的宽度
Canvas.TextOut(X,Y,line2);

然后就OK了