Скачать: CL | DM;

отрисовка на форме   Найти похожие ветки 

← →
dis12345 ©   (2013-07-27 16:57) [0]

Здравствуйте!!!
Delphi7 на WinXP отрисовываю в стринггриде чекбокс в 4 столбике

procedure TFormSettings.StringGridUsersDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
const
Flags: array[Boolean] of DWORD = (0, DFCS_CHECKED);
begin

with StringGridUsers, Canvas do begin
   IF Acol = 4 THEN begin
   IF Arow >= 1 THEN begin
       InflateRect(Rect, -2, -2);
       DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_FLAT or DFCS_BUTTONCHECK or Flags[Boolean(UserYN[Arow-1] )]);
   END;
   END;
END
end;

на ХР все работает, а на 2003 сервере вываливается с ошибкой
read at adress 00000000
работаю из под администратора....
Помогите!!!

---

← →
dis12345 ©   (2013-07-27 17:01) [1]

добавлю: вывыливается на DrawFrameControl

---

← →
brother ©   (2013-07-27 20:01) [2]

> or Flags[Boolean(UserYN[Arow-1] )]);

тут что на входе получаешь?

---

← →
brother ©   (2013-07-27 20:02) [3]

поробуй это временно отключить

---

← →
dis12345 ©   (2013-07-29 10:34) [4]

последний параметр- флаг состояния чекбокса вкл или выкл, он определен, на ХР все функционирует нормально уже год, перенес на 2003- ошибка в run-time и из под отладчика в этой строке....

---

← →
brother ©   (2013-07-29 11:59) [5]

споришь, ну ну... я вижу что и для чего... ты делал как я говрою, замени

> Flags[Boolean(UserYN[Arow-1] )]);

на DFCS_CHECKED
+ точно все переменные процедуры StringGridUsersDrawCell
в строке DrawFrameControl ... инициализированы верно???

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.003 c