Topic: Вопросы: перетаскивание мышью текста и о раскрашивании строк.
Добрый день! Большая просьба: проясните, пожалуйста, 2 момента!
1). В текстовом поле (также в многострочном) нет возможности перетаскивания текста мышью (в другое, например, поле и т.п.), можно только выделять и копировать. А очень требуется. Можно как-то это реализовать скриптами?
2). В случае раскрашивания строк в гриде по указанному вами варианту:
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
begin
Form1.TableGrid1.BeginUpdate;
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
if Form1.TableGrid1.Cells[3,i] = 'Yes' then Form1.TableGrid1.Cell[3,i].Color := clRed;
if Form1.TableGrid1.Cells[3,i] = 'No' then Form1.TableGrid1.Cell[3,i].Color := clGreen;
end;
Form1.TableGrid1.EndUpdate;
end;
всё работает, НО если по таблице был совершён клик, то эта строка (по которой кликнули мышью) остаётся неокрашенной, что очень неудобно. Если потом кликнуть в другое место, то цвет проявляется. Можно как-то прописать в скрипт снятие этого выделения (мышью) при обновлении? или как-то ещё выйти из ситуации?
