paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-22 16:21:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed saving non loaded property

Browse Source 
git-svn-id: trunk@8643 -
This commit is contained in:
mattias 2006-01-28 14:42:12 +00:00
parent cdba5bcbeb
commit ee01d36329
5 changed files with 23 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/rtticontrols/README
View File

@ -42,3 +42,9 @@ or you can set ploReadOnIdle in TIEdit.Link.Options:
Then the RTTI control will call LoadFromProperty everytime the Application gets
idle.
BEWARE:
The on idle update will not load the property, if the control is focused.
You can use this:
// update focused control
GetPropertyLinkOfComponent(ActiveControl).LoadFromProperty;

13
components/rtticontrols/rttictrls.pas
View File

@ -76,7 +76,7 @@ type
TPropertyLinkOptions = set of TPropertyLinkOption;
Const
DefaultLinkOptions = [ploReadOnIdle,ploAutoSave];
DefaultLinkOptions = [ploReadOnIdle,ploAutoSave];
Type
@ -101,6 +101,7 @@ Type
FOnTestEditor: TPropertyEditorFilterFunc;
FOptions: TPropertyLinkOptions;
FOwner: TComponent;
FPropertyLoaded: boolean;
FSaveEnabled: boolean;
FTIElementName: string;
FTIObject: TPersistent;
@ -181,6 +182,7 @@ Type
property Options: TPropertyLinkOptions read FOptions write SetOptions default DefaultLinkOptions;
property Owner: TComponent read FOwner;
property SaveEnabled: boolean read FSaveEnabled write FSaveEnabled;
property PropertyLoaded: boolean read FPropertyLoaded write FPropertyLoaded;
property TIObject: TPersistent read FTIObject write SetTIObject;
property TIPropertyName: string read FTIPropertyName write SetTIPropertyName;
property TIElementName: string read FTIElementName write SetTIElementName;
@ -1648,6 +1650,7 @@ begin
then
raise Exception('TCustomPropertyLink.SetObjectAndProperty invalid identifier "'+NewPropertyName+'"');
if (NewPersistent<>TIObject) or (NewPropertyName<>TIPropertyName) then begin
FPropertyLoaded:=false;
if (FTIObject is TComponent) then begin
AComponent:=TComponent(FTIObject);
AComponent.RemoveFreeNotification(FLinkNotifier);
@ -1677,6 +1680,7 @@ var
OldEditorExisted: Boolean;
begin
if (FEditor<>nil) or (FTIObject=nil) or (FTIPropertyName='') then exit;
FPropertyLoaded:=false;
//debugln('TCustomPropertyLink.CreateEditor A ',FTIObject.ClassName+':'+FTIPropertyName);
OldEditorExisted:=FEditor<>nil;
CreateHook;
@ -1775,6 +1779,7 @@ end;
procedure TCustomPropertyLink.SaveToProperty;
begin
if Self=nil then exit;
if (not SaveEnabled) then exit;
if (Owner<>nil)
and ([csDesigning,csDestroying,csLoading]*Owner.ComponentState<>[]) then exit;
@ -1784,12 +1789,14 @@ end;
procedure TCustomPropertyLink.EditingDone;
begin
If ploAutoSave in Options then
if Self=nil then exit;
if (ploAutoSave in Options) and PropertyLoaded then
SaveToProperty;
end;
procedure TCustomPropertyLink.SetAsText(const NewText: string);
begin
if NewText='333' then DumpStack;
try
if (FTIElementName='') then
FEditor.SetValue(AliasValues.AliasToValue(NewText))
@ -2058,8 +2065,10 @@ end;
procedure TCustomPropertyLink.LoadFromProperty;
begin
if Self=nil then exit;
if (Owner<>nil) and (csDestroying in Owner.ComponentState) then exit;
CreateEditor;
FPropertyLoaded:=true;
if Assigned(OnLoadFromProperty) then OnLoadFromProperty(Self);
end;

3
lcl/include/application.inc
View File

@ -1511,7 +1511,8 @@ begin
if (Instance is TForm) then begin
AForm:=TForm(Instance);
if (FMainForm = nil) and not (AForm.FormStyle in [fsMDIChild, fsSplash]) then begin
if (FMainForm = nil) and not (AForm.FormStyle in [fsMDIChild, fsSplash])
then begin
FMainForm := AForm;
AForm.HandleNeeded;
end else begin

4
lcl/include/customcheckgroup.inc
View File

@ -39,8 +39,8 @@ begin
ChildSizing.ShrinkVertical:=crsScaleChilds;
ChildSizing.EnlargeHorizontal:=crsHomogenousChildResize;
ChildSizing.EnlargeVertical:=crsHomogenousChildResize;
ChildSizing.LeftRightSpacing:=5;
ChildSizing.TopBottomSpacing:=5;
ChildSizing.LeftRightSpacing:=6;
ChildSizing.TopBottomSpacing:=6;
SetInitialBounds(0,0,150,100);
end;

4
lcl/include/radiogroup.inc
View File

@ -49,8 +49,8 @@ begin
ChildSizing.ShrinkVertical:=crsScaleChilds;
ChildSizing.EnlargeHorizontal:=crsHomogenousChildResize;
ChildSizing.EnlargeVertical:=crsHomogenousChildResize;
ChildSizing.LeftRightSpacing:=5;
ChildSizing.TopBottomSpacing:=5;
ChildSizing.LeftRightSpacing:=6;
ChildSizing.TopBottomSpacing:=6;
SetInitialBounds(0,0,150,100);
TabStop := True;
end;