paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Sparta form designer: Fix compilation on Windows + cleanup.

Browse Source 
git-svn-id: trunk@55619 -
This commit is contained in:
juha 2017-07-31 17:35:01 +00:00
parent e794422659
commit 29aecae6e6
1 changed files with 3 additions and 19 deletions

22
components/sparta/dockedformeditor/source/sparta_mainide.pas
View File

@ -50,7 +50,6 @@ type
{$ELSE}
FFormImages: TList;
{$ENDIF}
//protected
procedure WndMethod(var Msg: TLMessage);
procedure SetPopupParent(AVal: TSourceEditorWindowInterface);
procedure DoAddForm;
@ -87,15 +86,12 @@ type
procedure SetDesignFormData(const AValue: TDesignFormData); virtual;
public
destructor Destroy; override;
procedure ShowDesignPage;
procedure HideDesignPage;
procedure BoundToDesignTabSheet;
property Resizer: TResizer read FResizer;
property DesignFormData: TDesignFormData read FDesignFormData write SetDesignFormData;
procedure BoundToDesignTabSheet;
end;
{ TSourceEditorWindowData }
@ -103,8 +99,6 @@ type
TSourceEditorWindowData = class
private
FActiveDesignFormData: TDesignFormData;
private
//FWndMethod: TWndMethod;
FForm: TSourceEditorWindowInterface;
{$IFDEF USE_GENERICS_COLLECTIONS}
FPageCtrlList: TDictionary<TSourceEditorInterface, TModulePageControl>;
@ -114,8 +108,6 @@ type
FLastTopParent: TControl;
procedure SetActiveDesignFormData(const AValue: TDesignFormData);
//protected
//procedure WndMethod(var TheMessage: TLMessage);
procedure OnChangeBounds(Sender: TObject);
procedure AddPageCtrl(ASrcEditor: TSourceEditorInterface; APage: TModulePageControl);
procedure RemovePageCtrl(ASrcEditor: TSourceEditorInterface);
@ -491,7 +483,7 @@ begin
// (is necessery for selecting controls after form resizing).
// in Linux platforms below code brings problems with QT (inactive form)
{$IFDEF WINDOWS}
case TheMessage.msg of
case Msg.msg of
LM_LBUTTONDOWN, LM_RBUTTONDOWN, LM_MBUTTONDOWN, LM_XBUTTONDOWN:
if Form.LastActiveSourceWindow <> nil then
begin
@ -710,16 +702,9 @@ begin
// for USE_POPUP_PARENT_DESIGNER to eliminate form over code << maybe not needed any more since USE_POPUP_PARENT_DESIGNER isn't supported any more
LPageCtrl.OnChange(LPageCtrl);
end;
{
procedure TSourceEditorWindowData.WndMethod(var TheMessage: TLMessage);
begin
FWndMethod(TheMessage);
end;
}
constructor TSourceEditorWindowData.Create(AForm: TSourceEditorWindowInterface);
begin
//FWndMethod := AForm.WindowProc;
//AForm.WindowProc := WndMethod;
FForm := AForm;
{$IFDEF USE_GENERICS_COLLECTIONS}
FPageCtrlList := TDictionary<TSourceEditorInterface, TModulePageControl>.Create;
@ -730,7 +715,6 @@ end;
destructor TSourceEditorWindowData.Destroy;
begin
//FForm.WindowProc := FWndMethod;
FPageCtrlList.Free;
inherited Destroy;
end;