Здравствуйте, -prus-, Вы писали:
P>Всем привет!
P>Подскажите плиз. Не знаю как спросить точно...
P>Если я в Adobe Illustrator'е нарисую компонент (визуальный прототип) и потом его сохраню в векторном виде, то из этого можно будет сделать интерактивный VCL компонент?
P>Раньше компоненты не создавал. Чего для этого подойдет — TComponent, TCustomControl? Подскажите с чего начать в данном случае.
Adobe Illustrator к созданию компонентов никакого отношения не имеет. Посмотрите
Создание компонентов в DelphiАвтор(ы): Михаил Голованов
Дата: 27.05.2003
В статье рассматриваются основные стадии построения компонентов Delphi на примере создания собственного controla-а.
. За 15 лет ничего принципиально не изменилось.
Здравствуйте, BlackEric, Вы писали:
BE>Adobe Illustrator к созданию компонентов никакого отношения не имеет.
Да, это понятно. Я имел ввиду, если, например, есть созданные в Illustrarot'e такие кнопки
, то можно это подтянуть в VCL и сделать кнопку там на основе таких, скажем, скинов из Illustrator'a?
Если да, то куда смотреть?
BE>Посмотрите Создание компонентов в DelphiАвтор(ы): Михаил Голованов
Дата: 27.05.2003
В статье рассматриваются основные стадии построения компонентов Delphi на примере создания собственного controla-а.
. За 15 лет ничего принципиально не изменилось.
Спасибо, изучу.
Здравствуйте, -prus-, Вы писали:
P>Здравствуйте, BlackEric, Вы писали:
BE>>Adobe Illustrator к созданию компонентов никакого отношения не имеет.
P>Да, это понятно. Я имел ввиду, если, например, есть созданные в Illustrarot'e такие кнопки , то можно это подтянуть в VCL и сделать кнопку там на основе таких, скажем, скинов из Illustrator'a?
Можете посмотреть исходники AplhaControls. Там были круглые кнопки. Или прсто их использовать у себя. Самое простое будет — загрузить вашу картинку в TImage и на основании этого сделать кнопку, отлавливая нажатие на картинке.
Или:
procedure TForm1.FormCreate(Sender: TObject);
var
button: TButton;
rgn : HWND;
begin
Form1.Color := clMaroon;
button := TBitBtn.Create(Owner);
button.Parent := Form1;
button.Left := 10;
button.Top := 10;
button.Caption := 'Круглая кнопка';
rgn := CreateEllipticRgn(0, 0, button.Width, button.Height);
SetWindowRgn(button.Handle, rgn, True);
button.OnClick := ButtonClick;
end;
А на эту кнопку добавить картинку. В сети полно примеров. Поищите.