VPF::Тест компонента - Форум программистов

mniip

Дата 31.3.2011, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 29.1.2010

Репутация: нет
Всего: нет

Придумал компонент, кнопку с другим видом.
При тестировании нашел скрипт:

Код


procedure TTestForm.FormCreate(Sender: TObject);
begin
btn:=TxeButton.Create(Self);
btn.Parent:=Self;
btn.Top:=100;
btn.Left:=100;
btn.Caption:='New view Button'
end;

Но в строке 4 пишет "Incompatible types: 'TWidgetControl' and 'TTestForm' "
Притом TWidgetControl вообще не существует!

cat512

Дата 31.3.2011, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: 7
Всего: 15

Если компилятор так пишет, значит свойство Parent у твоей кнопки, определёно как TWidgetControl.
Код компонента в студию!

mniip

Дата 31.3.2011, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 29.1.2010

Репутация: нет
Всего: нет

Кнопка вообще в процессе разработки, и Parent я не переопределял

Код


unit xebutton;
{Xenus Graphics Button Component}
interface

uses
  Windows, Messages, SysUtils, Classes, QControls, QStdCtrls;

type
  TxeStyle=(xsRect,xsRound,xsHexagon);
  //Main component;
  TxeButton = class(TButton)
  private
    FxeStyle:TxeStyle;
    procedure SetxeStyle(Value:TxeStyle);
  protected
    procedure Paint;
  public
   constructor Create(AOwner:TComponent);override;
  published
    property Style:TxeStyle read FxeStyle write SetxeStyle default xsHexagon;
  end;
//register main component
procedure Register;

implementation
constructor TxeButton.Create(AOwner:Tcomponent);
begin
  inherited Create(AOwner);
end;

procedure TxeButton.SetxeStyle(Value:TxeStyle);
begin
if FxeStyle<>Value then
begin
 FxeStyle:=Value;
end;
end;

procedure TxeButton.Paint;
begin

//Не буду вдаваться в подробности как он рисуется

end;
//======================
//==Register procedure==
//======================
procedure Register;
begin
  RegisterComponents('XeGraphics', [TxeButton]);
end;

end.

cat512

Дата 31.3.2011, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: 7
Всего: 15

Ну так "Васили-и-и-ч" smile

, кто-же в проект win32, добовляет clx(линуховые)-контролы? Потому-то и ругается на TWidgetControl. Модуля подключи родные - StdCtrls вместо линуховых QControls, QStdCtrls

Это сообщение отредактировал(а) cat512 - 31.3.2011, 22:04

CodeMonkey

Дата 31.3.2011, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Главное, что ничто не смущает...

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

northener

Дата 1.4.2011, 00:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(CodeMonkey @ 31.3.2011, 23:29

)

Главное, что ничто не смущает...

А что дОлжно смущать того, кто "придумал" компонент, для тестирования которого "нашел скрипт"?
smile

Это сообщение отредактировал(а) northener - 1.4.2011, 00:26

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

cat512

Дата 1.4.2011, 03:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: 7
Всего: 15

Цитата(northener @ 1.4.2011, 00:26)

Цитата(CodeMonkey @ 31.3.2011, 23:29

)

Главное, что ничто не смущает...

А что дОлжно смущать того, кто "придумал" компонент, для тестирования которого "нашел скрипт"?
smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »