Kylix transparent

Hi,

I have Kylix 3 Enterprise installed on Slackware 10 and I tryed the following:

procedure TForm .FormCreate(Sender: TObject);
begin
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone
end;

to try make my form transparent any ideas how i can do this in kylix?
LVL 16
xDamoxAsked:
Who is Participating?
 
Jase-CoderCommented:
xDamox I think it is something to do with KDE. I was having a look and nothing happened.

I tried

form1.canvas.brush.style := bsClear;

I was having a look at the unit that holds the sytles and there were serveral that might inretest you if your using windows

bsClear
bsDense1
bsDense7.

I have even tried the example in the kylix help files and that never worked. All I can surgest is you use a KDE API
0
 
LMuadDIbCommented:
if it was delphi all you would have to do is use form TransparentColor & form TransparentColorValue
example:

put 2 TButtons and a Tedit on a form and the following code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if form1.AlphaBlend then
    form1.AlphaBlend := false
  else begin
    form1.AlphaBlend := true;
    form1.AlphaBlendValue := 150;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if form1.Color = clBlack then begin
    form1.Color := clBtnFace;
    form1.TransparentColor := false;
  end else begin
    form1.Color := clBlack;
    form1.TransparentColor := true;
    form1.TransparentColorValue := clBlack      ;
  end;
end;

but I dont know anything about Kylix :-/
hopefully this can help you
0
 
Jase-CoderCommented:
I also think the reasin Alphabend doesnt exist in kylix is because that uses windowsAPI to mess with the forms settings
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.