Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Прозрачный TPanel   Найти похожие ветки 

← →
ARTEMKA   (2003-10-29 23:56) [0]

Мастера как сделать TPanel прозрачным

---

← →
Dimaxx   (2003-10-30 00:55) [1]

Panel1.Transparent:=True

---

← →
ARTEMKA   (2003-10-30 01:10) [2]

откуда у него есть Transparent ??

---

← →
KyRo   (2003-10-30 01:49) [3]

У тебя он что лежит на каком то другом компоненте ??
Есле нет то просто убери все бордюры и сделай углубление 0и он у тебя сольется с формой

---

← →
ARTEMKA   (2003-10-31 02:13) [4]

ребята для моей проги не поможет ни какие другие выходы, только если сделать её прозрачной, САМУ панельку, поэтому если кто знает, спасибо за ответ, а не знает спасибо за сочувствие!!

---

← →
Zergling   (2003-10-31 06:44) [5]

Вот тебе панелька прозрачная :)

var
PH: TWinControl;
PB: TButton;

procedure TForm1.Button1Click(Sender: TObject);
begin
PH := TWinControl.Create(Self);
PB := TButton.Create(Self);
PB.Parent := PH;
ph.Left := 10;
ph.Top := 10;
ph.Width := 150;
ph.Height := 150;
ph.Parent := Form1;
ph.Hint := "fffffffffff";
ph.ShowHint := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
PH.Visible := False;
end;

---

← →
Zergling   (2003-10-31 06:49) [6]

Zergling © (31.10.03 06:44) [5]

Опять наврал. НЕ ВЕРИТЬ!

---

← →
DVM   (2003-10-31 09:36) [7]

> ARTEMKA © (31.10.03 02:13) [4]
> ребята для моей проги не поможет ни какие другие выходы,
> только если сделать её прозрачной, САМУ панельку, поэтому
> если кто знает, спасибо за ответ, а не знает спасибо за
> сочувствие!!

Что ты понимаешь под словом прозрачный. Объясни толком!!!!!!!1

---

← →
han_malign   (2003-10-31 09:57) [8]

Попробуй:
ControlStyle:=ControlStyle - [csOpaque];
BevelOuter:=bvNone;
BevelInner:=bvNone;
BorderWidth:=0;

---

← →
han_malign   (2003-10-31 09:59) [9]

Не - не лечит...

---

← →
Anatoly Podgoretsky   (2003-10-31 10:03) [10]

DVM © (31.10.03 09:36) [7]
Не надо, а то еще третью ветку заведет

---

← →
han_malign   (2003-10-31 10:08) [11]

Короче "обломайся бабка - мы на корабле"
procedure TCustomPanel.Paint;
const
Alignments: array[TAlignment] of Longint = (DT_LEFT, DT_RIGHT, DT_CENTER);
var
Rect: TRect;
TopColor, BottomColor: TColor;
FontHeight: Integer;
Flags: Longint;

procedure AdjustColors(Bevel: TPanelBevel);
begin
TopColor := clBtnHighlight;
if Bevel = bvLowered then TopColor := clBtnShadow;
BottomColor := clBtnShadow;
if Bevel = bvLowered then BottomColor := clBtnHighlight;
end;

begin
Rect := GetClientRect;
if BevelOuter <> bvNone then
begin
AdjustColors(BevelOuter);
Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
end;
Frame3D(Canvas, Rect, Color, Color, BorderWidth);
if BevelInner <> bvNone then
begin
AdjustColors(BevelInner);
Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth);
end;
with Canvas do
begin
if not ThemeServices.ThemesEnabled or not ParentBackground then
begin
Brush.Color := Color;
FillRect(Rect);
end;
Brush.Style := bsClear;
Font := Self.Font;
FontHeight := TextHeight("W");
with Rect do
begin
Top := ((Bottom + Top) - FontHeight) div 2;
Bottom := Top + FontHeight;
end;
Flags := DT_EXPANDTABS or DT_VCENTER or Alignments[FAlignment];
Flags := DrawTextBiDiModeFlags(Flags);
DrawText(Handle, PChar(Caption), -1, Rect, Flags);
end;
end;

- так, что...
А вообще, фигли ты мозги ... - если в лом Control перекрывать - присобчь фрейм - он конечно "тяжелый" - зато с ним, что хочешь, то и делай...

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.174 c