next »

[subh]

The VB header is not complete.

any news? Inout
How to Alpha color change when Multi Video Output?

Ionut pls. check my code, where i am wrong?

[Ionut Cristea]

  Seems to be ok except some codes have been set after creation of stream but that don't matter so much. What is the problem.

Ionut

[subh]

the problem is does not work all panel Alpha color, working only one panel (picturebox1).

[subh]

the problem is does not work all panel Alpha color, working only one panel (picturebox1).

which day you post your new vb header and demo code and please upload demo code. Ionut, I told you how to get
codec filter name in popup menu or dual audio streems name so kindly help this code

please reply

subh

[Ionut Cristea]

var
 menu: TMenuItem;
 count: Integer;
 str: xVideo_STREAMS;
 I: Integer;
begin
 Popupmenu1.Items.Items[2].Items[0].Clear;
 Popupmenu1.Items.Items[2].Items[1].Clear;
 Popupmenu1.Items.Items[2].Items[2].Clear;
 count := xVideo_ChannelStreamsCount(chan);
 if(count<=0) then exit;
 for I := 0 to count-1 do
 begin
   if(xVideo_ChannelGetStream(chan,I,@str,xVideo_UNICODE)) then
   begin
     menu := TMenuItem.Create(PopupMenu1);
     menu.Caption := String(PWideChar(str.name));
     menu.Checked := str.enabled;
     menu.Tag := I;
     menu.OnClick := EnableStream;
     Popupmenu1.Items.Items[2].Items[str.format-1].Add(menu);
   end;
 end;
end;

HEre is the delphi code to get the streams. About vb code, sorry don't know so much VB.

Ionut

[subh]

Try Delphi to vb then I'll post it okay 

subh

[subh]

Try Delphi to vb then I'll post it okay 

and how to solve this code.
the problem is does not work all panel Alpha color, working only one panel (picturebox1). ??


subh