to Kotoff / полупрозрачность в Delphi

[BOBAH13]

Привет ребят, я написал довольно детально думаю. Отсылаю

[raxp]

спасибо материал получен.

[muhahp]

Сообщение от raxp

спасибо материал получен.

Подскажите а где можно посмотреть эту статью?

[raxp]

в седьмом номере журнала.

[slaveny]

Подскажите, пожалуйста. Delphi 7 не может найти DirectDraw.cdu в коде GDIPAPI.pas, прилагаемом в аттаче.

interface

(**************************************************************************\
*
*   GDI+ public header file
*
\**************************************************************************)

uses
  Windows, Graphics, ActiveX, DirectDraw;

И еще, если запуск окна с прозрачностью задается Project.dpr, то как же его визуально проектировать? И где писать код, для объектов, размещенных на форме?

[raxp]

DirectDraw.cdu в коде GDIPAPI.pas

модули экспорта directdraw под delphi (SDK) нужно отдельно кинуть в каталог проекта, они также есть с либой DSPack.

если запуск окна с прозрачностью задается Project.dpr, то как же его визуально проектировать? И где писать код, для объектов, размещенных на форме?

вам стоит перечитать статью.

[slaveny]

raxp спасибо, буду знать
все, дополнительные модули директа нашлись, но в строке

hWnd := CreateWindowEx(WS_EX_TOOLWINDOW or WS_EX_LAYERED,
    WndClass.lpszClassName, NIL, WS_POPUP or WS_VISIBLE, 0, 0, 0, 0, 0, 0, HInstance, NIL);

выдает ошибку [Error] Unit1.pas(44): '(' expected but ':=' found

есть и другие ошибки

[Warning] Unit1.pas(30): Unsafe type 'lpszMenuName: PAnsiChar'
[Warning] Unit1.pas(31): Unsafe type 'lpszClassName: PAnsiChar'
[Warning] Unit1.pas(35): Unsafe type 'lpfnWndProc: Pointer'
[Warning] Unit1.pas(35): Unsafe code '@ operator'
[Warning] Unit1.pas(38): Unsafe type 'IDC_ARROW: PAnsiChar'
[Error] Unit1.pas(44): '(' expected but ':=' found
[Warning] Unit1.pas(45): Unsafe type 'lpszClassName: PAnsiChar'
[Fatal Error] Project1.dpr(11): Could not compile used unit 'Unit1.pas'

Если убрать

hWnd :=

больше не возмущается, но и эффектов прозрачности пока не заметила, хотя...какая к черту прозрачность на XP

[raxp]

...а такая, и не только прозрачность и полупрозрачность, но и слоеные окна:




примеры мы приводили на WinAPI и неоднократно.