was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1547)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (127)
Strings (83)
System (268)
VCL (243)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

26 Visitors Online


 
...die Nicht-Transparenz eines Labels trotz XPMan beibehalten?
Autor: Laurent Taupin
Homepage: http://www.wptechnology.com
[ Tip ausdrucken ]  

Tip Bewertung (6):  
     


{
Did you ever try to put the XPMan on a form which uses the color
property of a TLabel ?
Have you noticed that the background color disappear with XPMan ?

It's because XPMan sets the Transparent properties to TRUE.
And because this is done before the OnCreate event, we cannot
retrieve which one was having the Transparent value to FALSE.

The tip I'll describe here is that simple :
if you want to keep the background color property of some labels
(but not all) while using XPMan, put the value "1" to the TAG
property of the label which may not be transparent.

Then, put this code inside the create event of your form :
}

procedure TForm1.FormCreate(Sender: TObject);
var
  
Cpt: Integer;
begin
  for 
Cpt := 0 to Self.ComponentCount - 1 do
    if 
(Self.Components[Cpt] is TLabel) then
      with 
(Self.Components[Cpt] as TLabel) do
        
Transparent := not (Tag = 1);
end;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners