mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-19 09:48:16 +02:00
d53cfa9c28
sparta: initial commit of "compilable" new sparta package - smart form editor. !NOTE: not for daily usage. ........ sparta: Initial conception for package for MDI: sparta_MDI. Base for sparta_DockedFormEditor package. ........ sparta: Generics.Collections library ( sync with https://github.com/dathox/generics.collections SHA fda586932bd80ef58c08f8ebf5a24316ca4ccca5) ........ sparta: smart form editor adjustment for new sparta_MDI ........ sparta: new class "TFormImpl" for MDI solution (created from TDesignedFormImpl). ........ sparta: -MDI form container "TFormContainer" -New IResizeFrame interface to handle MDI form moving -New frame TfrFormBackgroundForMDI ........ sparta: sparta_MDI package modifications: -new class TMultiplyResizer to menage MDI desktop -more generic resizer: TAbstractResizer. Base for IDE resizer and TMultiplyResizer -more advanced IResizeFrame interface ........ sparta: -DockedFormEditor adjustment for latest changes in mdi package -small changes in mdi (visibility of methods). -OnModified method for IResizeFrame ........ sparta: MDI -simulate MDI forms order for TMultiplyResizer -property DesignedForm: IDesignedForm for IResizeFrame ........ sparta: -IMPORTANT! pixel perfect form resizing (fix for problems for controls with align alLeft, alRight etc on design form). -Fix problem for windows: wrong design design window width (a little bigger than designed size) TFormImpl.SetRealBounds -> AdjustSize ........ sparta: mdi bug fix for AV in TMultiplyResizer ........ Fix compilation for FPC 3.0 (TRect changes in FPC 3.1 trunk) ........ sparta: Cannot resize the docked form designer, issue #29380 patch from Anthony Walter. Thanks! ........ sparta ToolsAPI: Delphi compatible ToolsAPI/DesignIDE interface at XE2 level (proxy for IDEIntf). Initial commit (no functionality yet), just interfaces and classes without implementation: designeditors.pas: -TComponentEditor designintf.pas: -Interfaces: IEventInfo, IClass, IActivatable, IDesignObject, IDesignPersistent, IDesignerSelections, IDesigner60, IDesigner70, IDesigner80, IDesigner100, IDesigner, IComponentEditor -TBaseComponentEditor -RegisterComponentEditor designmenus.pas: -Interfaces: IMenuItems, IMenu, IMainMenu, IPopupMenu, IMenuItem ........ when form is removed we need to remove all handlers located in collections FFormsStack and FForms. Necessary to avoid AV. ........ sparta: more correct and simpler calculation of form border for Windows ........ sparta: * Fix for loop error for resize. Highly visible problem for docked forms/frames with Align=alClient. * New THookFrame class as new meta class for Frames. ........ updated lpl ........ git-svn-id: trunk@52728 -
107 lines
2.6 KiB
Plaintext
107 lines
2.6 KiB
Plaintext
object edtuMain: TedtuMain
|
|
Left = 0
|
|
Height = 22
|
|
Top = 0
|
|
Width = 641
|
|
ClientHeight = 22
|
|
ClientWidth = 641
|
|
TabOrder = 0
|
|
object pEDTU: TPanel
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 534
|
|
Height = 23
|
|
Top = -1
|
|
Width = 107
|
|
Anchors = [akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
ClientHeight = 23
|
|
ClientWidth = 107
|
|
TabOrder = 0
|
|
object sbShowPalette: TSpeedButton
|
|
AnchorSideLeft.Control = pEDTU
|
|
AnchorSideRight.Control = pEDTU
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pEDTU
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 84
|
|
Height = 22
|
|
Top = 1
|
|
Width = 23
|
|
Anchors = [akRight, akBottom]
|
|
OnClick = sbShowPaletteClick
|
|
end
|
|
end
|
|
object pSearch: TPanel
|
|
AnchorSideLeft.Control = pComponents
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = pEDTU
|
|
Left = 534
|
|
Height = 0
|
|
Top = 0
|
|
Width = 107
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 0
|
|
ClientWidth = 107
|
|
TabOrder = 1
|
|
object eFilter: TEditButton
|
|
AnchorSideLeft.Control = pSearch
|
|
AnchorSideTop.Control = pSearch
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = pSearch
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 3
|
|
Height = 23
|
|
Top = -11
|
|
Width = 104
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 3
|
|
ButtonWidth = 23
|
|
MaxLength = 0
|
|
NumGlyphs = 1
|
|
OnButtonClick = eFilterButtonClick
|
|
OnChange = eFilterChange
|
|
PasswordChar = #0
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object pComponents: TPanel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = pEDTU
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 22
|
|
Top = 0
|
|
Width = 534
|
|
Align = alCustom
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
Visible = False
|
|
end
|
|
object pInfo: TPanel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = pEDTU
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 22
|
|
Top = 0
|
|
Width = 534
|
|
Alignment = taLeftJustify
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 3
|
|
end
|
|
end
|