SoloCodigo

Buenas:

 Lo que intento es descomponer un numero en todos sus sumatorios pero siendo la primera cifra siempre la misma, es decir
por ejempol Numero 11,Primera cifra 6

 6-1-1-1-1-1
 6-1-1-1-1-2
 6-1-1-2-1
 6-1-1-3
 ......
.......
 6-2-1-1-1
 6-2-2-1
 6-2-3
 .....
 .....
6-5


He creado el siguiente algoritmo recursivo (en C)


Pero el resultado solo es:

6 1 1 1 1 1
6 1 1 1 2
6 1 1 3
6 1 2 2
6 1 4
6 2 3
6 5

Me faltan combinaciones ejp  6-2-2-1

Alguna idea Gracias

Buenas, mi problema es el siguiente:

Desde un Form1 accedo a otro Form2 mediante la forma modal:


En el evento Activate del Form2 (dependiendo de una condicion)este debe de redimensionarse (hacerse mas pequeño),


pero no lo hace.

Supongo que tiene que ver con el acceso modal pero no consigo solucionarlo
Alguna Idea.


Gracias

Buenas:

  Tengo un programa que al iniciarse muestra en pantalla un menu (Form Principal),El caso es que en el evento Form Activate  el programa lee una gran cantidad de datos de un archivo, lo que le lleva un monton de tiempo.....Esto produce que del formulario menu se muestre en principio una parte (los bordes) y al rato (una vez leidos los datos del archivo) el resto del form (las opciones menu).

Es posible hacer que lea primero todos los datos y despues muestro el form completo .

Espero que me haya explicado Bien.

Gracias.

Estoy mostrando texto usando el objeto TCanvas de la forma:

Canvas->TextOut(x,y,"Text").

El texto me lo muestra,el problema radica en que el texto mostrado contiene un fondo Blanco....Cada letra esta rodeada de un contorno cuadrado blanco.
(Las letras no tienen fondo transparente)
Como puedo solucionarlo....

Gracias.

PosdTdata: el tipo letra que uso es Arial..

Buenas:

Dentro de un Listbox cuyos elementos estan ordenados alfabeticamente al pulsar una tecla alfanumerica el item que me selecciona es siempre el segundo del grupo de items que empiezen por la tecla pulsada..nunca el primero (a mi os aseguro que me pasa) .

Alguien sabe porque y como puedo hacer que la posicion sea el primeros del grupo de items que empiezen por la tecla pulsada.




Gracias.

Buenas

Dentro de una Calse dreado un tipo que viene a ser una Tabla de enteros  de la forma

class MiTabla;

private:

typedef  int TTabla[14][14];

He  creado una funcion que me devolvera  un dato de este tipo

public:

TTabla  *LeerTabla()

Hata Aqui todo bien.....

El problema surge a la hora de implementar la funcion

TTabla *MiTabla::LeerTabla()
{
}

Me da error "Declaration syntax error"

He probado con
TTabla  **LeerTabla()
TTabla **MiTabla::LeerTabla()
idem

Alguna Idea

Gracias

Buenas :

  Estoy intentando crear mi primer componente VCL (VISUAL) lo derivo de la clase customControl (sera interactivo con el usuario)
  El caso es que lo "creo" logrando que me aparezca en la paleta Standard el icono correspondiente. se supone que al anadirlo en un form en principio deberia de aparecer un rectangulo (de 100x150) con borde "ES SOLO UNA PRUEBA " pero na de na.

os dejo el codigo del componente haber si me podeis ayudar

#ifndef ComponenteH
#define ComponenteH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <Forms.hpp>
#include <StdCtrls.hpp>


//---------------------------------------------------------------------------
class PACKAGE TComponente : public TCustomControl
{

private:

 TCanvas *FCanvas; //Para Dibujar

 //Mensaje de Windows solicitando el Tamano del control
 void __fastcall CNMeasureItem(TWMMeasureItem& Mensaje);

 //Mensaje de Windows solicitando el tamano del control
 void __fastcall CNDrawItem(TWMDrawItem& Mensaje);

 BEGIN_MESSAGE_MAP
   MESSAGE_HANDLER(CN_MEASUREITEM,TWMMeasureItem,CNMeasureItem);
   MESSAGE_HANDLER(CN_DRAWITEM,TWMDrawItem,CNDrawItem);
 END_MESSAGE_MAP(TCustomControl);

protected:

 //Parametros para la creacion del Compnente
 void __fastcall Parametros (TCreateParams &Parametro);

 //Cambio el estado del Componente
 void __fastcall EstadComponent (bool ADefault);

 public:
        __fastcall TCeldaResultados(TComponent* Owner);


__published:

};
//---------------------------------------------------------------------------





#include <vcl.h>

#pragma hdrstop

#include "Componente.h"
#pragma package(smart_init)

static inline void ValidCtrCheck(TComponente *)
{
        new TCeldaResultados(NULL);
}



//---------------------------------------------------------------------------
__fastcall TComponente ::TComponente (TComponent* Owner)
        : TCustomControl(Owner)
{
    FCanvas = new TCanvas; //Creamos el objeto camvas
}



//---------------------------------------------------------------------------
//Fijamos una serie de parametros antes de crear el componente

void __fastcall TComponente ::Parametros (TCreateParams &Parametro)
{
  Parametro.Width  =100;
  Parametro.Height =150;
  //Indicamos que el control va a ser definido por el rogramador
  Parametro.Style = Parametro.Style | BS_OWNERDRAW;
}


//---------------------------------------------------------------------------
//Cada vez que Windows necesita dibujar el componente
//BS_OWNERDRAW envia este mensaje,solicitando las dimensiones

void __fastcall TComponente ::CNMeasureItem(TWMMeasureItem& Mensaje)
{
  //Facilitamos la anchura y altura del control
  Mensaje.MeasureItemStruct->itemWidth  = Width;
  Mensaje.MeasureItemStruct->itemHeight = Height;
}


//---------------------------------------------------------------------------
//Cada vez que halla que dibujar el control se llamara a este metodo

 void __fastcall TComponente ::CNDrawItem(TWMDrawItem& Mensaje)
{

   RECT Area;
   char Texto[256];
   strncpy(Texto,Caption.c_str(),255); //Copiamos el titulo del boton
   Area = ClientRect; //Obtenemos el area de Trabajo

   // Tomar el color normal del borde
   FCanvas->Pen->Color = clWindowFrame;

   //El Handle de FCanvas sera el que nos permita dibujar
   FCanvas->Handle = Mensaje.DrawItemStruct->hDC;

   //Anchura del Lapiz
   FCanvas->Pen->Width =2;

   //Estilo lapiz continuo
   FCanvas->Pen->Style = psSolid;

   //Relleno solido
   FCanvas->Brush->Style = bsSolid;

   //color
   FCanvas->Brush->Color=clBtnFace;

   //Dibujamos un contorno
   FCanvas->Rectangle(10,10,20,20);

   //Cuando Hallamos terminado Handle debe de ser cero
   FCanvas->Handle = 0;
}



//---------------------------------------------------------------------------
//Al cambiar el estado del componente

void __fastcall TComponente ::EstadComponent (bool ADefault);
{
  Refresh(); //Redibujar
}

//---------------------------------------------------------------------------
namespace Componente
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TCeldaResultados)};
                 RegisterComponents("Standard", classes, 0);
        }
}


Gracias

Buenas

 Como puedo modificar por elemplo el tercer item de un TstringList (modificar su texto)

Gracias

Buenas :
   
 Al  crear un nuevo Componenente VCL tomando como base otro ya existente se puede modificar tanto sus propiedades como eventos, mi pregunta es si ademas se puede cambiar su aspecto visual.
Por ejemplo el tipico cuadrado de un CheckBox convertirlo en un circulo......

Si es posible me gustaria saber como


Gracias

Buenas:

Tengo una Estructura (en realidad es un Objeto pero para el caso es lo mismo ) de la forma

struct ejemplo
{
AnsiString Nombre;
short edad;
int dni;
............................
................

}

El caso es que creo un archivo binario para guardar los datos.
Los guardo no me da nigun error.

Mi problema es cuando quiero leer los datos del archivo, todos me los lee perfectamente(los ha guardado correctamente) excepto los declarados con el tipo AnsiString que me devuelve  "" (nulo)

Cual es el problema: No puedo guardar un dato del tipo AnsiString directamente en un archivo binario?

Si es asi que debo hacer si no quiero cambiar el tipo.

Espero Haberme explicado bien

gracias