freepascal.ru

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

Забавный баг. Ниже код, ставит переключатель на разный уровень в зависимости от положения двух флагов. Если 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;