![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
|
Diseño de pantalla
A ver quien me puede echar una mano, que yo me estoy volviedo loco. Tengo una aplicación hecha en BCB 6 con unas 50 ó 60 pantallas. El problema es que no las veo igual yo a como las ve el cliente. Os subo un par de ejemplos:
Pantalla 1ª Esto es como lo veo yo. Esto es como lo ve el cliente. Pantalla 2ª Esto es como lo veo yo. ![]() Y esto como lo ve el cliente. ![]() Si os fijáis en la primera pantalla los dos ListView que hay al pie de la misma no tienen las mismas dimensiones y en la segunda pantalla en lo que ve el cliente se amontonan los botones. Al arrancar la aplicación fuerzo el tipo y tamaño de letra así: Código:
AnsiString cAux, NombreUser, FontName, cMensaje, cPerFac, cRefInt, cReportTitle;
int ColorFondo, ColorPapel, ColorTinta, FontSize, LineaAct, nForFac, nIcono, nTipoEjecucion, nTipoEmision, nTotPag, PrinterDefault, ScrollWidth;
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
[...]
try
{
FontName = "Arial";
FontSize = 10;
ScrollWidth = 17;
rRegistro->RootKey = HKEY_CURRENT_USER;
if (rRegistro->OpenKeyReadOnly("Control Panel\\Desktop\\WindowMetrics"))
ScrollWidth = MulDiv(-StrToFloat(rRegistro->ReadString("ScrollWidth")), Screen->PixelsPerInch, 1440);
Application->Initialize();
Application->Title = cVersion;
PrinterDefault = Printer()->PrinterIndex;
Application->CreateForm(__classid(TfPersona), &fPersona);
Application->Run();
}
catch(Exception &exception)
{
Application->ShowException(&exception);
}
catch(...)
{
try
{
throw Exception("");
}
catch(Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
Código:
extern void ColorForm(TForm *Form);
//---------------------------------------------------------------------------
__fastcall TfRefact::TfRefact(TComponent* Owner)
: TForm(Owner)
{
ColorForm(this);
}
//---------------------------------------------------------------------------
Código:
void ColorForm(TForm *Form)
{
TComponent *Source;
Form->Icon = Application->Icon;
Form->Caption = Application->Title;
Form->Font->Name = FontName;
Form->Font->Size = FontSize;
[...]
}
//---------------------------------------------------------------------------
Última edición por Casimiro Noteví fecha: 17-01-2017 a las 09:40:19. Razón: Protección de datos. |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Diseño de Forms | KingOfDragons | Varios | 4 | 10-05-2011 10:26:27 |
| Capturar Pantalla = Pantalla negra | DarkDudae | Gráficos | 8 | 27-10-2008 12:29:36 |
| en diseño web | miamuxi | Conexión con bases de datos | 6 | 19-01-2007 20:13:50 |
| Diseño DB Biblioteca | cancerbero | Tablas planas | 2 | 14-08-2004 12:51:54 |
| Diseño | pepelu1975 | Varios | 1 | 31-05-2004 09:55:36 |
|