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

MG: fixed rubberband

Browse Source 
git-svn-id: trunk@1414 -
This commit is contained in:
lazarus 2002-02-09 02:30:38 +00:00
parent 11ed6eeaa1
commit 9fee6d8ff2
1 changed files with 37 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
designer/propedits.pp
View File

@ -678,11 +678,16 @@ type
UNDER CONSTRUCTION by Mattias}
TListPropertyEditor = class;
TListElementPropertyEditor = class(TPropertyEditor)
protected
TListElementPropertyEditor = class(TNestedPropertyEditor)
private
FIndex: integer;
FList: TListPropertyEditor;
public
constructor Create(Parent: TListPropertyEditor; AnIndex: integer);
destructor Destroy; override;
function GetAttributes: TPropertyAttributes; override;
property List: TListPropertyEditor read FList;
property TheIndex: integer read FIndex;
end;
{ TListPropertyEditor
@ -708,6 +713,7 @@ type
function CreateElementPropEditor(Index: integer): TListElementPropertyEditor; virtual;
procedure DoSaveElements; virtual;
procedure FreeElementPropertyEditors; virtual;
function GetElementAttributes(AnIndex: integer): TPropertyAttributes; virtual;
public
constructor Create(Hook:TPropertyEditorHook;
ComponentList: TComponentSelectionList; APropCount:Integer); override;
@ -2198,6 +2204,26 @@ begin
Result := Result + ']';
end;
{ TListElementPropertyEditor }
constructor TListElementPropertyEditor.Create(Parent: TListPropertyEditor;
AnIndex: integer);
begin
inherited Create(Parent);
FList:=Parent;
FIndex:=AnIndex;
end;
destructor TListElementPropertyEditor.Destroy;
begin
inherited Destroy;
end;
function TListElementPropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result:=List.GetElementAttributes(TheIndex);
end;
{ TListPropertyEditor }
function TListPropertyEditor.GetElementCount: integer;
@ -2277,8 +2303,7 @@ end;
function TListPropertyEditor.CreateElementPropEditor(Index: integer
): TListElementPropertyEditor;
begin
// ToDo
Result:=nil;// Result:=TListElementPropertyEditor.Create;
Result:=TListElementPropertyEditor.Create(Self,Index);
end;
procedure TListPropertyEditor.BeginSaveElement;
@ -2316,6 +2341,12 @@ begin
SavedPropertyEditors.Clear;
end;
function TListPropertyEditor.GetElementAttributes(AnIndex: integer
): TPropertyAttributes;
begin
Result:= [paReadOnly];
end;
function TListPropertyEditor.IsSaving: boolean;
begin
Result:=SaveElementLock>0;