Цвет в StringGrid

← →
Schummi © (2002-04-02 07:44) [0]

Мастера, доброе время суток! Скажите, как в TStringGrid изменить цвет выделения? Спасибо!

← →
Schummi © (2002-04-02 07:56) [1]

Да, и ещё. Как при старте(запуске) программы, убрать енто самое выделение ячеек?

← →
MBo © (2002-04-02 08:02) [2]

убрать выделение -
установить Selection в -1,-1,-1,-1

изменить цвет - в DrawCell рисовать самому при gdSelected

← →
Schummi © (2002-04-02 21:03) [3]

Plz, объясните, как вот
> в DrawCell рисовать самому при gdSelected

← →
MBo © (2002-04-03 06:05) [4]

procedure TForm1.sg1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if gdSelected in State then begin
sg1.canvas.fillrect(rect);
sg1.canvas.TextOut(rect.left+2,rect.top+2,sg1.cells[acol,arow]);
end;
end;

← →
Song © (2002-04-03 08:37) [5]

2MBo © (03.04.02 06:05)
Вы спецом назвали грид Sg1 чтобы он разбирался подольше? :))

← →
MBo © (2002-04-03 08:45) [6]

да я всегда для себя так делаю, чтобы поменьше писать, а
with затрудняет восприятие ;)

← →
Song © (2002-04-03 08:49) [7]

2MBo © (03.04.02 08:45)
Не знаю, мне кажется наоборот, что с With лучше.
А хотя, наверно это всё идёт из-за лени.. С With писать меньше :))
Извиняюсь за offtopic, но все-равно, мне нравится, ИМХО так:
With Edit1 Do SelStart:=Length(Text);
чем
Edit1.SelStart:=Length(Edit1.Text);

← →
ilysha © (2002-04-03 09:46) [8]

Конечно, это не по теме вопроса, но Song прав - хотя на скорость выполнения вид
> With Edit1 Do SelStart:=Length(Text);
или
> Edit1.SelStart:=Length(Edit1.Text);
не влияют, но логигу программы лучше понимать в первом случае. В конце-концов, не зря же придумали конструкцию with.
Но всё это так...

← →
Anatoly Podgoretsky © (2002-04-03 10:15) [9]

Song © (03.04.02 08:37)
Я думаю это борланд стиль, тип + номер

Schummi + Grid + 1 = sg1

Song © (03.04.02 08:49)
Хотя это дело вкуса, но первая конструкция воспринимается тяжелее, надо напрягаться что бы понять к чему относится SelStart, Text - конечно речь не об этом простом случае, а о более сложном, а сколько при этом бывает ошибок, особенно в извращенных садомазохистких случаях

With a,b,c или with a with b with c

Вторая конструкция не оставляет пути для неверной интерпритации, как человеком, так и компилятором.
А вот первую форму применяю в особых случаях для работы с анонимными объектами.

with TFormX.Create(Self) do
try
ShowModal;
finally
Free;
end;

← →
Johnmen © (2002-04-03 10:25) [10]

>ilysha © : With влияет на компактность скомпиленного кода и на быстродействие...хотя точно сказать, насколько быстрее - проблематично...

Да, пасиба. Теперь тогда такой вопрос: как определять свои цвета в Delphi? Допустим надо нарисовать выделение в TStringGrid не одним из имеющихся цветов, а например, светло-светло-зелёным.

const clVeryLightGreen=$00C0FFC0;

2MBo А как ты так узнаешь цвета? А, например, светло-светло-розовый?
Так как там убрать выделение? Что-то у мя не получается!

Tcolor=Integer
байты со старшего
вспомогательный B G R
т.е. $00FF00FF - синий и красный без зеленого
используй функцию RGB

Selection менял?
DrawCell рисовал?

Цвет в StringGrid Найти похожие ветки