BmpFrame.Canvas.Rectangle прозрачныи внутри

[ArtGrek]

  BmpFrame := TBitmap.Create;
  BmpFrame.Height := Image1.Height;
  BmpFrame.Width := Image1.Width;
  BmpFrame.Canvas.Pen.Style := psDot;
  BmpFrame.Canvas.Pen.Color := clGray;
  BmpFrame.Canvas.Pen.Mode := pmXor;
  BmpFrame.Canvas.Brush.Style := bsClear;
  SetBkColor(BmpFrame.Canvas.Handle, clWhite);
  BmpFrame.TransparentColor := clWhite;
  BmpFrame.Transparent := True;
  BmpFrame.Canvas.Rectangle(0, 0, BmpFrame.Width, BmpFrame.Height);
  Image1.Picture.Bitmap := BmpFrame;

люди подскажите что нехватает для того что б внутреняя часть квадрата рисовалась прозрачнои

ЗЫ. знаю что 100 раз было, много чего перепробывал, не получаеца

[SERG1980]

Дык вы же на имидже рисуете, вот и поставьте у него Transparent=true
и ещё я бы так присвоил имиджу картинку

Image1.Picture.Assign(BmpFrame);

[ArtGrek]

может кому пригодица, зрительно пунктирная рамка

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Height := Image1.Height +1;
  Image1.Width := Image1.Width +1;
  BmpFrame.Height := Image1.Height;
  BmpFrame.Width := Image1.Width;
  BmpFrame.Canvas.Pen.Style := psDot;
  BmpFrame.TransparentMode := tmAuto;
  BmpFrame.TransparentColor := clWhite;
  BmpFrame.Transparent := True;
  BmpFrame.Canvas.Rectangle(0, 0, BmpFrame.Width, BmpFrame.Height);
  Image1.Picture.Bitmap := BmpFrame;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BmpFrame := TBitmap.Create;
end;

Дык вы же на имидже рисуете, вот и поставьте у него Transparent=true

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

[SERG1980]

А зачем вообще нужен для этих целей битмар когда можно на канве имиджа рисовать

procedure TForm1.Button1Click(Sender: TObject);
begin
 image1.Canvas.Brush.Style:=bscross;
 image1.Canvas.FrameRect(image1.Canvas.ClipRect);
end;

[ArtGrek]

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

А зачем вообще нужен для этих целей битмар когда можно на канве имиджа рисовать

  Image1.Height := Image1.Height +1;
  Image1.Width := Image1.Width +1;
  Image1.Picture.Bitmap.Canvas.Pen.Style := psDot;
  Image1.Picture.Bitmap.TransparentMode := tmAuto;
  Image1.Picture.Bitmap.TransparentColor := clWhite;
  Image1.Picture.Bitmap.Transparent := True;
  Image1.Picture.Bitmap.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height);

вообше ничего не рисуеца

[SERG1980]

См. пост №4

[ArtGrek]

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

А зачем вообще нужен для этих целей битмар когда можно на канве имиджа рисовать

procedure TForm1.Button1Click(Sender: TObject);
begin
 image1.Canvas.Brush.Style:=bscross;
 image1.Canvas.FrameRect(image1.Canvas.ClipRect);
end;

+ Image1.Transparent := True;
не прозрачно

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
begin
 image1.Canvas.Brush.Style:=bscross;
 image1.Picture.Bitmap.TransparentColor:=image1.Canvas.Pixels[2,2];
 image1.Transparent:=true;
 image1.Canvas.FrameRect(image1.Canvas.ClipRect);
end;

[ArtGrek]

вы на практике ето пробовали?
зделаите проек и залеите, потому что у меня ето не прозрачное
я сам бы рад но не прозрачное

[SERG1980]

А откуда я по вашему утверждаю