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

cody: fixed deleting diagram item

Browse Source 
git-svn-id: trunk@40060 -
This commit is contained in:
mattias 2013-01-30 14:51:25 +00:00
parent 1158e7e27a
commit b25736005c
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/codetools/ide/codyctrls.pas
View File

@ -65,6 +65,7 @@ type
procedure SetSize(AValue: single);
procedure UpdateLayout;
public
Data: Pointer; // free to use by user
constructor Create(TheCategory: TCircleDiagramCategory);
destructor Destroy; override;
property Category: TCircleDiagramCategory read FCategory;
@ -83,7 +84,7 @@ type
FDiagram: TCustomCircleDiagramControl;
FEndDegree16: single;
FMinSize: single;
fItems: TObjectList; // list of TCircleDiagramItem
fItems: TFPList; // list of TCircleDiagramItem
FSize: single;
FStartDegree16: single;
function GetItems(Index: integer): TCircleDiagramItem;
@ -94,8 +95,10 @@ type
procedure Invalidate;
procedure InternalRemoveItem(Item: TCircleDiagramItem);
public
Data: Pointer; // free to use by user
constructor Create(TheDiagram: TCustomCircleDiagramControl);
destructor Destroy; override;
procedure Clear;
function InsertItem(Index: integer; aCaption: string): TCircleDiagramItem;
function AddItem(aCaption: string): TCircleDiagramItem;
property Diagram: TCustomCircleDiagramControl read FDiagram;
@ -356,6 +359,7 @@ procedure TCustomCircleDiagramControl.DoSetBounds(ALeft, ATop, AWidth,
AHeight: integer);
begin
inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
UpdateLayout;
UpdateScrollBar;
end;
@ -514,6 +518,7 @@ begin
end;
end;
Invalidate;
WriteDebugReport('TCustomCircleDiagramControl.UpdateLayout');
end;
@ -629,6 +634,7 @@ end;
procedure TCircleDiagramCategory.InternalRemoveItem(Item: TCircleDiagramItem);
begin
Item.FCategory:=nil;
fItems.Remove(Item);
UpdateLayout;
end;
@ -637,7 +643,7 @@ constructor TCircleDiagramCategory.Create(
TheDiagram: TCustomCircleDiagramControl);
begin
FDiagram:=TheDiagram;
fItems:=TObjectList.Create(true);
fItems:=TFPList.Create;
FMinSize:=DefaultCategoryMinSize;
end;
@ -645,10 +651,25 @@ destructor TCircleDiagramCategory.Destroy;
begin
if Diagram<>nil then
Diagram.InternalRemoveCategory(Self);
Clear;
FreeAndNil(fItems);
inherited Destroy;
end;
procedure TCircleDiagramCategory.Clear;
begin
if Count=0 then exit;
if Diagram<>nil then
Diagram.BeginUpdate;
try
while Count>0 do
Items[Count-1].Free;
finally
if Diagram<>nil then
Diagram.EndUpdate;
end;
end;
function TCircleDiagramCategory.InsertItem(Index: integer; aCaption: string
): TCircleDiagramItem;
begin