Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.01.2015, 13:37
Onic777 Onic777 вне форума
Прохожий
 
Регистрация: 01.01.2015
Сообщения: 5
Версия Delphi: Borland CPPB 6
Репутация: 10
Смущение Проблемы с рисованием на форме

Привет Знатокам!

Имеется форма, условно называемая WCV. На нее положена панель Panel1. На панель положен Image1.
На панель выводится видео с Веб камеры:
Код:
void __fastcall TWCV::OpenVideo(void)
{
    hWndC = capCreateCaptureWindowA("My Own Capture Window",
                                   WS_CHILD | WS_VISIBLE,
                                   WCV->Panel1->Left,
                                   WCV->Panel1->Top,
                                   WCV->Panel1->Width,
                                   WCV->Panel1->Height,
                                   WCV->Panel1->Handle,
                                   0);
    if (hWndC!=0)
    {
        capDriverConnect    (hWndC,DeviceIndex);
        capPreviewScale     (hWndC, -1);
        capPreviewRate      (hWndC,0x42);
        capPreview          (hWndC,-1);
        SetWindowPos        (hWndC,
                            HWND_BOTTOM,
                            WCV->Panel1->Left,
                            WCV->Panel1->Top,
                            WCV->Panel1->Width,
                            WCV->Panel1->Height,
                            SWP_SHOWWINDOW);
    }
}

Любые попытки нарисовать на Image1, например, рамку определенного размера ни к чему не приводят - ее не видно!

Код:
void __fastcall TWCV::ConturDraw(int X, int Y)
{
    Image1->Transparent = true;
    Image1->Canvas->Brush->Color = clAqua;
    Image1->Canvas->Brush->Style = bsSolid;
    TRect R(0,0,160,160);
    Image1->Canvas->FrameRect(R);
}

Админ: Пользуемся тегами для оформления кода!

Вопроса как всегда два: "Кто виноват? И что делать?"
Ну или по другому спрошу:
1. Почему не видно нарисованных на Canvas линий???
2. Как обеспечить возможность рисования???

Спасибо!

Последний раз редактировалось Admin, 09.01.2015 в 16:47.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:01.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025