VPF::обнуление поля при выбранном чекбоксе

creative

Дата 16.2.2006, 13:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 24.1.2006

Репутация: нет
Всего: нет

Есть класса
TMyClass
FData: TBitmap;

и следующие процедуры:

Код

procedure TForm1.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if Checkbox1.Checked then
    begin
     if Checbox2.checked then
     CurrentVulue:=true;
     DrawGrid1[ACol, ARow].MyProperty:=true;
    end;


procedure TMEClass.SetMyProperty(Value: boolean);
 begin
  FMyProperty := Value;
  case Value of
    true :
      begin
        if CurrentValue = false then
          begin
           FData:= Pic1;
          end;
          if CurrentValue = true then
          begin
          FData:= Pic2;
          end;
      end;



procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

if (DrawGrid1[ACol, ARow].FRWData) <> nil then
  DrawGrid1.Canvas.StretchDraw(Rect, DrawGrid1[ACol, ARow].Data);

Иными словами - если чекбокс отмечен - в клетке должна рисоваться одна картинка, если нет - другая. Что получаем: чекбоск отмечен, все данные передаются, картинка в поле прописывается, но когда дело доходит до процедуры DrawCell - поле FData почему то сстановится равно nil, и естественно ничего не рисуется вообще.
причем - если сначсала чекбокс и не отмечать - нарисуется соотв. картика. Но только тронь его - перестает рисоваться в обоих случаях.

_hunter

Дата 16.2.2006, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

потому как ( кода не вижу -- идут предположения ) какое-нить GetMyProperty работает неправильно ( возможно в типах параметров ошибся ) и возвращает непонятно что.

P.S.
код индийских праграмистав:
if ( a == true )
return true;
else if ( a == false )
return false;
smile

--------------------

Tempora mutantur, et nos mutamur in illis...

creative

Дата 16.2.2006, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 24.1.2006

Репутация: нет
Всего: нет

проблема решилась

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »