Skip to content

Fix/rangecheck error -> support tframe and fix delphi hints #323

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 4 commits into
base: master
Choose a base branch
from
Open

Fix/rangecheck error -> support tframe and fix delphi hints #323

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
8bec59f
Support for TFrame;Fix Rangecheck Error; Comment out unused vars
Jun 25, 2020
26fa591
Merge branch 'master' into fix/rangecheck-error-and-support-tframe
Jul 21, 2021
2a77516
Merge branch 'master' into fix/rangecheck-error-and-support-tframe
Oct 22, 2025
ae5c60a
Fix compiler notice; Delete unused vars
Oct 22, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 8 additions & 0 deletions Common/Vcl.Styles.Ext.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -413,11 +413,19 @@ class function TStyleManagerHelper.RegisteredStyles: TDictionary<string, TSource
006CD071 07 pop es 006CD076 FFFF db $ff $ff
}
// Use the address of the Self.Flags property to calculate the offset of the FRegisteredStyles
//>>>
{$IF (CompilerVersion < 35)}
//<<<
{$IFDEF CPUX64}
p := Pointer(PByte(@Self.Flags) + 8);
{$ELSE}

p := Pointer(PByte(@Self.Flags) + 4);

{$ENDIF CPUX64}
//>>>
{$IFEND}
//<<<

{$IF (CompilerVersion >= 35)} //Alexandria.
with Self do
Expand Down
7 changes: 0 additions & 7 deletions Common/Vcl.Styles.FontAwesome.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -848,13 +848,6 @@ procedure TFontAwesome.DrawChar(DC: HDC; const AChar: Char; DestRect: TRect;
type
TCustomActivityIndicatorShadow = class(TCustomControl)
private
FAnimate: Boolean;
FIndicatorColor: TActivityIndicatorColor;
FIndicatorSize: TActivityIndicatorSize;
FIndicatorType: TActivityIndicatorType;
FFrameDelay: Word;
FFrameIndex: Integer;
FTimer: TTimer;
FFrameList: TImageList;
FFrameCount: Integer;
FFrameSize: Integer;
Expand Down
2 changes: 2 additions & 0 deletions Common/Vcl.Styles.Utils.SystemMenu.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -178,6 +178,8 @@ procedure TVclStylesSystemMenu.CreateMenuStyles;
LSysMenu := GetSystemMenu(FForm.Handle, False);

LSubMenuIndex := GetMenuItemCount(LSysMenu);
if LSubMenuIndex = -1 then //Support for TFrame
exit;
AddMenuSeparatorHelper(LSysMenu, LSubMenuIndex);

FVCLStylesMenu := CreatePopupMenu();
Expand Down