Поиск сообщества

Создаю свой компонент с визуализацией Label в Edit, см. рис. При компиляции появляется еще одни Label. А при отрисовке формы нельзя скопировать готовый компнонент - выдает ошибку. Подскажите, как избавиться от дубликата. t type TShowLabel = (Show, Hide); TEditVisualLabel = class(TEdit) private TextLabel : TLabel; FloatVErt : TFloatAnimation; FloatSize : TFloatAnimation; FloatColor : TColorAnimation; FLabCAp : string; function GetSHow: TShowLabel; Procedure SetShow(Value : TShowLabel); function GetLabelCaption: string; Procedure SetLabelCaption(Value : string); function GetLabelFontColor: TAlphaColor; Procedure SetLabelFontColor(Value : TAlphaColor); function GetStopValue : Single; procedure SetStopValue(Value : Single); function GetStartValue: Single; procedure SetStartValue(Value : Single); function GetStopFont: Single; procedure SetStopFont(Value : Single); function GetStartFont: Single; procedure SetStartFont(Value : Single); { Private declarations } protected procedure Enter(Sender : TObject); procedure Exi(Sender : TObject); { Protected declarations } public { Public declarations } published property LabelFontColor : TAlphaColor read GetLabelFontColor write SetLabelFontColor; property LabelCaption: string read GetLabelCaption write SetLabelCaption; property LabelPositionStop : Single read GetStopValue write SetStopValue; property LabelPositionStart : Single read GetStartValue write SetStartValue; property LabelSizeStopFont : Single read GetStopFont write SetStopFont; property LabelSizeStartFont: Single read GetStartFont write SetStartFont; property LabelVisible : TShowLabel read GetSHow write SetSHow default TShowLabel(1); constructor Create(aowner: TComponent);override; { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TEditVisualLabel]); end; constructor TEditVisualLabel.Create(aowner: TComponent); var Del: TLabel; Family,Style,FontColor : TStyledSetting; begin inherited Create(AOwner); TextLabel := TLabel.create(Self); TextLabel.Parent := self; // Скорее всего, что именно здесь весь затык, почему оно выполняется дважды TextLabel.StyledSettings := [Family]; TextLabel.Align := TAlignLayout(2); TextLabel.TextSettings.FontColor := TAlphaColorRec.Silver; TextLabel.TextSettings.Font.Size := 14; TextLabel.SetSubComponent(true); FloatVErt := TFloatAnimation.Create(TextLabel); FloatVErt.Parent := TextLabel; FloatVErt.PropertyName := 'Position.Y'; FloatVErt.StopValue := -20; FloatVErt.StartValue := 0; FloatSize := TFloatAnimation.Create(TextLabel); FloatSize.Parent := TextLabel; FloatSize.PropertyName := 'TextSettings.Font.Size'; FloatSize.StopValue := 11; FloatSize.StartValue := 14; FloatColor := TColorAnimation.Create(TextLabel); FloatColor.Parent := TextLabel; FloatColor.PropertyName := 'TextSettings.FontColor'; FloatColor.StartValue := TAlphaColorRec.Silver; LabelFontColor := TAlphaColorRec.Black; LabelVisible := TShowLabel(0); TextLabel.Align := TAlignLayout(2); //TextLabel.Width := 5000; //FloatColor.StopValue := LabelFontColor; OnExit := Exi; OnEnter := Enter; end; procedure TEditVisualLabel.Enter(Sender : TObject); begin inherited; if TextLabel.Position.Y<>FloatVErt.StopValue then begin FloatVErt.Inverse := false; FloatVErt.Start; FloatSize.Inverse := false; FloatSize.Start; FloatColor.Inverse := false; FloatColor.Start end; end; procedure TEditVisualLabel.Exi(Sender: TObject); begin inherited; if (Self.Text='') and (TextLabel.Position.Y<>0) then begin FloatVErt.Inverse := true; FloatVErt.Start; FloatSize.Inverse := true; FloatSize.Start; FloatColor.Inverse := true; FloatColor.Start end; end; function TEditVisualLabel.GetLabelCaption: string; begin result := TextLabel.Text; end; function TEditVisualLabel.GetLabelFontColor: TAlphaColor; begin Result := FloatColor.StopValue; end; function TEditVisualLabel.GetSHow: TShowLabel; begin if TextLabel.Visible then Result := TShowLabel(0) else Result := TShowLabel(1); end; function TEditVisualLabel.GetStartFont: Single; begin Result := FloatSize.StartValue; end; function TEditVisualLabel.GetStartValue: Single; begin Result := FloatVErt.StartValue; end; function TEditVisualLabel.GetStopFont: Single; begin Result := FloatSize.StopValue; end; function TEditVisualLabel.GetStopValue: Single; begin Result := FloatVErt.StopValue; end; procedure TEditVisualLabel.SetLabelCaption(Value: string); begin TextLabel.Text := Value; end; procedure TEditVisualLabel.SetLabelFontColor(Value: TAlphaColor); begin FloatColor.StopValue :=value; end; procedure TEditVisualLabel.SetShow(Value: TShowLabel); begin if Value = TShowLabel(0) then TextLabel.Visible := true else TextLabel.Visible := False; end; procedure TEditVisualLabel.SetStartFont(Value: Single); begin FloatSize.StartValue := Value; TextLabel.TextSettings.Font.Size := Value; end; procedure TEditVisualLabel.SetStartValue(Value: Single); begin FloatVert.StartValue := Value; end; procedure TEditVisualLabel.SetStopFont(Value: Single); begin FloatSize.StopValue := Value; end; procedure TEditVisualLabel.SetStopValue(Value: Single); begin FloatVert.StopValue := Value; end; end.

Я создал данную тему чтобы выяснить наличие спроса на кастомные FMX компоненты. При наличии спроса будут появляться новые FMX компоненты. TEsImageSelection Начну с компонента позволяющего выделать часть изображения или фотографии, может быть полезно для создания аватарки в вашем приложении, графических редакторах, и подобном. Предусмотрен режим контроля границ, пропорционального выделения - к примеру для квадратной\круглой аватараки. Интересно наличие спроса на данный компонент за цену в $8? (+вы получаете поддержку и новые версии в течении года)