
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
24.10.2007, 13:58:10
|
|||
|---|---|---|---|
|
|||
Из делфи в С++ |
|||
|
#18+
Помогите, пожалуйста перевести данный кусок кода из Object Pascal в С++. procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin with ListView1.Canvas.Brush do begin case Item.Index of 0: Color := clYellow; 1: Color := clGreen; 2: Color := clRed; end; end; end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
24.10.2007, 14:23:39
|
|||
|---|---|---|---|
Из делфи в С++ |
|||
|
#18+
Заголовок обработчика стандартрный а дальше: { switch (Item->Index) { case 0: ListView1->Canvas->Brush->Color=clYellow; break; case 1: ListView1->Canvas->Brush->Color=clGreen; break; case 2: ListView1->Canvas->Brush->Color=clRed; break; } } ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=57&mobile=1&tid=2027953]: |
0ms |
get settings: |
6ms |
get forum list: |
14ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
160ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
29ms |
get tp. blocked users: |
1ms |
| others: | 191ms |
| total: | 414ms |

| 0 / 0 |
