Pichugin Organizer

Планы, идеология, архитектура и т.п.

Модератор: Модераторы

Re: Pichugin Organizer

Сообщение Sharfik » 29.02.2024 00:00:47

Тут поспамлю...

Забавный баг. Ниже код, ставит переключатель на разный уровень в зависимости от положения двух флагов. Если BufDataSet компилируется без полей, и уже в процессе делается CreateDataset, то все нормально.
Но, если поля созданы через IDE, то либо оба флага false, либо true)))

Код: Выделить всё
procedure TFModulePlanTaskItem.tbTaskRangClick(Sender: TObject);
var
  bQuickly,
  bimportant :Boolean;
begin
  bimportant:=bdsFormBuffer.FieldByName('important').AsBoolean;
  bQuickly:=bdsFormBuffer.FieldByName('quickly').AsBoolean;
  if bimportant and bQuickly then
  begin
     tbTaskRang.Position:=1;
  end
  else if bimportant and not bQuickly then
  begin
     tbTaskRang.Position:=2;
  end
  else if not bimportant and bQuickly then
  begin
     tbTaskRang.Position:=3;
  end
  else begin
     tbTaskRang.Position:=4;
  end;
end;
Аватара пользователя
Sharfik
энтузиаст
 
Сообщения: 763
Зарегистрирован: 20.07.2013 01:04:30

Пред.

Вернуться в Разработки на нашем сайте

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13

Рейтинг@Mail.ru