Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by CHackbart,
17. Mär 2016
Ich poste mal eine etwas aufgeräumte Variante von meinem Ansatz:
type
TVirtualScrollBox = class(TCustomScrollBox)
private
FContentSize: TPointF;
protected
procedure DoPaint; override;
function DoCalcContentBounds: TRectF; override;
function GetDefaultStyleLookupName: string; override;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by CHackbart,
14. Mär 2016
Uff, die sauberste Variante ist wahrscheinlich wenn Du TAniCalculations zu verwenden. Da bin ich aber ehrlich gesagt dran verzweifelt. Ich hab dann für mein Problem einfach folgendes gemacht:
const
BOUNDS_WIDTH = 10000;
BOUNDS_HEIGHT = 10000;
TMyClass = class(TCustomScrollBox)
protected
..
function DoCalcContentBounds: TRectF; override;