[max_torent]

Добрый день. Пишу свой компонент.
создаю рисунки на paintBoxe. Хочу сделать их с возвможностью установки прозрачности. (полупрозрачности)

Код:

var
bl:TBlendFunction;

Bl.BlendOp := AC_SRC_OVER;
     Bl.BlendFlags := 0;
     Bl.SourceConstantAlpha := Blend;
     Bl.AlphaFormat := 0; //

     Windows.AlphaBlend(Canvas.Handle,0, 0, Width, Height,
                       TPaintBox(Parent).canvas.handle , 0,0, Width, Height, Bl);

но на canvase Parenta мой компонент уже отрисован и соответственно с прозрачностью глюк...
Вопрос - как получить Canvas Parenta без учета canvasa компонента...
Заранее спасибо!

[angvelem]

Используй GetDC(Parent). Только освобождать не забывай.

[max_torent]

Все равно не выходит( Получается что изображение уже отрисовано на родителе и при расчете прозрачности получается что оно накладывается...
т.е. нужно получить canvas или HWND родителя, с исключенным в это время компонентом...

[NumLock]

смотри как TLabel сделан

[max_torent]

А подробнее не подскажите? Где именно копать

[poli-smen]

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

А подробнее не подскажите? Где именно копать

Компонент TLabel описан в модуле StdCtrls. Подробнее смотри там:

Код:

.....
unit StdCtrls;
.....
procedure TCustomLabel.SetTransparent(Value: Boolean);
begin
  if Transparent <> Value then
  begin
    if Value then
      ControlStyle := ControlStyle - [csOpaque] else
      ControlStyle := ControlStyle + [csOpaque];
    Invalidate;
  end;
end;
.....

[dr. F.I.N.]

Когда писал компоненты (года 3-4 назад) пользовался вот такой процедуркой. Откуда скопипащена - не помню. Стабильно работает на XP/Win7. D6/D7. На остальном не проверял.

Код:

procedure CopyParentImage(Control: TControl; Dest: TCanvas);
var
  I, Count, X, Y, SaveIndex: Integer;
  DC: HDC;
  R, SelfR, CtlR: TRect;
begin
  if (Control = nil) or (Control.Parent = nil) then Exit;
  Count := Control.Parent.ControlCount;
  DC := Dest.Handle;
{$IFDEF WIN32}
  with Control.Parent do
  ControlState := ControlState + [csPaintCopy];
  try
{$ENDIF}
    with Control do
    begin
      SelfR := Bounds(Left, Top, Width, Height);
      X := -Left; Y := -Top;
    end;
    SaveIndex := SaveDC(DC);
    try
      SetViewportOrgEx(DC, X, Y, nil);
      IntersectClipRect(DC, 0, 0, Control.Parent.ClientWidth, Control.Parent.ClientHeight);
      with TParentControl(Control.Parent) do
      begin
        Perform(WM_ERASEBKGND, DC, 0);
        PaintWindow(DC);
      end;
    finally
      RestoreDC(DC, SaveIndex);
    end;
    for I := 0 to Count - 1 do
    begin
      if Control.Parent.Controls[i] = Control then
      Break
      else
      if (Control.Parent.Controls[i] <> nil) and (Control.Parent.Controls[i] is TGraphicControl) then
      begin
        with TGraphicControl(Control.Parent.Controls[i]) do
        begin
          CtlR := Bounds(Left, Top, Width, Height);
          if Bool(IntersectRect(R, SelfR, CtlR)) and Visible then
          begin
{$IFDEF WIN32}
            ControlState := ControlState + [csPaintCopy];
{$ENDIF}
            SaveIndex := SaveDC(DC);
            try
              SetViewportOrgEx(DC, Left + X, Top + Y, nil);
              IntersectClipRect(DC, 0, 0, Width, Height);
              Perform(WM_PAINT, DC, 0);
            finally
              RestoreDC(DC, SaveIndex);
{$IFDEF WIN32}
              ControlState := ControlState - [csPaintCopy];
{$ENDIF}
            end;
          end;
        end;
      end;
    end;
{$IFDEF WIN32}
  finally
    with Control.Parent do
    ControlState := ControlState - [csPaintCopy];
  end;
{$ENDIF}
end;

Использовать: CopyParentImage(Self, <SelfCanvas>);

[max_torent]

TParentControl - что за класс и в каком модуле описан?

[Aristarh Dark]

max_torent, странный тип, первый раз о нем слышу

[max_torent]

Присутствует в коде выше... я уже понял что это наследник TWinControl

[max_torent]

dr. F.I.N. Спасибо!

[max_torent]

poli-smen - СПАСИБО! Получилось сделать так как Вы написали. С помощью ControlStyle... Все оказалось очень просто)

[dr. F.I.N.]

К сожалению нет перед глазами исходников, но по-моему ты прав:
type TParentControl = TWinControl;