}}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 010bc3c2 Код загружен: 16 ноября 2010, 16:14 (Roman Novikov)

  1. procedure TObjEditForm.ValueListEditor1DrawCell(Sender: TObject; ACol,
  2. ARow: Integer; Rect: TRect; State: TGridDrawState);
  3. const
  4. clPaleGreen = TColor($CCFFCC);
  5. clPaleRed = TColor($CCCCFF);
  6. clPaleWhite = TColor($FFFFFF);
  7. begin
  8.  
  9. if (ACol = 1) and (ARow > 0) then
  10. begin
  11. if (CorrectValues[ARow] = 1) then
  12. ValueListEditor1.Canvas.Brush.Color := clPaleGreen
  13. else
  14. if (CorrectValues[ARow] = 0) then
  15. ValueListEditor1.Canvas.Brush.Color := clPaleRed
  16. else
  17. ValueListEditor1.Canvas.Brush.Color := clPaleWhite;
  18. ValueListEditor1.Canvas.FillRect(Rect);
  19. ValueListEditor1.Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, ValueListEditor1.Cells[Acol, Arow]);
  20. end;
  21. end;

Ссылка на данный код:

На главную страницу сервиса обмена кодом »