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

added filename property editor for property storage

Browse Source 
git-svn-id: trunk@6594 -
This commit is contained in:
mattias 2005-01-14 19:08:47 +00:00
parent 40cdceb92d
commit 17dc0edda7
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ideintf/propedits.pp
View File

@ -39,12 +39,19 @@ unit PropEdits;
interface
{$IFNDEF VER1_0}
{$DEFINE EnableSessionProps}
{$ENDIF}
{$DEFINE NewListPropEdit}
uses
Classes, TypInfo, SysUtils, LCLProc, Forms, Controls, GraphType, Graphics,
StdCtrls, Buttons, ComCtrls, Menus, LCLType, ExtCtrls, LCLIntf, Dialogs,
Grids, EditBtn, TextTools, ColumnDlg, ObjInspStrConsts;
Grids, EditBtn,
{$IFDEF EnableSessionProps}
PropertyStorage,
{$ENDIF}
TextTools, ColumnDlg, ObjInspStrConsts;
const
MaxIdentLength: Byte = 63;
@ -6175,6 +6182,10 @@ begin
TFileDialog, 'Filter', TFileDlgFilterProperty);
RegisterPropertyEditor(DummyClassForPropTypes.PTypeInfos('AnsiString'),
TFileNameEdit, 'Filter', TFileDlgFilterProperty);
{$IFDEF EnableSessionProps}
RegisterPropertyEditor(DummyClassForPropTypes.PTypeInfos('AnsiString'),
TCustomPropertyStorage, 'Filename', TFileNamePropertyEditor);
{$ENDIF}
end;
procedure FinalPropEdits;

2
lcl/xmlpropstorage.pas
View File

@ -90,11 +90,13 @@ begin
If (FXML=Nil) then
FXML:=TPropStorageXMLConfig.Create(GetXMLFileName);
Inc(FCount);
//debugln('TCustomXMLPropStorage.StorageNeeded ',dbgsname(FXML),' ',dbgs(FXML),' FCount=',dbgs(FCount));
end;
procedure TCustomXMLPropStorage.FreeStorage;
begin
Dec(FCount);
//debugln('TCustomXMLPropStorage.FreeStorage ',dbgsname(FXML),' ',dbgs(FXML),' FCount=',dbgs(FCount));
If (FCount<=0) then
begin
FCount:=0;