__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
Img = new TImage (this);
Img->Picture->LoadFromFile("Имя_Файла.bmp");
}
//-----------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
this->Canvas->Draw (0, 0, Img->Picture->Graphic);
}
//-----------------------------------------------------------
Как сделать приложение БЕЗ формы?
Вобщем задача такова: хочется сделать небольшие цифровые часики, надо чтоб компоненты (конкретно - TImage)-были ВНЕ формы, и чтоб на панели задач небыло видно приложения. Помогите, пожалуйста.
Как убрать окно с панели задач, написано чту ли не в каждом FAQ. Зачем выносить TImage вне формы, если можно с форма убрать кнопки и заголовок и на ней разместить часики?
IL84, вся проблема заключается в полупрозрачности пнг картинки, если их поместить на форму и например поставить transparentcolor формы, то под картинкой будет цвыт формы, а если alfablendvalue выставить-таж фигня....пробовал отдельную компоненту jvbackground для формы, но там создаётся проблема при перемещении...
А прямо на канву формы рисовать не пробовали?
Правда, там конечно же придётся перерисовку "вручную" делать, назначив обработчик на OnPaint.
Правда, там конечно же придётся перерисовку "вручную" делать, назначив обработчик на OnPaint.
el scorpio, нет не пробовал, а как туда TPNGObject приделать? если в канвас из него переливать-выдаёт еррор, ещё при запуске проги-мол надо чтоб битмап там был....
Цитата: Se AD WMD
el scorpio, нет не пробовал, а как туда TPNGObject приделать? если в канвас из него переливать-выдаёт еррор, ещё при запуске проги-мол надо чтоб битмап там был....
туда и надо битмап лить. смотри свойства объекта.
Объявляем указатель TImage *Img, как поле объекта формы.
Код:
el scorpio, все работает, кроме одного: при перетаскивании полупрозрачность меняется на чорный фон...
Только что проверял. Установил для формы AlphaBlend = true и AlphaBlendValue = 127.
Запустил программу и издевался над окном по всякому - никаких глюков не было.
Запустил программу и издевался над окном по всякому - никаких глюков не было.
Цитата: Se AD WMD
el scorpio, все работает, кроме одного: при перетаскивании полупрозрачность меняется на чорный фон...
проверяй утечки памяти. гдето чтото создается но не удаляется.
el scorpio, если устанавливать непосредственно для формы- всё ок, но мне надо чтоб картинка была не полностью полупрозрачная, а разное значение AlphaBlendValue на разных пикселях (использую компоненту TPNGObject в TImage)...
TPNGObject не использовал, поэтому про него ничего скажу.
Но можно сделать финт ушами. Правда, насчёт успеха не уверен.
На форму кладём компонент, который может изменять прозрачность отдельных пикселей, устанавливаем ему align = alclient.
Самое главное - для формы устанавливаем абсолютную прозрачность, чтобы под картинкой видеть не серую канву формы, а рабочий стол.
Но можно сделать финт ушами. Правда, насчёт успеха не уверен.
На форму кладём компонент, который может изменять прозрачность отдельных пикселей, устанавливаем ему align = alclient.
Самое главное - для формы устанавливаем абсолютную прозрачность, чтобы под картинкой видеть не серую канву формы, а рабочий стол.