Инструменты пользователя

Инструменты сайта


programmirovanie_v_dx:standartnye_obrabotchiki_sobytij_v_komponentax

Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
programmirovanie_v_dx:standartnye_obrabotchiki_sobytij_v_komponentax [2018/04/01 13:04]
jurist23rus
programmirovanie_v_dx:standartnye_obrabotchiki_sobytij_v_komponentax [2018/04/23 11:10] (текущий)
7bit Форматирование кода
Строка 7: Строка 7:
 <code delphi> <code delphi>
 var var
-OldDrawCell:​ TDrawColumnCellEvent;​+  ​OldDrawCell:​ TDrawColumnCellEvent;​
  
 procedure MyDrawCell(Sender:​ TObject; const Rect: TRect; DataCol: Integer; Column:​TColumn;​ State: TGridDrawState);​ procedure MyDrawCell(Sender:​ TObject; const Rect: TRect; DataCol: Integer; Column:​TColumn;​ State: TGridDrawState);​
 begin begin
- // Вызываем старый обработчик +  ​// Вызываем старый обработчик 
- ​OldDrawCell(Sender,​ Rect, DataCol, Column, State); +  OldDrawCell(Sender,​ Rect, DataCol, Column, State); 
- // +  // 
- if TdxGrid(Sender).GetFieldName(Column) = '​Количество'​ then  +  if TdxGrid(Sender).GetFieldName(Column) = '​Количество'​ then  
- ​begin +  begin 
-  if Self.AsI['​Количество'​] < 0 then  +    if Self.AsI['​Количество'​] < 0 then  
-   ​TdxGrid(Sender).Canvas.Brush.Color := clRed; +      TdxGrid(Sender).Canvas.Brush.Color := clRed; 
- end;+  end;
 end; end;
  
 procedure Form_Create;​ procedure Form_Create;​
 begin begin
- OldDrawCell := Self.Grid.OnDrawColumnCell;​  +  ​OldDrawCell := Self.Grid.OnDrawColumnCell;​  
- ​Self.Grid.OnDrawColumnCell := @MyDrawCell;​+  Self.Grid.OnDrawColumnCell := @MyDrawCell;​
 end; end;
 </​code>​ </​code>​
programmirovanie_v_dx/standartnye_obrabotchiki_sobytij_v_komponentax.txt · Последние изменения: 2018/04/23 11:10 — 7bit