Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизЗакрашивание ячейки стрингрида если над ячейкой находится объект Найти похожие ветки
← →
rioko (2012-06-01 12:40) [0]Доброе время суток уважаемые мастера! Подскажите пожалуйста, как сделать так, что бы ячейка стринг грида в которой (над которой) находится объект (в данном случае панелька) закрашивалась? Ни как не могу добиться этого :(
procedure ShowProgress(row: integer);
var
R: TRect;
begin
R := AddRecordForm.FileTable.CellRect(4, Row);
R.Left := R.Left + AddRecordForm.FileTable.Left;
R.Right := R.Right + AddRecordForm.FileTable.Left;
R.Top := R.Top + AddRecordForm.FileTable.Top;
R.Bottom := R.Bottom + AddRecordForm.FileTable.Top;
AddRecordForm.Panel1.Left := R.Left + 1;
AddRecordForm.Panel1.Top := R.Top + 1;
AddRecordForm.Panel1.Width := (R.Right + 1) - R.Left;
AddRecordForm.Panel1.Height := (R.Bottom + 1) - R.Top;
AddRecordForm.Panel1.Visible := True;
Application.ProcessMessages();
end;
....
begin
for i := 1 to AddRecordForm.FileTable.RowCount - 2 do
begin
ShowProccess(i);
....
....
end;
....
procedure TAddRecordForm.FileTableDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if Panel1.Visible = true then
begin
rect := FileTable.CellRect(4,ARow);
FileTable.Canvas.Brush.Color := clBlack;
FileTable.Canvas.FillRect(rect);
end;
end;
Очень надеюсь на вашу помощь. Спасибо)
← →
Плохиш © (2012-06-01 15:08) [1]
> Подскажите пожалуйста, как сделать так, что бы ячейка стринг
> грида <...> закрашивалась?
Надо вызвать у грида свойство invalidate
← →
rioko (2012-06-01 15:15) [2]А можно пример пожалуйста ?
← →
Плохиш © (2012-06-01 15:18) [3]<grid>.Invalidate;
← →
rioko (2012-06-01 15:52) [4]Спасибо
← →
Palladin © (2012-06-01 16:27) [5]Что могуть делать в кодинге люди не понимающие простое предложение: "Вызвать invalidate" ? Как же они сами у себя в голове называют процесс вызова функций, методов? "напрограмировал буква" ?
← →
KilkennyCat © (2012-06-03 18:49) [6]
> Palladin © (01.06.12 16:27) [5]
ты просто не понимаешь принципов программирования на языке высокого уровня (делфи в данном случае - низкого).
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.061 c