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

fixed TArrow streaming

Browse Source 
git-svn-id: trunk@4153 -
This commit is contained in:
mattias 2003-05-14 10:19:06 +00:00
parent 68208c499e
commit 9cddc2792a
2 changed files with 24 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/objectinspector.pp
View File

@ -2252,7 +2252,6 @@ begin
//,' ',FPropertyEditorHook<>nil,' ',FPropertyEditorHook.LookupRoot<>nil);
if FUpdatingAvailComboBox then exit;
FUpdatingAvailComboBox:=true;
NewList:=TStringList.Create;
try
if (FPropertyEditorHook<>nil)
@ -2263,7 +2262,9 @@ begin
for a:=0 to Root.ComponentCount-1 do
AddComponentToList(Root.Components[a],NewList);
end;
if AvailCompsComboBox.Items.Equals(NewList) then exit;
AvailCompsComboBox.Items.BeginUpdate;
if AvailCompsComboBox.Items.Count=1 then
OldText:=AvailCompsComboBox.Text
@ -2271,7 +2272,6 @@ begin
OldText:='';
AvailCompsComboBox.Items.Assign(NewList);
AvailCompsComboBox.Items.EndUpdate;
FUpdatingAvailComboBox:=false;
a:=AvailCompsComboBox.Items.IndexOf(OldText);
if (OldText='') or (a<0) then
SetAvailComboBoxText
@ -2280,6 +2280,7 @@ begin
finally
NewList.Free;
FUpdatingAvailComboBox:=false;
end;
end;

28
lcl/arrow.pp
View File

@ -60,7 +60,8 @@ Type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Loaded; override;
procedure InitializeWnd; override;
published
Property ArrowType : TArrowType read GetArrowType write SetArrowType;
property ShadowType : TShadowType read fShadowType write SetShadowType;
@ -97,6 +98,18 @@ begin
inherited;
end;
procedure TArrow.Loaded;
begin
inherited Loaded;
SetProps;
end;
procedure TArrow.InitializeWnd;
begin
inherited InitializeWnd;
SetProps;
end;
function TArrow.GetArrowType: TArrowType;
begin
Result := FArrowType;
@ -117,13 +130,12 @@ procedure TArrow.SetProps;
var
Temp : TLMArrow;
begin
if HandleAllocated then
begin
Temp.ArrowType := FArrowType;
Temp.ShadowType := FShadowType;
CNSendMessage(LM_SetValue,self,@Temp);
end;
if HandleAllocated and (not (csLoading in ComponentState)) then
begin
Temp.ArrowType := FArrowType;
Temp.ShadowType := FShadowType;
CNSendMessage(LM_SetValue,self,@Temp);
end;
end;
procedure TArrow.SetShadowType(const AValue: TShadowType);