lstRules.Canvas.Font.Style := lstRules.Canvas.Font.Style + [fsBold];
Str := BottleChainRuleList[Index].Title;
- y := DrawText(lstRules.Canvas.Handle, PChar(Str), -1, Rect, DT_NOPREFIX or DT_EDITCONTROL or DT_WORDBREAK);
+ y := DrawText(lstRules.Canvas.Handle, PChar(Str), -1, Rect, DT_NOPREFIX or DT_WORDBREAK);
lstRules.Canvas.Font.Style := lstRules.Canvas.Font.Style - [fsBold];
Str := BottleChainRuleList[Index].StringExpression;
Rect.Top := Rect.Top + y;
Rect.Left := Rect.Left + 5;
- DrawText(lstRules.Canvas.Handle, PChar(Str), -1, Rect, DT_NOPREFIX or DT_EDITCONTROL or DT_WORDBREAK);
+ DrawText(lstRules.Canvas.Handle, PChar(Str), -1, Rect, DT_NOPREFIX or DT_WORDBREAK);
end;
procedure TfrmBottleChainList.Button1Click(Sender: TObject);