VPF::цвет шрифта в заблокированном Edit'e

s_a_s_h_a

Дата 13.4.2006, 11:14 (ссылка)

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

Загрузка ...

Опытный

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

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

Если установить свойство Edit1->Enabled = false, то цвет шрифта становится серым. А мне нужно, чтобы он был черным. Можно ли как-то это сделать? И как, если это возможно?

/*
Я пытался поменять в коде цвет
Edit1->Font->Color = clDefault;
или
Edit1->Font->Color = clWindowText;
не помогло.
*/

Snowy

Дата 13.4.2006, 11:25 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

В дельфи это будет так:

Код

procedure TForm1.FormPaint(Sender: TObject);
begin
  TextOut(GetDC(Edit1.Handle), 0, 0, PChar(Edit1.Text), Length(Edit1.Text));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Enabled := false;
  Application.ProcessMessages;
  Invalidate;
end;

Думаю, переделать под билдер будет несложно.
Тут буквально только . заменить на ->

Ctrl_Alt_Del

Дата 13.4.2006, 11:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


void __fastcall TForm1::FormPaint(TObject *Sender)
{
TextOut(GetDC(Edit1->Handle), 0, 0, Edit1->Text.c_str(), Edit1->Text.Length());
Application->ProcessMessages();
Invalidate();
}

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