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

fixed collecting values

Browse Source 
git-svn-id: trunk@6446 -
This commit is contained in:
mattias 2005-01-01 11:59:58 +00:00
parent 6664fdebb4
commit 2df9ef7b90
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/rtticontrols/rttictrls.pas
View File

@ -1579,8 +1579,8 @@ begin
raise Exception.Create('Unable to create property editor for '
+FTIObject.ClassName+':'+FTIPropertyName);
end;}
if FTIElementName<>'' then
//debugln('TCustomPropertyLink.CreateEditor C ',FTIObject.ClassName+':'+FTIPropertyName,' ',dbgs(FCollectValues));
if CollectValues then FetchValues;
if ((FEditor<>nil) or OldEditorExisted) and Assigned(OnEditorChanged) then
OnEditorChanged(Self);
@ -1589,6 +1589,7 @@ end;
procedure TCustomPropertyLink.FetchValues;
begin
FreeThenNil(FCollectedValues);
//debugln('TCustomPropertyLink.FetchValues A ',dbgsName(Editor));
if Editor<>nil then
Editor.GetValues(@GetEditorValues);
end;

10
lcl/include/customnotebook.inc
View File

@ -410,10 +410,11 @@ end;
procedure TCustomNotebook.SetPageIndex(AValue: Integer);
begin
if (csLoading in ComponentState) then FLoadedPageIndex:=AValue;
//debugln('TCustomNotebook.SetPageIndex A AValue=',dbgs(AValue),' fPageIndex=',dbgs(fPageIndex),' PageCount=',dbgs(PageCount),' HandleAllocated=',dbgs(HandleAllocated));
//debugln('TCustomNotebook.SetPageIndex A ',dbgsName(Self),' AValue=',dbgs(AValue),' fPageIndex=',dbgs(fPageIndex),' PageCount=',dbgs(PageCount),' HandleAllocated=',dbgs(HandleAllocated));
if (AValue < 0) or (AValue >= PageCount) then exit;
if fPageIndex = AValue then exit;
if not CanChangePageIndex then exit;
//debugln('TCustomNotebook.SetPageIndex B ',dbgsName(Self),' AValue=',dbgs(AValue),' fPageIndex=',dbgs(fPageIndex),' PageCount=',dbgs(PageCount),' HandleAllocated=',dbgs(HandleAllocated));
fPageIndex := AValue;
UpdateAllDesignerFlags;
DoSendPageIndex;
@ -740,12 +741,12 @@ begin
//DebugLn('[TCustomNotebook.DoSendPageIndex] A ',Name,' PageIndex=',dbgs(fPageIndex),' ',dbgs(csLoading in ComponentState),' ',dbgs(HandleAllocated));
if not HandleAllocated or (csLoading in ComponentState) then exit;
{$IFDEF NOTEBOOK_DEBUG}
DebugLn('[TCustomNotebook.DoSendPageIndex] A ',Name,' PageIndex=',dbgs(fPageIndex));
//DebugLn('[TCustomNotebook.DoSendPageIndex] B ',Name,' PageIndex=',dbgs(fPageIndex));
{$ENDIF}
ShowCurrentPage;
TWSCustomNotebookClass(WidgetSetClass).SetPageIndex(Self, FPageIndex);
{$IFDEF NOTEBOOK_DEBUG}
DebugLn('[TCustomNotebook.DoSendPageIndex] B');
//DebugLn('[TCustomNotebook.DoSendPageIndex] END ',dbgs(FPageIndex));
{$ENDIF}
end;
@ -777,6 +778,9 @@ end;
{ =============================================================================
$Log$
Revision 1.67 2005/01/01 11:59:58 mattias
fixed collecting values
Revision 1.66 2004/10/23 14:49:38 micha
optimize: only create tabpage contents when accessed, not immediately upon creation