paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 05:01:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Clean up of CustomFormEditor.pp

Browse Source 
Shane

git-svn-id: trunk@169 -
This commit is contained in:
lazarus 2001-02-04 18:06:19 +00:00
parent 6ecb60e9b4
commit c93bdb1d05
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ide/customformeditor.pp
View File

@ -308,7 +308,6 @@ var
PT : PTypeData; PT : PTypeData;
PP : PPropList; PP : PPropList;
PI : PTypeInfo; PI : PTypeInfo;
Num : Integer;
Begin Begin
PI:=FControl.ClassInfo; PI:=FControl.ClassInfo;
PT:=GetTypeData(PI); PT:=GetTypeData(PI);
@ -327,7 +326,6 @@ var
PT : PTypeData; PT : PTypeData;
PP : PPropList; PP : PPropList;
PI : PTypeInfo; PI : PTypeInfo;
Num : Integer;
Begin Begin
PI:=FControl.ClassInfo; PI:=FControl.ClassInfo;
PT:=GetTypeData(PI); PT:=GetTypeData(PI);
@ -347,7 +345,6 @@ var
PT : PTypeData; PT : PTypeData;
PP : PPropList; PP : PPropList;
PI : PTypeInfo; PI : PTypeInfo;
Num : Integer;
Begin Begin
PI:=FControl.ClassInfo; PI:=FControl.ClassInfo;
PT:=GetTypeData(PI); PT:=GetTypeData(PI);
@ -367,7 +364,6 @@ var
PT : PTypeData; PT : PTypeData;
PP : PPropList; PP : PPropList;
PI : PTypeInfo; PI : PTypeInfo;
Num : Integer;
Begin Begin
PI:=FControl.ClassInfo; PI:=FControl.ClassInfo;
PT:=GetTypeData(PI); PT:=GetTypeData(PI);
@ -462,44 +458,48 @@ end;
Function TComponentInterface.GetControlCount: Integer; Function TComponentInterface.GetControlCount: Integer;
Begin Begin
// XXX Todo: // XXX Todo:
Result := -1;
end; end;
Function TComponentInterface.GetControl(Index : Integer): TIComponentInterface; Function TComponentInterface.GetControl(Index : Integer): TIComponentInterface;
Begin Begin
// XXX Todo: // XXX Todo:
Result := nil;
end; end;
Function TComponentInterface.GetComponentCount: Integer; Function TComponentInterface.GetComponentCount: Integer;
Begin Begin
// XXX Todo: // XXX Todo:
Result := -1;
end; end;
Function TComponentInterface.GetComponent(Index : Integer): TIComponentInterface; Function TComponentInterface.GetComponent(Index : Integer): TIComponentInterface;
Begin Begin
// XXX Todo: // XXX Todo:
Result := nil;
end; end;
Function TComponentInterface.Select : Boolean; Function TComponentInterface.Select : Boolean;
Begin Begin
// XXX Todo: // XXX Todo:
Result := False;
end; end;
Function TComponentInterface.Focus : Boolean; Function TComponentInterface.Focus : Boolean;
Begin Begin
// XXX Todo: Result := False;
if (FCOntrol is TWinControl) and (TWinControl(FControl).CanFocus) then if (FCOntrol is TWinControl) and (TWinControl(FControl).CanFocus) then
TWinControl(FControl).SetFocus; Begin
TWinControl(FControl).SetFocus;
Result := True;
end;
end; end;
Function TComponentInterface.Delete : Boolean; Function TComponentInterface.Delete : Boolean;
Begin Begin
Control.Destroy; Control.Destroy;
Destroy; Destroy;
Result := True;
end; end;
@ -515,8 +515,6 @@ begin
end; end;
destructor TCustomFormEditor.Destroy; destructor TCustomFormEditor.Destroy;
var
I : Integer;
begin begin
JITFormList.Destroy; JITFormList.Destroy;
FComponentInterfaceList.Free; FComponentInterfaceList.Free;
@ -598,8 +596,6 @@ Function TCustomFormEditor.CreateComponent(ParentCI : TIComponentInterface;
TypeClass : TComponentClass; X,Y,W,H : Integer): TIComponentInterface; TypeClass : TComponentClass; X,Y,W,H : Integer): TIComponentInterface;
Var Var
Temp : TComponentInterface; Temp : TComponentInterface;
TempInterface : TComponentInterface;
TempClass : TPersistentClass;
TempName : String; TempName : String;
Found : Boolean; Found : Boolean;
I, Num,NewFormIndex : Integer; I, Num,NewFormIndex : Integer;
@ -701,6 +697,7 @@ end;
Function TCustomFormEditor.GetFormComponent : TIComponentInterface; Function TCustomFormEditor.GetFormComponent : TIComponentInterface;
Begin Begin
//this can only be used IF you have one FormEditor per form. I currently don't //this can only be used IF you have one FormEditor per form. I currently don't
result := nil;
end; end;
Procedure TCustomFormEditor.ClearSelected; Procedure TCustomFormEditor.ClearSelected;