paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-14 06:32:03 +01:00
Code Issues Packages Projects Releases Wiki Activity

added TCustomPropertyLink.EditingDone

Browse Source 
git-svn-id: trunk@6077 -
This commit is contained in:
mattias 2004-09-27 10:25:08 +00:00
parent 6ce2f93ba8
commit 19cd43bf63
1 changed files with 19 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
components/rtticontrols/rttictrls.pas
View File

@ -130,6 +130,7 @@ Type
procedure FetchValues; virtual; procedure FetchValues; virtual;
procedure LoadFromProperty; virtual; procedure LoadFromProperty; virtual;
procedure SaveToProperty; virtual; procedure SaveToProperty; virtual;
procedure EditingDone; virtual;
procedure SetAsText(const NewText: string); procedure SetAsText(const NewText: string);
function GetAsText: string; function GetAsText: string;
procedure SetAsInt(const NewInt: integer); procedure SetAsInt(const NewInt: integer);
@ -1504,6 +1505,12 @@ begin
if Assigned(OnSaveToProperty) then OnSaveToProperty(Self); if Assigned(OnSaveToProperty) then OnSaveToProperty(Self);
end; end;
procedure TCustomPropertyLink.EditingDone;
begin
If ploAutoSave in Options then
SaveToProperty;
end;
procedure TCustomPropertyLink.SetAsText(const NewText: string); procedure TCustomPropertyLink.SetAsText(const NewText: string);
begin begin
try try
@ -1951,8 +1958,7 @@ end;
procedure TTICustomEdit.EditingDone; procedure TTICustomEdit.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.OPtions then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomComboBox } { TTICustomComboBox }
@ -2086,8 +2092,7 @@ end;
procedure TTICustomComboBox.EditingDone; procedure TTICustomComboBox.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.OPtions then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomCheckBox } { TTICustomCheckBox }
@ -2188,8 +2193,7 @@ end;
procedure TTICustomCheckBox.EditingDone; procedure TTICustomCheckBox.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.options then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomLabel } { TTICustomLabel }
@ -2330,8 +2334,7 @@ end;
procedure TTICustomRadioGroup.EditingDone; procedure TTICustomRadioGroup.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.options then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomCheckGroup } { TTICustomCheckGroup }
@ -2399,8 +2402,7 @@ end;
procedure TTICustomCheckGroup.EditingDone; procedure TTICustomCheckGroup.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.options then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomMemo } { TTICustomMemo }
@ -2484,8 +2486,7 @@ end;
procedure TTICustomMemo.EditingDone; procedure TTICustomMemo.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.options then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomCalendar } { TTICustomCalendar }
@ -2551,8 +2552,7 @@ end;
procedure TTICustomCalendar.EditingDone; procedure TTICustomCalendar.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.options then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomSpinEdit } { TTICustomSpinEdit }
@ -2680,8 +2680,7 @@ end;
procedure TTICustomSpinEdit.EditingDone; procedure TTICustomSpinEdit.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.options then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomImage } { TTICustomImage }
@ -2847,8 +2846,7 @@ end;
procedure TTICustomTrackBar.EditingDone; procedure TTICustomTrackBar.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.options then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomMaskEdit } { TTICustomMaskEdit }
@ -2901,8 +2899,7 @@ end;
procedure TTICustomMaskEdit.EditingDone; procedure TTICustomMaskEdit.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.OPtions then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomButton } { TTICustomButton }
@ -3005,8 +3002,7 @@ end;
procedure TTICustomCheckListBox.EditingDone; procedure TTICustomCheckListBox.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.options then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TTICustomListBox } { TTICustomListBox }
@ -3127,8 +3123,7 @@ end;
procedure TTICustomListBox.EditingDone; procedure TTICustomListBox.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
If ploAutoSave in FLink.options then FLink.EditingDone;
FLink.SaveToProperty;
end; end;
{ TPropertyLinkNotifier } { TPropertyLinkNotifier }