Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


Имеется примерный код. Вывод описания компонента в лейбл. При выставлении компоненту флага fixed ему в описании прибавляется текст "Временно недоступно", который нигде не прописан. Как этот текст убрать? Во всем этом я профан, пытался прогуглить - не нашел

Код: Выделить весь код
[Components]
Name: "name"; Description: "Фывфыв:"; Types: full; Flags: fixed

[Код]
Var 
BoxForDescription: TListBox
DescriptionLabel : TLabel

Procedure Descriptions(Sender: TObject; Index: Integer; var DescriptionLabel: TLabel);
var
 Description: String;
begin
 case TNewCheckListBox(Sender).Tag of
  WizardForm.ComponentsList.Tag:
   case WizardForm.ComponentsList.ItemCaption[Index] of
    'Фывфыв:': Description := 'описание.';
     end;  
 end;
DescriptionLabel.Caption := Description;
end;

Procedure CreateObjects();

begin
 
BoxForDescription := TListBox.Create(WizardForm);
 with BoxForDescription do
 begin
  Parent := WizardForm;
  SetBounds(ScaleX(BoxForImage.Left), ScaleY(BoxForImage.Top + BoxForImage.Height + 2), ScaleX(BoxForImage.Width - 2), ScaleY(93));
  DescriptionLabel := TLabel.Create(BoxForDescription);
  with DescriptionLabel do
  begin
   Parent := BoxForDescription;
   SetBounds(ScaleX(3), ScaleY(1), ScaleX(BoxForDescription.Width - 7), ScaleY(BoxForDescription.Height - 2));
   AutoSize := False;
   WordWrap := True;
   Caption := 'Наведите на компонент в списке, чтобы увидеть его описание';
   Font.Color := clWhite;
   Font.Size := 9;
  end;
 end;

Отправлено: 15:43, 22-04-2016 | #1519