pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Check packages and demos for Laz 1.8.4 / 2.0.0 / 2.0.2 / trunk and FPC 3.0.4 / FPC 3.2 / trunk. 32-bit, Laz 2.0.2/FPC 3.2 64 bit. Make fixes needed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6971 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 23:35:34 +00:00
parent 35b4753bbc
commit a67a3f9d55
89 changed files with 441 additions and 327 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/run/JvPageComps/jvnavigationpane.pas
View File

@ -2260,7 +2260,7 @@ end;
procedure TJvNavIconButton.ParentStyleManagerChanged(var Msg: TMsgStyleManagerChange);
begin
if (Msg.Sender <> Self) and ParentStyleManager then
if (Msg.Sender <> Self) and ParentStyleManager and not (csDestroying in ComponentState) then
begin
StyleManager := Msg.StyleManager;
ParentStyleManager := True;

4
components/jvcllaz/run/JvPageComps/jvtabbar.pas
View File

@ -67,7 +67,7 @@ type
FImageIndex: TImageIndex;
FEnabled: Boolean;
FVisible: Boolean;
FTag: Integer;
FTag: PtrInt;
FData: TObject;
FHint: TCaption;
FName: string;
@ -121,7 +121,7 @@ type
property Modified: Boolean read GetModified write SetModified default False;
property Hint: TCaption read FHint write FHint;
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
property Tag: Integer read FTag write FTag default 0;
property Tag: PtrInt read FTag write FTag default 0;
property Visible: Boolean read FVisible write SetVisible default True;
property PopupMenu: TPopupMenu read FPopupMenu write SetPopupMenu;
property ShowHint: Boolean read FShowHint write FShowHint default True;