Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
ВнизКак рисовать на FixedCol в StringGrid только на выделенной строке Найти похожие ветки
← →
vvvvv (2003-05-26 12:38) [0]То есть что-то вроде dgIndicator в DBGrid
← →
Skier (2003-05-26 12:40) [1]TStringGrid.Row ?
← →
NAlexey (2003-05-26 13:03) [2]Метод один, рисовать также как и на не FixedCol. Или вопрос состоит в том как вообще рисовать в StringGrid?
← →
vvvvv (2003-05-26 13:13) [3]Нет, вопрос не в том, как вообще рисовать на StringGrid. Вопрос - Как рисовать на FixedCol в StringGrid только на выделенной строке?
← →
vvvvv (2003-05-26 13:16) [4]Колонка 0 - Fixed
with StringGrid1 do
if gdSelected in State then
Canvas.TextOut(0 ,Rect.Top+2, "Selected")
else
if not (gdSelected in State) then
Canvas.TextOut(0 ,Rect.Top+2, "")
Это, разумеется не работает. Вопрос - как правильно?
← →
rounin (2003-05-26 13:32) [5]OnDrwaCell:
with Sender as TStringGrid do
if (Row = ARow)and(dgFixed in State{ACol = 0}) then ...
OnSelectCell:
(Sender as TStringGrid).Invalidate;
← →
Skier (2003-05-26 13:38) [6]procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender) do begin
if (ARow = Row) and (ACol = 0) then begin
Canvas.Brush.Color := clRed;
Canvas.FillRect(Rect);
end //if
else begin
Canvas.Brush.Color := clSilver;
Canvas.FillRect(Rect);
end; //else
end; //with
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
TStringGrid(Sender).Invalidate;
end;
← →
vvvvv (2003-05-26 13:55) [7]Спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c