[Wic_]

При добавление в конце кода

Code:

initialization
RegisterClasses([TsEditButton]);

получаем интересный эффект – при нажатии кнопки Загрузить EditButton размножается. Можно это как-то обойти?

[Wic_]

'Support' wrote:

TsEditButton объявлена в файле sCustomComboEdit.pas

Заранее прошу прощения если ошибка у меня возникает по моей неграмотности, но модуль sCustomComboEdit подключен, все равно возникает ошибка именно на FilenameEdit

Quote:

Class TsEditButton not found

Демо проект в приложении, листинг ниже (edt1 – TsEdit, edt2 – TsFilenameEdit). Подскажите что у меня не так?

Code:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sButton, Mask, sMaskEdit, sCustomComboEdit, sTooledit,
sEdit;

type
TForm1 = class(TForm)
edt1: TsEdit;
edt2: TsFilenameEdit;
btn1: TsButton;
btn2: TsButton;
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sPatch: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
sPatch := IncludeTrailingPathDelimiter(ExtractFileDir(paramstr(0)));
end;

procedure TForm1.btn1Click(Sender: TObject);
var
FileStream: TFileStream;
begin
try
FileStream := TFileStream.Create(sPatch + 'settings.sav', fmCreate);
FileStream.WriteComponent(edt1);
FileStream.WriteComponent(edt2);
finally
FileStream.Free;
end;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
FileStream: TFileStream;
begin
if FileExists(sPatch + 'settings.sav') then
begin
try
FileStream := TFileStream.Create(sPatch + 'settings.sav', fmOpenRead);
FileStream.ReadComponent(edt1);
FileStream.ReadComponent(edt2);
finally
FileStream.Free;
end;
end;
end;
end.

[Wic_]

Виноват, исправлюсь. Большое спасибо за подсказку.

[Wic_]

Вроде бы определяю, все равно получаю ошибку “Undeclared identifier: 'sclTopLeft'”

CODE

  edt1 := TsEdit.Create(Self);
   edt1.Name := 'edt1';
   edt1.Parent := grp1;
   edt1.Left := 110;
   edt1.Top := 335;
   edt1.Width := 121;
   edt1.Height := 21;
   edt1.TabOrder := 0;
   edt1.Text := 'Текст';
   edt1.SkinData.SkinSection := 'EDIT';
   edt1.BoundLabel.Active := True;
   edt1.BoundLabel.Caption := 'Надпись';
   edt1.BoundLabel.Indent := 2;
   edt1.BoundLabel.Layout := sclTopLeft; // ошибка
   edt1.BoundLabel.MaxWidth := 0;
   edt1.BoundLabel.UseSkinColor := True;

[Wic_]

Это вам спасибо. Буду ждать, так как ничего другого для ненавязчивого напоминания о неправильности данных я не придумал.

[Wic_]

Скажите а полупрозрачная окантовка вокруг формы – это какое-то свойство? Как его включить?

[Wic_]

Я новичок, пока на сайте не ориентируюсь. А где этот скин посмотреть можно? Есть ветка про дополнительные скины, но там только парочку найти можно, остальные ссылки не действуют.

[Wic_]

Здесь скомпилированный файл выложил на всякий случай, а то может правилами форума исходники не приветствуются или еще что… А то забыли про мой вопрос.

[Wic_]

Сначала не разобрался, что можно прикреплять файлы непосредственно к посту. Здесь исходники.

[Wic_]

Ставил и True и False – поведение компонента не изменилось. При потере фокуса цвет остается неизменным только тогда, когда курсор был на последней позиции.

CODE

procedure TfrmDannye.edtINNIPKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ProverkaINN(edtINNIP.text) = true then
    edtINNIP.Color := edtKrImya.Color
  else
    edtINNIP.Color := clRed;
end;

[Author]

Posts