paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:59:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

renamed noncontrolforms.pas to noncontroldesigner.pas

Browse Source 
git-svn-id: trunk@8335 -
This commit is contained in:
mattias 2005-12-18 11:03:18 +00:00
parent 6a7d9c6f45
commit 4f4f781869
4 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -468,7 +468,7 @@ designer/jitform/jitform.pas svneol=native#text/pascal
designer/jitforms.pp svneol=native#text/pascal
designer/menueditorform.pas svneol=native#text/pascal
designer/menupropedit.pp svneol=native#text/pascal
designer/noncontrolforms.pas svneol=native#text/pascal
designer/noncontroldesigner.pas svneol=native#text/pascal
designer/objinspext.pas svneol=native#text/pascal
designer/scalecompsdlg.pp svneol=native#text/pascal
designer/sizecompsdlg.pp svneol=native#text/pascal

2
designer/designer.pp
View File

@ -39,7 +39,7 @@ uses
Classes, SysUtils, Math, LCLProc, LCLType, LResources, LCLIntf, LMessages,
Forms, Controls, GraphType, Graphics, Dialogs, ExtCtrls, Menus, ClipBrd,
LazarusIDEStrConsts, EnvironmentOpts, KeyMapping, ComponentReg,
NonControlForms, AlignCompsDlg, SizeCompsDlg, ScaleCompsDlg, TabOrderDlg,
NonControlDesigner, AlignCompsDlg, SizeCompsDlg, ScaleCompsDlg, TabOrderDlg,
DesignerProcs, PropEdits, ComponentEditors, CustomFormEditor,
ControlSelection, ChangeClassDialog, EditorOptions;

10
designer/noncontrolforms.pas → designer/noncontroldesigner.pas
View File

@ -25,7 +25,7 @@
TNonControlForm is a designer form to design non TControl components like
TDataModule.
}
unit NonControlForms;
unit NonControlDesigner;
{$mode objfpc}{$H+}
@ -62,13 +62,13 @@ type
end;
function CompareNonControlForms(Data1, Data2: Pointer): integer;
function CompareLookupRootAndNonControlForm(Key, Data: Pointer): integer;
function CompareNonControlDesignerForms(Data1, Data2: Pointer): integer;
function CompareLookupRootAndNonControlDesignerForm(Key, Data: Pointer): integer;
implementation
function CompareNonControlForms(Data1, Data2: Pointer): integer;
function CompareNonControlDesignerForms(Data1, Data2: Pointer): integer;
var
Form1: TNonControlDesignerForm;
Form2: TNonControlDesignerForm;
@ -78,7 +78,7 @@ begin
Result:=PtrInt(Form1.LookupRoot)-PtrInt(Form2.LookupRoot);
end;
function CompareLookupRootAndNonControlForm(Key, Data: Pointer): integer;
function CompareLookupRootAndNonControlDesignerForm(Key, Data: Pointer): integer;
var
LookupRoot: TComponent;
Form: TNonControlDesignerForm;

9
ide/customformeditor.pp
View File

@ -45,8 +45,9 @@ uses
// components
PropEdits, ObjectInspector, IDECommands,
// IDE
LazarusIDEStrConsts, JITForms, NonControlForms, FormEditingIntf, ComponentReg,
IDEProcs, ComponentEditors, KeyMapping, EditorOptions, DesignerProcs;
LazarusIDEStrConsts, JITForms, NonControlDesigner, FormEditingIntf,
ComponentReg, IDEProcs, ComponentEditors, KeyMapping, EditorOptions,
DesignerProcs;
Const OrdinalTypes = [tkInteger,tkChar,tkENumeration,tkbool];
@ -752,7 +753,7 @@ constructor TCustomFormEditor.Create;
begin
inherited Create;
FComponentInterfaces := TAVLTree.Create(@CompareComponentInterfaces);
FNonControlForms:=TAVLTree.Create(@CompareNonControlForms);
FNonControlForms:=TAVLTree.Create(@CompareNonControlDesignerForms);
FSelection := TPersistentSelectionList.Create;
JITFormList := TJITForms.Create;
@ -1702,7 +1703,7 @@ function TCustomFormEditor.FindNonControlFormNode(LookupRoot: TComponent
): TAVLTreeNode;
begin
Result:=FNonControlForms.FindKey(Pointer(LookupRoot),
@CompareLookupRootAndNonControlForm);
@CompareLookupRootAndNonControlDesignerForm);
end;
procedure TCustomFormEditor.JITListPropertyNotFound(Sender: TObject;