VPF::Проблема с DrawItem - Форум программистов

devmstr

Дата 18.9.2004, 22:13 (ссылка)

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

Загрузка ...

Developer

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

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

Почему данный код не выводит текст.

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
Var
s:string;
begin
s:='Hello World';
DrawText(ListBox1.Canvas.Handle,PChar(s),length(s),Rect,DT_CENTER or DT_WORDBREAK);
end;

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

Think different ©Steve Jobs
user posted image

Pakshin A. S.

Дата 18.9.2004, 22:17 (ссылка)

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

Загрузка ...

Эксперт

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

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

А такое не подойдет?

Код


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
Var
    s:string;
begin
    s:='Hello World';
    with (Control As TListBox).Canvas do
     begin
      FillRect(rect);
      TextOut(Rect.Left, Rect.Top, s);
     end;
end;

Это сообщение отредактировал(а) Pakshin A. S. - 18.9.2004, 22:22

Pakshin A. S.

Дата 18.9.2004, 22:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

А вот и с DrawText

Код


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
Var
    s:string;
begin
    s:='Hello World';
    DrawText((Control as TlistBox).Canvas.Handle,PChar(s),length(s),Rect,DT_CENTER or DT_WORDBREAK);
    OffsetRect(rect, rect.right div 2,  rect.buttom div 2);
    DrawText((Control as TlistBox).Canvas.Handle,PChar(s),length(s),Rect,DT_CENTER or DT_WORDBREAK);
end;

Взято из компонента. Может сработает...

А может и так сработает

Код


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
Var
    s:string;
begin
    s:='Hello World';
    DrawText((Control as TListBox).Canvas.Handle,PChar(s),length(s),Rect,DT_CENTER or DT_WORDBREAK);
end;

Это сообщение отредактировал(а) Pakshin A. S. - 18.9.2004, 22:33

devmstr

Дата 19.9.2004, 09:12 (ссылка)

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

Загрузка ...

Developer

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

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

Спасибо. Все рботает

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

Pakshin A. S.

Дата 19.9.2004, 13:27 (ссылка)

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

Загрузка ...

Эксперт

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

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

magician

Обращайся...

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