xXxVov4ikxXx
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Main.History_text.Paragraph.Alignment:=taCenter; //âèâåäåìî íàïèñ â ³ñòîð³þ
Main.History_text.SelAttributes.Color:=clNavy;
Main.History_text.Lines.Add('Ïî÷àòîê ãðè');
Main.History_text.Paragraph.Alignment:=taLeftJustify;
with Main.History_text do
begin
SelStart := Length(Trim(Text));
Perform(EM_SCROLLCARET, 0, 0);
if CanFocus then SetFocus;
end;
Main.History_text.SelAttributes.Color:=clGreen; //âèâ³ä õîäó â ³ñòîð³þ
case rezhym of
1: Main.History_text.Lines.Add('Õ³ä '+IntToStr(n_hodu)+', ãðàâåöü âçÿâ '+IntToStr(n_spi4)+' ñ³ðíèê³â ç '+IntToStr(n_ku4)+' êó÷êè');
2: Main.History_text.Lines.Add('Õ³ä '+IntToStr(n_hodu)+', ãðàâåöü âçÿâ '+IntToStr(n_spi4)+' ñ³ðíèê³â ç '+IntToStr(n_ku4)+' êó÷êè');
4: If player=1 then Main.History_text.Lines.Add('Õ³ä '+IntToStr(n_hodu)+', ãðàâåöü 1 âçÿâ '+IntToStr(n_spi4)+' ñ³ðíèê³â ç '+IntToStr(n_ku4)+' êó÷êè')
else begin
Main.History_text.SelAttributes.Color:=clRed;
Main.History_text.Lines.Add('Õ³ä '+IntToStr(n_hodu)+', ãðàâåöü 2 âçÿâ '+IntToStr(n_spi4)+' ñ³ðíèê³â ç '+IntToStr(n_ku4)+' êó÷êè');
end;
end;
with Main.History_text do
begin
SelStart := Length(Trim(Text));
Perform(EM_SCROLLCARET, 0, 0);
if CanFocus then SetFocus;
end;
Main.History_text.SelAttributes.Color:=clRed;
Main.History_text.Lines.Add('Õ³ä '+IntToStr(n_hodu)+', êîìï''þòåð âçÿâ '+IntToStr(n_spi4)+' ñ³ðíèê³â ç '+IntToStr(n_ku4)+' êó÷êè');
with Main.History_text do
begin
SelStart := Length(Trim(Text));
Perform(EM_SCROLLCARET, 0, 0);
if CanFocus then SetFocus;
end;
Если вот так записано, то:
1) цветом выделяется токо первая строка
2) при выводе хода что с командой, что без - пустая строка в конце остается, а когда кликаешь на прокрутку, тогда уже курсор поднимается и пустая строка опускается...
3) проблему с прокруткой решил, я просто забыл активировать ричедит... |
