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

generator

Дата 16.7.2005, 11:23 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем здрасте!

Кто-нибудь встречался с такой проблемой:

Создается компонент, который представляет собой IP Address Control. После установки и переноса этого компонента на форму и выбора в меню File > New Application весь шрифт Delphi становится больше и "жирнее". Даже если компонент только прорисовывает этот контрол.

Из-за чего это может быть и как это можно исправить?

Код компонента, написанного по материалам MSDN:

Код


unit IPAddressControl;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, CommCtrl;

type
  TIPAddressControl = class(TWinControl)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TIPAddressControl]);
end;

{ TIPAddressControl }

constructor TIPAddressControl.Create(AOwner: TComponent);
begin
  inherited Create(Aowner);
end;

procedure TIPAddressControl.CreateParams(var Params: TCreateParams);
var
  ICC: TInitCommonControlsEx;
begin
  with ICC do
  begin
    dwSize := SizeOf(TInitCommonControlsEx);
    dwICC := ICC_INTERNET_CLASSES;
  end;
  InitCommonControlsEx(ICC);
  inherited CreateParams(Params);
  CreateSubClass(Params, WC_IPADDRESS);
  with Params do
  begin
    Style := wS_CHILD;
  end;
end;
end.

Alex

Дата 17.7.2005, 07:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

http://vingrad.ru/DELPHI-DLP-002563

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

generator

Дата 18.7.2005, 17:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Alex

То, что написано в FAQ я читал еще до попытки создания компонента. Просто хотелось
разобраться в чем здесь может быть проблема.

Сегодня попробовал этот компонент на Delphi 2005 - точно такой же эффект. Может быть дело в Windows, а не в Delphi?

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