Форум: "Начинающим";
Текущий архив: 2014.05.18;
Скачать: [xml.tar.bz2];
Внизотрисовка на форме Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2014.05.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.002 c