Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Panel color blanco (https://www.clubdelphi.com/foros/showthread.php?t=21792)

xxxFALKORxxx 27-05-2005 17:52:32

Panel color blanco
 
Hola;

tengo que usar el color blanco para un panel en una aplicacion de delphi 7, pero por alguna razon, solo puedo verlo en maquinas windows 2000, pero en las maquinas WinXP, el panel aparece del color de la forma.

Me imagino que algo tiene que ver el Xpman, pero como podria ver el color blanco del panel AUN en maquinas con WinXP sin afectar el resto de la apariencia de la aplicacion?

Gracias de antemano

JXJ 27-05-2005 18:13:38

¿si pruebas poniendo una imagen blanca de fondo. =?

pones un Timage y carga una imagen bitmap en color blanco


a mi me ha pasda algo asi. con un action bar, y un Tedit
yo le pongo el color blanco de fondo al Tedit, y al ejecutar el color de fondo
es cremita. o como tu dices, del color de la forma.

o ¿con una de esas suites para hacer tu aplicación eskinable. ?

xxxFALKORxxx 27-05-2005 18:26:37

Cita:

Empezado por JXJ
¿si pruebas poniendo una imagen blanca de fondo. =?

pones un Timage y carga una imagen bitmap en color blanco

a mi me ha pasda algo asi. con un action bar, y un Tedit
yo le pongo el color blanco de fondo al Tedit, y al ejecutar el color de fondo
es cremita. o como tu dices, del color de la forma.

pues lo de la imagen no es mala idea (por el momento)....

encontre este codigo y voy a probarlo con el panel...

{
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;


La franja horaria es GMT +2. Ahora son las 20:57:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi