Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 853

•  TDictionary Custom Sort  6 832

•  Fast Watermark Sources  6 614

•  3D Designer  9 578

•  Sik Screen Capture  6 957

•  Patch Maker  7 400

•  Айболит (remote control)  7 347

•  ListBox Drag & Drop  6 206

•  Доска для игры Реверси  98 255

•  Графические эффекты  7 522

•  Рисование по маске  6 804

•  Перетаскивание изображений  5 656

•  Canvas Drawing  6 038

•  Рисование Луны  5 832

•  Поворот изображения  5 281

•  Рисование стержней  3 870

•  Paint on Shape  3 024

•  Генератор кроссвордов  3 983

•  Головоломка Paletto  3 157

•  Теорема Монжа об окружностях  3 998

•  Пазл Numbrix  2 637

•  Заборы и коммивояжеры  3 453

•  Игра HIP  2 367

•  Игра Go (Го)  2 285

•  Симулятор лифта  2 680

•  Программа укладки плитки  2 244

•  Генератор лабиринта  2 801

•  Проверка числового ввода  2 403

•  HEX View  2 746

•  Физический маятник  2 435
 
скрыть

StringGrid без выделенной ячейки


Автор: Jeff Fisher

Я пытаюсь показать StringGrid без выделенной ячейки. Первая нефиксированная ячейка всегда имеет состояние "инвертированного" цвета. Я не хочу позволить пользователю редактировать сетку, но эта выделенная ячейка производит впечатление того, что сетка имеет возможность редактирования...

Вам необходимо создать обработчик события OnDrawCell. Это легче чем вы думаете. Вот образец кода, который сделает вас счастливым:


procedure TForm.sgrDrawCells(Sender: TObject; Col, Row: Longint; Rect: TRect;
  State: TGridDrawState);
var
  ACol: longint absolute Col;
  ARow: longint absolute Row;
  Buf: array[byte] of char;
begin
  if State = gdFixed then
    Exit;

  with sgrGrid do
  begin
    Canvas.Font := Font;
    Canvas.Font.Color := clWindowText;
    Canvas.Brush.Color := clWindow;

    Canvas.FillRect(Rect);
    StrPCopy(Buf, Cells[ACol, ARow]);
    DrawText(Canvas.Handle, Buf, -1, Rect,
      DT_SINGLELINE or DT_VCENTER or DT_NOCLIP or DT_LEFT);
  end;
end;