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

MG: fixed destroying combobox

Browse Source 
git-svn-id: trunk@3268 -
This commit is contained in:
lazarus 2002-08-31 11:37:09 +00:00
parent 3ebde07e67
commit dd17214a28
4 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
designer/objectinspector.pp
View File

@ -486,13 +486,13 @@ var a:integer;
begin
FItemIndex:=-1;
for a:=0 to FRows.Count-1 do Rows[a].Free;
FRows.Free;
FComponentList.Free;
FValueFont.Free;
FNameFont.Free;
FExpandedProperties.Free;
FHintTimer.free;
FHintWindow.Free;
FreeAndNil(FRows);
FreeAndNil(FComponentList);
FreeAndNil(FValueFont);
FreeAndNil(FNameFont);
FreeAndNil(FExpandedProperties);
FreeAndNil(FHintTimer);
FreeAndNil(FHintWindow);
inherited Destroy;
end;

2
lcl/forms.pp
View File

@ -185,7 +185,7 @@ type
FClientHandle: HWND;
public
constructor Create(AOwner: TComponent); override;
destructor destroy; override;
destructor Destroy; override;
property ClientHandle: HWND read FClientHandle;
published
property ActiveCOntrol;

6
lcl/include/customcombobox.inc
View File

@ -50,6 +50,7 @@ end;
procedure TCustomComboBox.DestroyHandle;
var NewStrings : TStrings;
begin
//writeln('TCustomComboBox.DestroyHandle ',Name);
// create an internal list for storing items internally
NewStrings:= TStringList.Create;
// copy from interface based list
@ -61,6 +62,7 @@ begin
// and use the internal list
FItems:= NewStrings;
//writeln('TCustomComboBox.DestroyHandle B ',Name);
inherited DestroyHandle;
end;
@ -545,7 +547,11 @@ end;
{
$Log$
Revision 1.12 2002/08/31 11:37:09 lazarus
MG: fixed destroying combobox
Revision 1.11 2002/08/30 06:46:03 lazarus
Use comboboxes. Use history. Prettify the dialog. Preselect text on show.
Make the findreplace a dialog. Thus removing resiying code (handled by Anchors now anyway).
Make Anchors work again and publish them for various controls.

9
lcl/include/customform.inc
View File

@ -95,7 +95,7 @@ end;
------------------------------------------------------------------------------}
destructor TCustomForm.Destroy;
begin
//writeln('[TCustomForm.Destroy] A ',Name,':',ClassName);
//writeln('[TCustomForm.Destroy] A ',Name,':',ClassName);
Assert(False, Format('Trace: [TCustomForm.Destroy] %s', [ClassName]));
FMenu.Free;
FMenu:=nil;
@ -103,9 +103,9 @@ begin
FCanvas:=nil;
FIcon.Free;
FIcon:=nil;
//writeln('[TCustomForm.Destroy] B ',Name,':',ClassName);
//writeln('[TCustomForm.Destroy] B ',Name,':',ClassName);
inherited Destroy;
//writeln('[TCustomForm.Destroy] END ',Name,':',ClassName);
//writeln('[TCustomForm.Destroy] END ',Name,':',ClassName);
end;
{------------------------------------------------------------------------------
@ -1025,6 +1025,9 @@ end;
{ =============================================================================
$Log$
Revision 1.53 2002/08/31 11:37:09 lazarus
MG: fixed destroying combobox
Revision 1.52 2002/08/30 12:32:20 lazarus
MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...