Skip to content

Commit 95a2e71

Browse files
committed
fix(build): TFrame.Scaled-Zugriff via TScrollingHack-ClassHack
E2003: 'Scaled' ist auf TScrollingWinControl protected, TFrame ererbt das als protected. Direct Self.Scaled := False compiliert nicht. Class-Hack TScrollingHack = class(TScrollingWinControl) im implementation-uses adden, dann TScrollingHack(Self).Scaled := False. Standard-VCL-Idiom, gleicher Stil wie TControlHack in derselben Unit fuer TControl.Font (war frueher mal drin).
1 parent 6db00a0 commit 95a2e71

1 file changed

Lines changed: 6 additions & 1 deletion

File tree

StaticCodeAnalyserIDE/uIDESCAOptions.pas

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -144,6 +144,11 @@ implementation
144144
uIDEColors, // IDE_FG_DIM - semantische Theme-Farbe (wie uIDESonarOptions)
145145
uAnalyserTheme; // TEditorColorScheme + Parse/ToStr
146146

147+
type
148+
// Class-Hack fuer TScrollingWinControl.Scaled (TFrame ererbt das als
149+
// protected). 2026-06-19 Fix DPI-Konsistenz mit der IDE-Tree-View.
150+
TScrollingHack = class(TScrollingWinControl);
151+
147152
const
148153
// Sentinel-Text fuer "kein Profile-Override". Wird im Combo angezeigt
149154
// und in LoadFromSettings/SaveToSettings als Marker verglichen - daher
@@ -170,7 +175,7 @@ constructor TSCAOptionsFrame.Create(AOwner: TComponent);
170175
// bleibt bei 96-DPI-Layout. Bei 200%+ DPI muesste der User selbst
171176
// mit System-Settings nachregeln, das ist Trade-off fuer den
172177
// Konsistenz-Gewinn gegen die Tree-View.
173-
Self.Scaled := False;
178+
TScrollingHack(Self).Scaled := False;
174179
ApplyHintStyleToAllInfoLabels;
175180
end;
176181

0 commit comments

Comments
 (0)