Club Builder

[Tugui]

Me he encontrado un pack gratuito de componentes que tal vez puedan interesar a alguien de por aquí, sobre todo a la hora de dar cambios a la apariencia de nuestros programas. Se trata de "LMD-Tools SE 6.11
LMD-Tools Freeware Edition" y como su nombre indica son gratuitos. Yo los he probado y me han ido muy bien. Aquí os dejo el link por si os interesa:
http://www.ceberus.com/lmd/download/index.php3

P.D: no sé si hago bien dejando este tipo de mensajes aquí, reprimidme si no he obrado bien.
_________________
¡ADELANTE CON ESTE SUPER FORO!

[Angel]

Podías ponerlo también en Trips & Ticks, explicando un poco de que va el fichero, versiones, etc.
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[TOÑO]

HOLA:

Los estoy mirando y no tienen mala pinta.

Nota: Angel mire lo del stringGrid, y siento no poder ayudarte pero es un componente con el que no suelo trabajar, lo unico que he hecho con el es utilizarlo como un contenedor de imagenes, si te sirve....

By.

[Angel]

Pues mira, sí porque en la aplicación que estoy desarrollando me hace falta poner una imagen dependiendo de la opción elegida. Si no te importa pasarme como lo haces; estoy usando imagenes en BMP.

Par lo otro (lo de las columnas) usaré un truco bastante pedestre: las columans que no me interesen les pongo de ancho 0 ó 1 y así no las veo. De todas formas, yo juraría que alguién me pasó como hacer lo que busco; o eso creo.
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[TOÑO]

HOLA:

Pues nada, solo que... bueno yo necesitaba dos cosillas, el nombre del fichero bmp, y la imagen del archivo asi que lo cree asi.

Al elegir directorio,

TSearchRec sr;
int iAttributes = 0;
iAttributes = faArchive ;
AnsiString S = DIRECTORIO + "\\*.BMP"; int i = 0;
if (FindFirst(S, iAttributes, sr) == 0)
{
do
{
try{
SG ->Cells[0][i] = DIRECTORIO + "\\" + sr.Name;
SG ->RowCount ++;
i ++;

}
catch(...){ i --;}
} while (FindNext(sr) == 0);

FindClose(sr);
}
}



Y cuando dibuja la celda.

void __fastcall FormularioA2::SGDrawCell(TObject *Sender, int ACol, int ARow,
TRect &Rect, TGridDrawState State)
{

Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap();

if (ACol == 1 && ARow > 0)
{
try
{
if ( ((TStringGrid *)Sender) -> Cells[0][ARow] != NULL )
{
Bitmap1->LoadFromFile ( ((TStringGrid *)Sender) -> Cells[0][ARow]);
((TStringGrid *)Sender) ->Canvas -> StretchDraw(Rect,Bitmap1);
}
}
catch (...)
{
}


delete(Bitmap1);




By.

[Angel]

Gracias, Toño. ¡Eres un hacha!
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[Tio LuisMi]

Estan guapos.

Los estoy probando y hay muchas cosas muy interesantes. Gracias.

Y a ver si cunde el ejemplo.