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

jvcllaz: Fix JvDesignerDemo crashing on Qt when a panel added to the designer surface is resized.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6966 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-28 13:42:05 +00:00
parent f05bc54e79
commit 988fb4f578
2 changed files with 204 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas
View File

@ -182,19 +182,25 @@ type
DDC: TDesignerDeviceContext;
constructor Create(AMessenger: TJvDesignCustomMessenger); reintroduce;
// IDesignerNotify interface
procedure Modified;
procedure Notification(AnObject: TPersistent; Operation: TOperation); reintroduce;
procedure Modified; override;
// procedure Notification(AnObject: TPersistent; Operation: TOperation); reintroduce;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
// IDesigner, IDesignerHook interface
function GetCustomForm: TCustomForm;
procedure SetCustomForm(Value: TCustomForm);
function GetIsControl: Boolean;
procedure SetIsControl(Value: Boolean);
function GetRoot: TComponent;
function GetShiftState: TShiftState; override;
function IsDesignMsg(Sender: TControl; var Msg: TLMessage): Boolean; override;
procedure PaintGrid; override;
procedure ValidateRename(AComponent: TComponent; const CurName, NewName: string); reintroduce;
procedure PrepareFreeDesigner(AFreeComponent: boolean); override;
procedure SelectOnlyThisComponent(AComponent: TComponent);override;
procedure SetCustomForm(Value: TCustomForm);
procedure SetIsControl(Value: Boolean);
function UniqueName(const BaseName: string): string; override;
function GetRoot: TComponent;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure ValidateRename(AComponent: TComponent; const CurName, NewName: string); override; //reintroduce;
//{$IFDEF COMPILER9_UP}
//procedure PaintMenu;
//{$ENDIF COMPILER9_UP}
@ -1251,6 +1257,10 @@ begin
Result := nil;
end;
function TJvDesignDesigner.GetShiftState: TShiftState;
begin
Result := [];
end;
function TJvDesignDesigner.IsDesignMsg(Sender: TControl; var Msg: TLMessage): Boolean;
begin
Result := Messenger.IsDesignMessage(Sender, Msg);
@ -1261,8 +1271,8 @@ begin
//
end;
procedure TJvDesignDesigner.Notification(AnObject: TPersistent;
Operation: TOperation);
procedure TJvDesignDesigner.Notification(AComponent: TComponent; Operation: TOperation);
//procedure TJvDesignDesigner.Notification(AnObject: TPersistent; Operation: TOperation);
begin
//
end;
@ -1272,6 +1282,16 @@ begin
//
end;
procedure TJvDesignDesigner.PrepareFreeDesigner(AFreeComponent: boolean);
begin
//
end;
procedure TJvDesignDesigner.SelectOnlyThisComponent(AComponent: TComponent);
begin
//
end;
procedure TJvDesignDesigner.SetCustomForm(Value: TCustomForm);
begin
//
@ -1287,6 +1307,11 @@ begin
//
end;
procedure TJvDesignDesigner.UTF8KeyPress(var UTF8Key: TUTF8Char);
begin
//
end;
procedure TJvDesignDesigner.ValidateRename(AComponent: TComponent;
const CurName, NewName: string);
begin