first commit (2004-02-29)

This commit is contained in:
José David Guillén 2021-09-01 19:46:41 +02:00
commit c481ffafa7
13 changed files with 1434 additions and 0 deletions

33
--amp_cuadrangular.js Normal file
View File

@ -0,0 +1,33 @@
var t01_col = new Array(
new Array(100,"Referencia"),
new Array(60,"Esfuerzo<br>útil (Kg)"),
new Array(60,"Altura<br>total (m.)"),
new Array(60,"Tramos"),
new Array(60,"M.O.<br>2m."),
new Array(60,"M.O.<br>3m."),
new Array(60,"Tresbolillo"),
new Array(60,"Red<br>trenzada"),
new Array(60,"Bóveda")
);
var t01_cola = 4;
var t01_dat = new Array(
new Array( "P-250-09", "250", "9", "2", "233", "253", "243", "207", "271" ),
new Array( "P-250-10", "250", "10", "2", "248", "268", "259", "222", "287" ),
new Array( "P-250-11", "250", "11", "2", "279", "299", "290", "253", "318" ),
new Array( "P-250-12", "250", "12", "2", "299", "319", "309", "273", "337" ),
new Array( "P-250-13", "250", "13", "3", "341", "361", "351", "315", "379" ),
new Array( "P-250-14", "250", "14", "3", "369", "390", "380", "343", "408" ),
new Array( "P-250-15", "250", "15", "3", "405", "425", "415", "379", "443" ),
new Array( "P-250-16", "250", "16", "3", "429", "449", "439", "403", "467" ),
new Array( "&nbsp;", "&nbsp;", "&nbsp;", "&nbsp;", "", "", "", "", "" ),
new Array( "P-360-09", "360", "9", "2", "259", "279", "269", "233", "297" ),
new Array( "P-360-10", "360", "10", "2", "299", "319", "309", "273", "337" ),
new Array( "P-360-11", "360", "11", "2", "330", "350", "340", "304", "368" ),
new Array( "P-360-12", "360", "12", "2", "356", "376", "366", "330", "394" ),
new Array( "P-360-13", "360", "13", "3", "407", "427", "417", "381", "445" ),
new Array( "P-360-14", "360", "14", "3", "427", "447", "437", "401", "465" ),
new Array( "P-360-15", "360", "15", "3", "470", "490", "480", "444", "508" ),
new Array( "P-360-16", "360", "16", "3", "500", "521", "511", "474", "539" )
);

33
amp_cuadrangular.js Normal file
View File

@ -0,0 +1,33 @@
var t01_col = new Array(
new Array(100,"Referencia"),
new Array(60,"Esfuerzo<br>útil (Kg)"),
new Array(60,"Altura<br>total (m.)"),
new Array(60,"Tramos"),
new Array(60,"M.O.<br>2m."),
new Array(60,"M.O.<br>3m."),
new Array(60,"Tresbolillo"),
new Array(60,"Red<br>trenzada"),
new Array(60,"Bóveda")
);
var t01_cola = 4;
var t01_dat = new Array(
new Array( "P-250-09", "250", "9", "2", "233", "253", "243", "207", "271" ),
new Array( "P-250-10", "250", "10", "2", "248", "268", "259", "222", "287" ),
new Array( "P-250-11", "250", "11", "2", "279", "299", "290", "253", "318" ),
new Array( "P-250-12", "250", "12", "2", "299", "319", "309", "273", "337" ),
new Array( "P-250-13", "250", "13", "3", "341", "361", "351", "315", "379" ),
new Array( "P-250-14", "250", "14", "3", "369", "390", "380", "343", "408" ),
new Array( "P-250-15", "250", "15", "3", "405", "425", "415", "379", "443" ),
new Array( "P-250-16", "250", "16", "3", "429", "449", "439", "403", "467" ),
new Array( "&nbsp;", "&nbsp;", "&nbsp;", "&nbsp;", "", "", "", "", "" ),
new Array( "P-360-09", "360", "9", "2", "259", "279", "269", "233", "297" ),
new Array( "P-360-10", "360", "10", "2", "299", "319", "309", "273", "337" ),
new Array( "P-360-11", "360", "11", "2", "330", "350", "340", "304", "368" ),
new Array( "P-360-12", "360", "12", "2", "356", "376", "366", "330", "394" ),
new Array( "P-360-13", "360", "13", "3", "407", "427", "417", "381", "445" ),
new Array( "P-360-14", "360", "14", "3", "427", "447", "437", "401", "465" ),
new Array( "P-360-15", "360", "15", "3", "470", "490", "480", "444", "508" ),
new Array( "P-360-16", "360", "16", "3", "500", "521", "511", "474", "539" )
);

306
mainFORM.cpp Normal file
View File

@ -0,0 +1,306 @@
//---------------------------------------------------------------------------
#include <stdio.h>
#include <vcl.h>
#pragma hdrstop
#include "mainFORM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Panel1->Height = btVerDetalles->Down ? 66 : 32;
loadFiles();
filelist->ItemIndex=0;
doFilterClick(0);
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::loadFiles(void)
{
TSearchRec sr;
int iAttributes = 0;
AnsiString filename;
iAttributes |= faReadOnly;
iAttributes |= faArchive;
iAttributes |= faAnyFile;
filelist->Items->Clear();
filename="*.js";
if (FindFirst(filename, iAttributes, sr) == 0)
{
do
{
if ((sr.Attr & iAttributes) == sr.Attr)
{
filelist->Items->Add(sr.Name);
}
} while (FindNext(sr) == 0);
FindClose(sr);
}
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::emptyLine( char *line )
{
char *p;
// TAB, SPACE, NEW LINE, RETURN, NULL
p = line;
while ( *p!=NULL && (*p=='\t' || *p==' ' || *p=='\n' || *p=='\r') ) p++;
return (*p==NULL);
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::getPRE(char *line, char *pre)
{
char *p;
*pre = NULL;
p = line;
while ( *p!=NULL && *p!=' ' )p++; if ( *p!=NULL ) p++;
while ( *p!=NULL && *p!=' ' && *p!='_' ) *(pre++)=*(p++); *pre=NULL;
return (*pre!=NULL);
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::getHEAD( char *line, int *width, char *text )
{
char *p, *t;
p = line;
*width = 0;
*text =NULL;
t = text;
while ( *p!=NULL && *p!='(' )p++; if ( *p!=NULL ) p++;
while ( *p!=NULL && *p!=',' )
{
if(*p!=' ') *width = *width*10 + ((*p)-'0');
p++;
}
if ( width>0 )
{
while ( *p!=NULL && *p!='"' )p++; if ( *p!=NULL ) p++;
while ( *p!=NULL && *p!='"' ) *(t++)=*(p++); *t=NULL;
}
return (*text!=NULL);
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::getFIXED_ROWS( char *line, int *fr )
{
char *p;
p = line;
*fr = 0;
while ( *p!=NULL && *p!='=' )p++; if ( *p!=NULL ) p++;
while ( *p!=NULL && *p!=';' ) {if(*p!=' ') *fr = *fr*10+(*p-'0'); p++; }
return *fr>0;
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::getANDsetDATA( char *line )
{
int col;
bool dev = false;
char *p, *pb;
p = line;
char buffer[80];
col = 0;
while ( *p!=NULL && *p!='(' )p++;
if ( *p=='(' )
{
if ( *p!=NULL ) p++;
if ( !emptyLine( p ) )
{
sg->RowCount++;
while ( *p!=NULL )
{
pb = buffer;
*buffer = NULL;
while ( *p!=NULL && *p!='"' ) p++; if ( *p!=NULL ) p++;
while ( *p!=NULL && *p!='"' ) *(pb++)=*(p++); *pb=NULL; if ( *p!=NULL ) p++;
if ( *buffer!=NULL )
{
dev = true;
sg->Cells[col][(sg->RowCount-1)]=AnsiString(buffer);
col++;
}
}
if ( !dev ) sg->RowCount--;
}
}
return dev;
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::readline(FILE *f,char *line)
{
fgets( line, 254, f );
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::loadFile(AnsiString filename)
{
bool dev;
FILE *f;
char line[255], text[80];
int width;
int status;
int currROW=1, currCOL=0;
sg->ColCount = 1;
sg->RowCount = 1;
#define READ_VAR_PREFIX 1
#define READ_COLUMNS 2
#define READ_FIXED_ROW 3
#define READ_DATA 4
status = READ_VAR_PREFIX;
dev = false;
if ( (f=fopen(filename.c_str(),"r"))!=NULL )
{
dev = true;
while (!feof(f))
{
readline(f,line);
if ( !emptyLine( line ) )
switch ( status )
{
case READ_VAR_PREFIX:
getPRE( line, varPRE );
status = READ_COLUMNS;
break;
case READ_COLUMNS:
if ( getHEAD( line, &width, text ) )
{
currCOL++;
sg->ColCount = currCOL;
sg->ColWidths[currCOL-1] = width;
sg->Cells[currCOL-1][currROW-1] = text;
} else {
status=READ_FIXED_ROW;
}
break;
case READ_FIXED_ROW:
getFIXED_ROWS( line, &(sg->FixedCols) );
status = READ_DATA;
break;
case READ_DATA:
if ( getANDsetDATA( line ) )
sg->FixedRows = 1;
break;
} // esac
} // elihw
} // fi
fclose(f);
if ( dev )
{
sg->Row = (sg->RowCount>0) ? 1 : 0;
sg->Col = sg->FixedCols;
}
return dev;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btPostClick(TObject *Sender)
{
DeleteFile( filelist->Items->Strings[filelist->ItemIndex]+".bak" );
RenameFile( filelist->Items->Strings[filelist->ItemIndex], filelist->Items->Strings[filelist->ItemIndex]+".bak" );
// Devolvemos la tabla al fichero...
saveFILE( filelist->Items->Strings[filelist->ItemIndex] );
ShowMessage("Archivo guardado!");
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::saveFILE( AnsiString filename )
{
bool dev = false;
int i,j;
FILE *f;
if ( (f=fopen( filename.c_str(), "w" ))!=NULL )
{
dev = true;
// Cabeceras de columna
fprintf(f,"var %s_col = new Array(\n",varPRE);
for (i=0;i<(sg->ColCount-1);i++)
fprintf(f,"new Array(%d,\"%s\"),\n",sg->ColWidths[i],sg->Cells[i][0].c_str());
fprintf(f,"new Array(%d,\"%s\")\n",sg->ColWidths[i],sg->Cells[i][0].c_str());
fprintf(f,");\n");
fprintf(f,"\n");
fprintf(f,"var %s_cola = %d;\n",varPRE,sg->FixedCols);
fprintf(f,"\n");
fprintf(f,"var %s_dat = new Array(\n",varPRE);
for (j=1;j<(sg->RowCount-1);j++)
{
fprintf(f,"new Array(" );
for (i=0;i<(sg->ColCount-1);i++)
fprintf(f," \"%s\", ",sg->Cells[i][j].c_str() );
fprintf(f," \"%s\" ),\n",sg->Cells[i][j].c_str() );
}
fprintf(f,"new Array(" );
for (i=0;i<(sg->ColCount-1);i++)
fprintf(f," \"%s\", ",sg->Cells[i][j].c_str() );
fprintf(f," \"%s\" )\n",sg->Cells[i][j].c_str() );
fprintf(f,");");
}
fclose(f);
return dev;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btVerDetallesClick(TObject *Sender)
{
Panel1->Height = btVerDetalles->Down ? 66 : 32;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
if ( MessageDlg("Aplicar cambio: "+tipoCambio->Items->Strings[tipoCambio->ItemIndex]+
"("+Edit1->Text+")"+
"\nen la columna: "+columnaCambio->Items->Strings[columnaCambio->ItemIndex],
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes )
{
int col, i;
float inc;
inc = Edit1->Text.ToDouble();
col = (int)columnaCambio->Items->Objects[columnaCambio->ItemIndex];
for (i=1;i<sg->RowCount;i++)
{
try {
if ( tipoCambio->ItemIndex==0 )
{
// lineal
sg->Cells[col][i] = AnsiString( (sg->Cells[col][i].ToDouble() + inc ) );
} else {
// porcentual
sg->Cells[col][i] = AnsiString( (int)(sg->Cells[col][i].ToDouble() * (1+inc/100) ) );
}
} catch(...) {
//nothing;
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::doFilterClick(TObject *Sender)
{
loadFile( filelist->Items->Strings[filelist->ItemIndex] );
columnaCambio->Items->Clear();
for (int i=(sg->FixedCols);i<sg->ColCount;i++)
columnaCambio->Items->AddObject(sg->Cells[i][0],(TObject *)i);
columnaCambio->ItemIndex = 0;
}
//---------------------------------------------------------------------------

BIN
mainFORM.ddp Normal file

Binary file not shown.

854
mainFORM.dfm Normal file
View File

@ -0,0 +1,854 @@
object Form1: TForm1
Left = 192
Top = 114
Width = 640
Height = 480
Caption = 'parser - infdj.com'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 632
Height = 66
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 8
Width = 90
Height = 20
Caption = 'Tabla actual:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object doFilter: TSpeedButton
Left = 309
Top = 2
Width = 28
Height = 28
Flat = True
Glyph.Data = {
76140000424D7614000000000000360000002800000048000000180000000100
18000000000040140000C40E0000C40E00000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF104A10104A10
104A10104A10FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FF2D2D2D2D2D2D2D2D2D2D2D2DFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FF063106063106063106063106FF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF104A10108C1839CE3939CE3963AD63428C
42FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF2D2D2D4E4E4E
838383838383888888676767FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF06
310606730B23C02323C0234898482A732AFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FF63AD63108C1839CE3939CE3939CE3963AD63428C42FF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF8888884E4E4E8383838383838383838888
88676767FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF48984806730B23C02323C023
23C0234898482A732AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF108C1839
CE3939CE3939CE3939CE3939CE39108C18FF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FF4E4E4E8383838383838383838383838383834E4E4EFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FF06730B23C02323C02323C02323C02323C0230673
0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FF63AD6321A52173DE7373DE7373DE73
39CE3939CE3963AD63108C18FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF88888863
6363A8A8A8A8A8A8A8A8A88383838383838888884E4E4EFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FF489848118F1158D45858D45858D45823C02323C02348984806730BFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF63AD63108C1873DE7373DE7373DE7373DE7373DE7373DE7339CE
39108C18FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FF8888884E4E4EA8A8A8A8A8A8A8A8A8
A8A8A8A8A8A8A8A8A88383834E4E4EFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF48984806730B58D45858
D45858D45858D45858D45858D45823C02306730BFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF108C18428C
4294F79C84EF8C94F79C84EF8439CE3973DE7373DE7373DE7339CE39108C18FF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF4E4E4E676767C5C5C5B9B9B9C5C5C5B9B9B9838383A8A8A8A8A8
A8A8A8A88383834E4E4EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FF06730B2A732A7BF4846AEA737BF4846AEA6A23C023
58D45858D45858D45823C02306730BFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FF108C1873DE7394F79C94F79C94F79C84
EF84108C1839CE3939CE3994F79C73DE7373DE73108C18FF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4E4E4EA8A8
A8C5C5C5C5C5C5C5C5C5B9B9B94E4E4E838383838383C5C5C5A8A8A8A8A8A84E
4E4EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
06730B58D4587BF4847BF4847BF4846AEA6A06730B23C02323C0237BF48458D4
5858D45806730BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FF63AD6373DE7394F79C94F79C84EF84108C18FF00FF428C42
39CE3984EF8494F79C73DE7373DE73108C18FF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF888888A8A8A8C5C5C5C5C5C5B9
B9B94E4E4EFF00FF676767838383B9B9B9C5C5C5A8A8A8A8A8A84E4E4EFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF48984858D4587BF4
847BF4846AEA6A06730BFF00FF2A732A23C0236AEA6A7BF48458D45858D45806
730BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
63AD6339CE3973DE7339CE39108C18FF00FFFF00FFFF00FF428C4239CE3984EF
8494F79C73DE7339CE39428C42FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FF888888838383A8A8A88383834E4E4EFF00FFFF00FF
FF00FF676767838383B9B9B9C5C5C5A8A8A8838383676767FF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FF48984823C02358D45823C02306730BFF
00FFFF00FFFF00FF2A732A23C0236AEA6A7BF48458D45823C0232A732AFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF63AD6363AD
6363AD63FF00FFFF00FFFF00FFFF00FFFF00FF108C1873DE7394F79C94F79C73
DE7363AD63FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF888888888888888888FF00FFFF00FFFF00FFFF00FFFF00FF4E4E
4EA8A8A8C5C5C5C5C5C5A8A8A8888888FF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FF489848489848489848FF00FFFF00FFFF00FFFF00FF
FF00FF06730B58D4587BF4847BF48458D458489848FF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FF108C1884EF8494F79C94F79C73DE73108C18
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4E4E4EB9B9B9C5
C5C5C5C5C5A8A8A84E4E4EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0673
0B6AEA6A7BF4847BF48458D45806730BFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FF63AD6384EF8494F79C94F79C73DE73428C42FF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF888888B9B9B9C5C5C5C5C5C5
A8A8A8676767FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4898486AEA6A7B
F4847BF48458D4582A732AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FF63AD6384EF8494F79C94F79C39CE3963AD63FF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF888888B9B9B9C5C5C5C5C5C58383838888
88FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4898486AEA6A7BF4847BF484
23C023489848FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF39
CE39BDFFBDBDFFBD94F79C39CE3963AD63FF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FF838383DEDEDEDEDEDEC5C5C5838383888888FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF23C023ABFFABABFFAB7BF48423C0234898
48FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF39CE39BDFFBD
BDFFBD94F79C39CE3963AD63FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FF838383DEDEDEDEDEDEC5C5C5838383888888FF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FF23C023ABFFABABFFAB7BF48423C023489848FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF39CE39BDFFBDBDFFBD94F7
9C63AD63FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
838383DEDEDEDEDEDEC5C5C5888888FF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FF23C023ABFFABABFFAB7BF484489848FF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FF39CE39BDFFBD73DE7363AD63FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF838383DEDE
DEA8A8A8888888FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
23C023ABFFAB58D458489848FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FF39CE3963AD63FF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF838383888888FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF23C0234898
48FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
NumGlyphs = 3
OnClick = doFilterClick
end
object Label2: TLabel
Left = 8
Top = 44
Width = 47
Height = 16
Caption = 'Cambio'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 152
Top = 44
Width = 84
Height = 16
Caption = 'de la columna'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 408
Top = 44
Width = 15
Height = 16
Caption = 'en'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 501
Top = 34
Width = 28
Height = 28
Flat = True
Glyph.Data = {
76140000424D7614000000000000360000002800000048000000180000000100
18000000000040140000C40E0000C40E00000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF104A10104A10
104A10104A10FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FF2D2D2D2D2D2D2D2D2D2D2D2DFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FF063106063106063106063106FF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF104A10108C1839CE3939CE3963AD63428C
42FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF2D2D2D4E4E4E
838383838383888888676767FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF06
310606730B23C02323C0234898482A732AFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FF63AD63108C1839CE3939CE3939CE3963AD63428C42FF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF8888884E4E4E8383838383838383838888
88676767FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF48984806730B23C02323C023
23C0234898482A732AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF108C1839
CE3939CE3939CE3939CE3939CE39108C18FF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FF4E4E4E8383838383838383838383838383834E4E4EFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FF06730B23C02323C02323C02323C02323C0230673
0BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FF63AD6321A52173DE7373DE7373DE73
39CE3939CE3963AD63108C18FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF88888863
6363A8A8A8A8A8A8A8A8A88383838383838888884E4E4EFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FF489848118F1158D45858D45858D45823C02323C02348984806730BFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF63AD63108C1873DE7373DE7373DE7373DE7373DE7373DE7339CE
39108C18FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FF8888884E4E4EA8A8A8A8A8A8A8A8A8
A8A8A8A8A8A8A8A8A88383834E4E4EFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF48984806730B58D45858
D45858D45858D45858D45858D45823C02306730BFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF108C18428C
4294F79C84EF8C94F79C84EF8439CE3973DE7373DE7373DE7339CE39108C18FF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF4E4E4E676767C5C5C5B9B9B9C5C5C5B9B9B9838383A8A8A8A8A8
A8A8A8A88383834E4E4EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FF06730B2A732A7BF4846AEA737BF4846AEA6A23C023
58D45858D45858D45823C02306730BFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FF108C1873DE7394F79C94F79C94F79C84
EF84108C1839CE3939CE3994F79C73DE7373DE73108C18FF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4E4E4EA8A8
A8C5C5C5C5C5C5C5C5C5B9B9B94E4E4E838383838383C5C5C5A8A8A8A8A8A84E
4E4EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
06730B58D4587BF4847BF4847BF4846AEA6A06730B23C02323C0237BF48458D4
5858D45806730BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FF63AD6373DE7394F79C94F79C84EF84108C18FF00FF428C42
39CE3984EF8494F79C73DE7373DE73108C18FF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF888888A8A8A8C5C5C5C5C5C5B9
B9B94E4E4EFF00FF676767838383B9B9B9C5C5C5A8A8A8A8A8A84E4E4EFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF48984858D4587BF4
847BF4846AEA6A06730BFF00FF2A732A23C0236AEA6A7BF48458D45858D45806
730BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
63AD6339CE3973DE7339CE39108C18FF00FFFF00FFFF00FF428C4239CE3984EF
8494F79C73DE7339CE39428C42FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FF888888838383A8A8A88383834E4E4EFF00FFFF00FF
FF00FF676767838383B9B9B9C5C5C5A8A8A8838383676767FF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FF48984823C02358D45823C02306730BFF
00FFFF00FFFF00FF2A732A23C0236AEA6A7BF48458D45823C0232A732AFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF63AD6363AD
6363AD63FF00FFFF00FFFF00FFFF00FFFF00FF108C1873DE7394F79C94F79C73
DE7363AD63FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF888888888888888888FF00FFFF00FFFF00FFFF00FFFF00FF4E4E
4EA8A8A8C5C5C5C5C5C5A8A8A8888888FF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FF489848489848489848FF00FFFF00FFFF00FFFF00FF
FF00FF06730B58D4587BF4847BF48458D458489848FF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FF108C1884EF8494F79C94F79C73DE73108C18
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4E4E4EB9B9B9C5
C5C5C5C5C5A8A8A84E4E4EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0673
0B6AEA6A7BF4847BF48458D45806730BFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FF63AD6384EF8494F79C94F79C73DE73428C42FF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF888888B9B9B9C5C5C5C5C5C5
A8A8A8676767FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4898486AEA6A7B
F4847BF48458D4582A732AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FF63AD6384EF8494F79C94F79C39CE3963AD63FF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF888888B9B9B9C5C5C5C5C5C58383838888
88FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4898486AEA6A7BF4847BF484
23C023489848FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF39
CE39BDFFBDBDFFBD94F79C39CE3963AD63FF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FF838383DEDEDEDEDEDEC5C5C5838383888888FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF23C023ABFFABABFFAB7BF48423C0234898
48FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF39CE39BDFFBD
BDFFBD94F79C39CE3963AD63FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FF838383DEDEDEDEDEDEC5C5C5838383888888FF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FF23C023ABFFABABFFAB7BF48423C023489848FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF39CE39BDFFBDBDFFBD94F7
9C63AD63FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
838383DEDEDEDEDEDEC5C5C5888888FF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FF23C023ABFFABABFFAB7BF484489848FF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FF39CE39BDFFBD73DE7363AD63FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF838383DEDE
DEA8A8A8888888FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
23C023ABFFAB58D458489848FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FF39CE3963AD63FF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF838383888888FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF23C0234898
48FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
NumGlyphs = 3
OnClick = SpeedButton1Click
end
object filelist: TComboBox
Left = 112
Top = 8
Width = 193
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'filelist'
end
object Panel2: TPanel
Left = 544
Top = 1
Width = 87
Height = 64
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object btPost: TSpeedButton
Left = 59
Top = 2
Width = 28
Height = 28
Flat = True
Glyph.Data = {
76140000424D7614000000000000360000002800000048000000180000000100
18000000000040140000C40E0000C40E00000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF90403F90403F9040
3F90403FB0989FB0989FB0989FB0989FB0989FB0989FB0989FB0989FB0989FB0
989FB0989F90403F90403F90403F90403FFF00FFFF00FFFF00FFFF00FFFF00FF
8F888F8F888F8F888F8F888FA0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0
A0A0A0A0A0A0A0A0A0A0A0A0A08F888F8F888F8F888F8F888FFF00FFFF00FFFF
00FFFF00FFFF00FF7F282F7F282F7F282F7F282FA08080A08080A08080A08080
A08080A08080A08080A08080A08080A08080A080807F282F7F282F7F282F7F28
2FFF00FFFF00FFFF00FFFF00FF90403FC06860D06060CF6060C0585FA07070EF
E0E0D0C8CFD0C0BFEFD8DFF0F0EFF0F0EFEFE0E0E0E0E0E0E0E0C0787F90282F
9F3030BF5050BF586090403FFF00FFFF00FFFF00FF8F888FAFA8AFB0B0B0B0B0
B0AFA8AFAFA8AFD0D0D0C0C0C0BFB8BFD0D0D0E0E0E0E0E0E0DFD8DFD0D0D0D0
D0D0A0A0A08080808F888FA0A0A0AFA8AF8F888FFF00FFFF00FFFF00FF7F282F
B0484FC0484FBF484FB040408F585FE0D8DFCFB8BFC0A8AFE0C8CFF0E8E0F0E8
EFE0D8DFDFE0DFDFE0DFB060607F1810802020A0383FAF40407F282FFF00FFFF
00FFFF00FF90403FC0686FD06060D0686FCF6060A05050EFE0E090282F90282F
BF6860F0E8EFFFF8FFFFF8F0F0F8F0F0F8F0C0787F9020209F3030BF5050C060
6090403FFF00FFFF00FFFF00FF8F888FB0B0B0B0B0B0B0B0B0B0B0B09F989FD0
D0D0808080808080AFA8AFE0E0E0EFE8EFEFE8EFE0E0E0E0E0E0A0A0A0808080
8F888FA0A0A0AFA8AF8F888FFF00FFFF00FFFF00FF7F282FB0504FC0484FC048
4FBF40408F383FE0D8DF7F10107F1010AF484FF0E0E0FFF8FFFFF0F0EFF0F0EF
F0F0B060607F1010802020AF383FB0484F7F282FFF00FFFF00FFFF00FF90403F
C0686FD06060CF686FCF585FA0585FEFE0E090282F90282FC0686FEFD8DFFFF8
F0FFF8F0FFF8FFFFF8FFC0787F9020209F3030BF5050C0606090403FFF00FFFF
00FFFF00FF8F888FB0B0B0B0B0B0B0B0B0AFA8AF9F989FD0D0D0808080808080
B0B0B0D0D0D0EFE8EFEFE8EFEFE8EFEFE8EFA0A0A08080808F888FA0A0A0AFA8
AF8F888FFF00FFFF00FFFF00FF7F282FB0504FC0484FC0484FBF40408F4040E0
D8DF7F10107F1010B05050E0D0D0FFF8F0FFF8F0FFF8FFFFF8FFB060607F1010
802020A0383FB040407F282FFF00FFFF00FFFF00FF90403FC0686FD06060CF68
6FC0585FA0585FEFE0E090282F90282FC0686FDFC8CFF0E8EFFFF0F0FFF8FFFF
F8FFC0787F9020209F3030BF5050C0606090403FFF00FFFF00FFFF00FF8F888F
B0B0B0B0B0B0B0B0B0AFA8AF9F989FD0D0D0808080808080B0B0B0C0C0C0DFD8
DFEFE8EFEFE8EFEFE8EFA0A0A08080808F888FA0A0A0AFA8AF8F888FFF00FFFF
00FFFF00FF7F282FB0504FC0484FC0484FB040408F4040E0D8DF7F10107F1010
B05050CFC0BFEFE8E0FFF0F0FFF8FFFFF8FFB060607F1010802020A0383FB040
407F282FFF00FFFF00FFFF00FF90403FC0686FD06060CF686FC0585FA0585FEF
E0E090282F90282FC0686FC0B0B0DFD8DFF0E8EFFFF8FFFFF8FFC0787F902020
9F3030BF5050C0606090403FFF00FFFF00FFFF00FF8F888FB0B0B0B0B0B0B0B0
B0AFA8AFA0A0A0D0D0D0808080808080B0B0B0AFA8AFCFC8CFDFD8DFEFE8EFEF
E8EFA0A0A08080808F888FA0A0A0AFA8AF8F888FFF00FFFF00FFFF00FF7F282F
B0504FC0484FC0484FB04040904040E0D8DF7F10107F1010B05050B0A09FD0D0
D0EFE0E0FFF8FFFFF8FFB060607F1010802020A0383FB040407F282FFF00FFFF
00FFFF00FF90403FC0686FD06060CF686FC0585FAF585FEFE0E090282F90282F
C0686FA0989FBFC0BFDFD8DFFFF8FFFFF8FFC0787F8F20209F3030BF5050C060
6090403FFF00FFFF00FFFF00FF8F888FB0B0B0B0B0B0B0B0B0AFA8AFA0A0A0D0
D0D0808080808080B0B0B08F888FAFA8AFCFC8CFEFE8EFEFE8EFA0A0A07F787F
8F888FA0A0A0AFA8AF8F888FFF00FFFF00FFFF00FF7F282FB0504FC0484FC048
4FB04040904040E0D8DF7F10107F1010B050508F8080A0A8AFD0D0D0FFF8FFFF
F8FFB0606070101080181FA0383FB040407F282FFF00FFFF00FFFF00FF90403F
C0686FD06060CF6060C0585FB0585FEFE0E0EFE0E0EFE0E0EFE0E0EFE0E0EFE0
E0EFE0E0EFE0E0EFE0E0C0787F9F3030A0383FBF5050C0606090403FFF00FFFF
00FFFF00FF8F888FB0B0B0B0B0B0B0B0B0AFA8AFA0A0A0D0D0D0D0D0D0D0D0D0
D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0A0A0A08F888F909090A0A0A0AFA8
AF8F888FFF00FFFF00FFFF00FF7F282FB0504FC0484FBF484FB040409F4040E0
D8DFE0D8DFE0D8DFE0D8DFE0D8DFE0D8DFE0D8DFE0D8DFE0D8DFB0606080181F
8F2020AF383FB040407F282FFF00FFFF00FFFF00FF90403FC0686FD06060CF60
60CF6060C06060CF7070DF9090DF9090DF888FDF888FD08080D08080D08080CF
7070C0585FC0585FC0585FCF6060C0606090403FFF00FFFF00FFFF00FF8F888F
B0B0B0B0B0B0B0B0B0B0B0B0AFA8AFBFB8BFCFC8CFCFC8CFC0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0BFB8BFAFA8AFAFA8AFAFA8AFB0B0B0AFA8AF8F888FFF00FFFF
00FFFF00FF7F282FB0504FC0484FBF484FBF484FB04040BF585FCF7070D0787F
CF7070CF686FCF686FC0686FC0686FC0585FB04040B04040B04040BF484FB040
407F282FFF00FFFF00FFFF00FF90403FD06060D06060C0585FC06060CF686FCF
686FCF6860CF686FCF686FCF686FCF6860CF6860CF6060CF686FCF7070CF7070
CF7070CF686FC0586090403FFF00FFFF00FFFF00FF8F888FB0B0B0B0B0B0AFA8
AFB0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0
B0B0BFB8BFBFB8BFBFB8BFB0B0B0AFA8AF8F888FFF00FFFF00FFFF00FF7F282F
C0484FC0484FB04040B0484FBF5050BF504FBF484FBF484FBF484FBF484FBF48
4FBF484FBF484FBF504FC05850C0585FC05050C0484FB040407F282FFF00FFFF
00FFFF00FF90403FD06060D06060D0A0A0D0A0A0D0A0A0DFA0A0DFA0A0DFA0A0
DFA0A0DFA0A0DFA0A0DFA0A0DFA0A0DFA0A0DFA0A0DFA0A0D0A0A0CF7070D060
6090403FFF00FFFF00FFFF00FF8F888FB0B0B0B0B0B0BFB8BFBFB8BFBFB8BFBF
B8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BF
BFB8BFBFB8BFB0B0B08F888FFF00FFFF00FFFF00FF7F282FC0484FC0484FCF88
8FCF888FCF888FCF908FCF908FCF908FCF908FCF908FCF908FCF908FCF908FCF
908FCF908FCF908FCF908FC05050C0484F7F282FFF00FFFF00FFFF00FF90403F
D06060D06060E0C0C0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8
FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFE0C0C0C06060D0606090403FFF00FFFF
00FFFF00FF8F888FB0B0B0B0B0B0BFB8BFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EF
EFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFC0C0C0B0B0B0B0B0
B08F888FFF00FFFF00FFFF00FF7F282FC0484FC0484FD0B0B0FFF8FFFFF8FFFF
F8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FF
DFB0B0B0484FC0484F7F282FFF00FFFF00FFFF00FF90403FD06060D06060E0C8
C0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFF
F8FFFFF8FFFFF8FFE0C0C0C06060D0606090403FFF00FFFF00FFFF00FF8F888F
B0B0B0B0B0B0C0C0C0EFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8
EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFC0C0C0AFA8AFB0B0B08F888FFF00FFFF
00FFFF00FF7F282FC0484FC0484FDFB8B0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FF
FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFDFB0B0B0484FC048
4F7F282FFF00FFFF00FFFF00FF90403FD06060D06060E0C0C0FFF8FFFFF8FFCF
C8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFFFF8FFFFF8FF
E0C0C0C06060D0606090403FFF00FFFF00FFFF00FF8F888FB0B0B0B0B0B0BFB8
BFEFE8EFEFE8EFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCF
C8CFEFE8EFEFE8EFC0C0C0AFA8AFB0B0B08F888FFF00FFFF00FFFF00FF7F282F
C0484FC0484FDFB0B0FFF8FFFFF8FFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8
BFBFB8BFBFB8BFBFB8BFFFF8FFFFF8FFDFB0B0B0484FC0484F7F282FFF00FFFF
00FFFF00FF90403FD06060D06060E0C0C0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FF
FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFE0C0C0C06060D060
6090403FFF00FFFF00FFFF00FF8F888FB0B0B0B0B0B0BFB8BFEFE8EFEFE8EFEF
E8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EF
C0C0C0AFA8AFB0B0B08F888FFF00FFFF00FFFF00FF7F282FC0484FC0484FDFB0
B0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFF
F8FFFFF8FFFFF8FFDFB0B0B0484FC0484F7F282FFF00FFFF00FFFF00FF90403F
D06060D06060E0C0C0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8
FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFE0C0C0C06060D0606090403FFF00FFFF
00FFFF00FF8F888FB0B0B0B0B0B0BFB8BFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EF
EFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFC0C0C0AFA8AFB0B0
B08F888FFF00FFFF00FFFF00FF7F282FC0484FC0484FDFB0B0FFF8FFFFF8FFFF
F8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FF
DFB0B0B0484FC0484F7F282FFF00FFFF00FFFF00FF90403FD06060D06060E0C0
C0FFF8FFFFF8FFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCF
C8CFFFF8FFFFF8FFE0C0C0C06060D0606090403FFF00FFFF00FFFF00FF8F888F
B0B0B0B0B0B0BFB8BFEFE8EFEFE8EFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8
CFCFC8CFCFC8CFCFC8CFEFE8EFEFE8EFC0C0C0AFA8AFB0B0B08F888FFF00FFFF
00FFFF00FF7F282FC0484FC0484FDFB0B0FFF8FFFFF8FFBFB8BFBFB8BFBFB8BF
BFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFFFF8FFFFF8FFDFB0B0B0484FC048
4F7F282FFF00FFFF00FFFF00FF90403FD06060D06060E0C0C0FFF8FFFFF8FFFF
F8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FF
E0C0C0C06060D0606090403FFF00FFFF00FFFF00FF8F888FB0B0B0B0B0B0BFB8
BFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEF
E8EFEFE8EFEFE8EFC0C0C0AFA8AFB0B0B08F888FFF00FFFF00FFFF00FF7F282F
C0484FC0484FDFB0B0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8
FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFDFB0B0B0484FC0484F7F282FFF00FFFF
00FFFF00FF90403FD06060D06060E0C0C0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FF
FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFE0C0C0C06060D060
6090403FFF00FFFF00FFFF00FF8F888FB0B0B0B0B0B0BFB8BFEFE8EFEFE8EFEF
E8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EF
C0C0C0AFA8AFB0B0B08F888FFF00FFFF00FFFF00FF7F282FC0484FC0484FDFB0
B0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFF
F8FFFFF8FFFFF8FFDFB0B0B0484FC0484F7F282FFF00FFFF00FFFF00FF90403F
D06060D06060E0C0C0FFF8FFFFF8FFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8
CFCFC8CFCFC8CFCFC8CFFFF8FFFFF8FFE0C0C0C06060D0606090403FFF00FFFF
00FFFF00FF8F888FB0B0B0B0B0B0BFB8BFEFE8EFEFE8EFCFC8CFCFC8CFCFC8CF
CFC8CFCFC8CFCFC8CFCFC8CFCFC8CFCFC8CFEFE8EFEFE8EFC0C0C0B0B0B0B0B0
B08F888FFF00FFFF00FFFF00FF7F282FC0484FC0484FDFB0B0FFF8FFFFF8FFBF
B8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFBFB8BFFFF8FFFFF8FF
DFB0B0B0484FC0484F7F282FFF00FFFF00FFFF00FF90403FD06060D06060DFC0
C0FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFF
F8FFFFF8FFFFF8FFE0C8C0D06060D0606090403FFF00FFFF00FFFF00FF8F888F
B0B0B0B0B0B0BFB8BFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8
EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFC0C0C0B0B0B0B0B0B08F888FFF00FFFF
00FFFF00FF7F282FC0484FC0484FD0B0AFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FF
FFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFDFB8B0C0484FC048
4F7F282FFF00FFFF00FFFF00FFFF00FF90403F90403FCFB0B0FFF8FFFFF8FFFF
F8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FF
E0C8C090403F90403FFF00FFFF00FFFF00FFFF00FFFF00FF8F888F8F888FAFA8
AFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEFE8EFEF
E8EFEFE8EFEFE8EFC0C0C08F888F8F888FFF00FFFF00FFFF00FFFF00FFFF00FF
7F282F7F282FC0A09FFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8
FFFFF8FFFFF8FFFFF8FFFFF8FFFFF8FFE0B8B07F282F7F282FFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
NumGlyphs = 3
ParentShowHint = False
ShowHint = True
OnClick = btPostClick
end
object btVerDetalles: TSpeedButton
Left = 8
Top = 2
Width = 28
Height = 28
Hint = 'Mostrar mas opciones...'
AllowAllUp = True
GroupIndex = 1
Flat = True
Glyph.Data = {
76140000424D7614000000000000360000002800000048000000180000000100
18000000000040140000110B0000110B000000000000000000008C00ECF5887C
F5887CF5887CF5887CF5887CF5887CF5887CF5887CF5887CF5887CF5887CF588
7CF5887CF5887CF5887CF5887CF5887CF5887CF5887CF5887CF5887CF582758C
00EC8C00EC311B19311B19311B19311B19311B19311B19311B19311B19311B19
311B19311B19311B19311B19311B19311B19311B19311B19311B19311B19311B
19311B198C00EC8C00EC8C00ECE37E73E17D72DE7B70DA796ED4766BCD7268C4
6D63B9675EAD6058A0595193524A874B457E46407E4640844943874B458A4D46
8C4E478E4F488F4F488F4F488C00EC8C00ECF68E83FAB8B3FAB7B2FAB7B2FAB7
B2FAB7B2FAB7B2FAB7B2FAB7B2FAB7B2FAB7B2FAB7B2FAB7B2FAB7B2FAB7B2FA
B7B2FAB7B2FAB7B2FAB7B2FAB7B2FAB7B2FAB9B5F791878C00EC311C1A322524
3225243225243225243225243225243225243225243225243225243225243225
2432252432252432252432252432252432252432252432252432252440183D8C
00ECE8867BEAACA8E8AAA5E5A8A3E1A5A1DCA19CD49B97CA9490BE8B87B1827E
A37774946C698662607F5D5B8763608E6865946C69986F6C9B716E9D73709E74
709E7572994C6E8C00ECF8A097FFC8C9FFC7C8FFC7C7FFCACAFFC9C9FFC7C7FF
C7C8FFC7C7FFC8C9FFCACBFFC7C7FFC7C8FFC7C8FFC7C8FFCBCBFFC8C8FFC7C7
FFC7C8FFC7C7FFCACAFFCBCCF9A39B8C00EC32201E3328283328283328283328
2833282833282833282833282833282833282933282833282833282833282833
2929332828332828332828332828332828332929421B428C00ECEB988FF1BDBE
EFBBBBECB8B8E7B7B7E1B1B1D9A9A9CFA2A2C29797B38C8DA381829272728265
668A6C6C9574759D7D7DA38080A88383AC8687AE8888AF8B8BAF8B8CA55C808C
00ECF79C93FFC7C7FFCACAFFC5C5E3B9B9EDBDBDFFC5C5FFCCCCFFC7C7F3C0C0
DFB8B8FFC4C4FFCACAFFC8C8FFC3C3DBB6B6FBC2C2FFC7C7FFCACAFFC5C5E3B9
B9EDBFC0FCA0988C00EC311F1D3328283328283327272D25252F262633272733
29293328283126262D25253327273328283328283327272C2424322727332828
3328283327272D25252F2626421A428C00ECEB958CF2BDBDF0BEBEEDB7B7CFA8
A8D2A8A8D9A8A8CEA5A5C09696A885858971718A6A6A876B6B967676A27C7C93
7A7AAF8787B78F8FBB9494BE9393AA8B8BB18E8FB362868C00ECFCB0A9E7C4C4
C2A8A8FFE3E3A59D9DC6B1B1FFDCDCBAA1A1F8D1D1D4BABA9A9696FFE3E3C9AE
AEDDBCBCFFDADA8B8D8DF9D2D2E8C5C5C2A8A8FFE3E3A59D9DC5B3B4FFCFCC8C
00EC3223222E2727272222332D2D211F1F282323332C2C252020322A2A2A2525
1F1E1E332D2D2823232C2626332C2C1C1C1C322A2A2E2727272222332D2D211F
1F3C1D4D44214E8C00ECF0A8A1DBBABAB79E9EEDD3D3968F8FAF9C9CD8BABA95
8181B79A9A8D7C7C5A58588072727464648D7878B09696656767BC9F9FB59A9A
9A8686CDB6B6857F7F9B73A4C087B18C00ECFFC4C4F0C6C7D8B4B4FFDBDBE3BD
BEEDC5C6FED4D5C3A2A2CDA6A6CFACADD8B3B4FFDBDCDDBABBEAC3C4FFD7D7DB
B6B7FFD3D4F1C9C9D8B7B8FFD7D8E3B6B6EDBFBF8C00EC8C00EC332727302828
2B2424332C2C2D26262F2728332A2B2720202921212922232B2424332C2C2C25
252F2727332B2B2C2425332A2A3028282B2525452252401D4D421E4E8C00EC8C
00ECF3BBBBE4BCBDCAA9A9ECCBCBCDAAABCFACADD4B1B2997F7F937777846E6F
7762638A77778A7475A28787BD9F9FAB8E8FCEAAABC7A6A6B69A9BC992C3B77C
ACBD82B28C00EC8C00ECF5E0DEFEACA5FFB5AEF6867BFD9085FC8E84F3877D97
8483AC9E9DA85E57D57A71EA837AFA8E84FB8E84F78B80FF9187F78B81FA8D83
FE887CF6B2AC8C00EC8C00EC8C00EC8C00EC312D2C332221332423311B19331D
1B321C1A311B191E1A1A22201F2213112B18172F1A18321C1A321C1A311C1A33
1D1B311C1A321C1A41173A411E468C00EC8C00EC8C00EC8C00ECE9D5D3F0A39C
EEA9A2E27B71E28177D97B72C76F66736564776E6D6639356D3E3A894D47A75F
58B86861C26D64D1776FD1766DD97A72D26481CC81A78C00EC8C00EC8C00EC8C
00ECF1E6E3F9A89FFECFCBFDA99EFDACA3FDACA3FDACA28D8586636A6E8B7F87
9B6761BB7F77DB938AF8A9A0FEAEA4FDACA3FDAFA6FB988DF39B908C00EC8C00
EC8C00EC8C00EC8C00EC302E2D3222203329293322203322213322213322201C
1B1B1415161C191B1F15132519182C1D1C32222033232133222133232140193D
3F1A3D8C00EC8C00EC8C00EC8C00EC8C00ECE3D8D6E99D95EBC0BCE69A90DF98
90D6928ACB8A8269636342464950494D523733754F4A9B6861C0837CD08F86D7
928BDD9991D3738FCF76938C00EC8C00EC8C00EC8C00EC8C00ECF2E4E1F9A9A2
FFD9D8FFC0B9FFC4BEFFC5BFFFC5BFF2BEBA8CAAC24069914D6583867F8BB282
7CDDA6A1FBBFB9FFC6C1FEB9B3F7BDB78C00EC8C00EC8C00EC8C00EC8C00EC8C
00EC302E2D322220332B2B3326253327263327263327263026251C22270D151D
0F141A1B191C241A192C2120322625332827431E48411F498C00EC8C00EC8C00
EC8C00EC8C00EC8C00ECE2D5D2E69C96E9C6C5E4ACA5DDAAA5D4A49FC79A95AD
8885586B7A22384E2B394A58545C84605CB18581D4A19CDFADA9D488AFD28EB3
8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECF2E4E1F9A9A1FFDADAFFC5C5FEC3
C2FDB8B5FEB5B2FCB6B4BCC1CF739DC2345F8C3E6389828590AE817FDEAEAEF7
C2C0F7BFBA8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC302E2D322220
332C2C332727332727332524332424322424262729171F270A131C0C141B1A1B
1D231A192C2323431F4D411F498C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C
00ECDED1CEE39A92E5C4C4E0ADADD7A5A4CC9592BF8886AD7D7C71747C3A4F61
1F39542B455F64666F8F6A69C09696CD8BB9D28FB68C00EC8C00EC8C00EC8C00
EC8C00EC8C00EC8C00ECF2E4E1F9A9A1FFDADAFFC9CAFAA49DF4A299F5B7B0F8
B7AFE8978F90B4D46A98BF219AC729A6C9777E87AE7B77E3AAA38C00EC8C00EC
8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC302E2D322220332C2C332828421B
42401B41411F46421F463E19411D242A151E26071F2808212818191B3714403D
1C448C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECD9CDCADE968F
DFBFBFDAACADC26F93B5698AAB6D929D628785466C4D6071436179186F902083
9E646A72975882C37FA38C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C
00ECF2E4E1F9A9A1FFDADAFFCBCCFA928A8C00EC8C00EC8C00ECF6B0ABCFCAD5
ACD7EB47DCFF05CEFF35AFD0716C728C00EC8C00EC8C00EC8C00EC8C00EC8C00
EC8C00EC8C00EC8C00EC302E2D322220332C2C3329294218408C00EC8C00EC8C
00EC411D4629282B222B2F0E2C330129330B232A3211478C00EC8C00EC8C00EC
8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECD4C7C5D7928BD8B9B9D2A7A8BB5F
838C00EC8C00EC8C00EC844C75757278728E9C35A4BE04A6CE2D96B26E4A848C
00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECF2E4E1F9A9A1
FFDADAFFCBCCFA938B8C00EC8C00ECFBABA5FFC6C5F0C5C7C8E6F1B9F0FC35D7
FF05CCFE37ABCD9CB3BB8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C
00EC302E2D322220332C2C3329294218408C00EC8C00EC421C4644204E302728
282E302530320B2B330129331B1E41391C548C00EC8C00EC8C00EC8C00EC8C00
EC8C00EC8C00EC8C00ECCBBFBDCE8C85CFB1B1C9A0A1B45C808C00EC8C00EC91
517982507E8F7577899EA58DB7C02BB0D104B0DB3C86BE8E7DBB8C00EC8C00EC
8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECF2E4E1F9A9A1FFDADAFFCBCCF998
918C00ECFBB4AFFFC7C7FFC7C7F7C2C2CFCAD4CBE9F4B7F0FE31D6FF07C9FB34
9FBE99AFB88C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC302E2D322220
332C2C3329294219418C00EC421E4745205033282831272729282A292F312530
330A2B330128321F1B47391B548C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C
00ECC2B6B4C4857FC5A8A8BE9798AB597E8C00EC985B838B5686886A6A997878
928F969EB5BD97C7D22BBADE06B5E13F7BB98E7DBB8C00EC8C00EC8C00EC8C00
EC8C00EC8C00EC8C00ECF2E4E1F9A9A1FFDADAFFC9CAFAA6A0FBA49EFFC7C8FF
C8C8FFC6C6FFCAC9FBB7B3CAB2B6CEEDF9B2F0FE2BD5FF0AC8F9339EBC97AFB8
8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC302E2D322220332C2C332828421B
45421B45452050332828332828332828431E4A3E1C503C2656243033092B3302
28321F1B47381B548C00EC8C00EC8C00EC8C00EC8C00EC8C00ECB6ACA9B97D77
B99E9EB38D8EA35B829B557D925C8C8468688E6E6EA28080AC6A949A6DA3A59E
D59BD1DD27BFE509B8E43F7BB98E7EBC8C00EC8C00EC8C00EC8C00EC8C00EC8C
00ECF2E4E1F9A9A1FFDADAFFC4C4FEC3C2FFC6C6FFC8C8FFC6C6FFCACAFEBBB8
F8B6AF8C00ECCCDFE9C3E3EEA5ECFD26D5FF09C7F63499B897AFB88C00EC8C00
EC8C00EC8C00EC8C00EC302E2D322220332C2C33272733272733282833282833
2828332828441E4A421E468C00EC41225D3F225C212F33082B3302283122194A
381B548C00EC8C00EC8C00EC8C00EC8C00ECABA19FAD7570AD9494A881819F7A
7A9775758C6E6E826565937474A0638EAD6D928C00ECA38CCCA297D594D3E223
C3E908B8E44274B88E7EBC8C00EC8C00EC8C00EC8C00EC8C00ECF2E4E1F9A9A1
FFDADAFFC4C4FFC7C7FEC6C6FEC4C4FFCACAFDBBB8F6B5AE8C00EC8C00EC8C00
ECCBDDE6BFE3F096EAFF19D3FF10C2F33494B195B1BB8C00EC8C00EC8C00EC8C
00EC302E2D322220332C2C332727332828332828332727332828441E4A411E46
8C00EC8C00EC8C00EC40225B3E225C1E2F33052A3303273125184C391A558C00
EC8C00EC8C00EC8C00EC9E9593A16D68A18A8A9D79799776768E6F6F84666687
6B6B9359849D62878C00EC8C00EC8C00ECA792CFA29ADA88D4E717C2EA0FB4E2
446EB38B7DBE8C00EC8C00EC8C00EC8C00ECF3E4E1F9A9A1FFDADAFFC3C3FEC5
C5FEC5C5FFCACBFEBBB8F7B6AE8C00EC8C00EC8C00EC8C00EC8C00ECCBDDE7BC
E3F182E5FD12D2FF19C1EC3E8399949DA28C00EC8C00EC8C00EC312E2D322220
332C2C332727332727332727332829441E4A411E468C00EC8C00EC8C00EC8C00
EC8C00EC41215C3E225C1A2E33042A3305272F31125A36184D8C00EC8C00EC8C
00EC958B8A9666619781819471718E6E6E8769698065668A537E92597F8C00EC
8C00EC8C00EC8C00EC8C00ECA993D3A19BDC76CFE510C0E917B2D95156A98970
A88C00EC8C00EC8C00ECF7E6E2F9A9A1FFDADBFFC3C3FFC3C3FFCCCDFDBAB7F7
B6AF8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECCDDEE7B5E1F178E4FD
4FC6E57F8D92443E3D8D8C898C00EC8C00EC312E2D322220332C2C3327273327
27332929441E4A411E468C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC40
225B3D225E182E3310282E191C1D270A383117428C00EC8C00EC8D84818E605C
8F7A7B8C6B6B886868836969844E798A54798C00EC8C00EC8C00EC8C00EC8C00
EC8C00EC8C00ECAB95D39C97DC6CCDE347B3CF737F844C2D5A81658F8C00EC8C
00ECF7E6E2F9A9A1FFDADAFFC3C3FFCDCEFDB9B5F7B7B08C00EC8C00EC8C00EC
8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECD0E1E9C8DCE2C4C3C4B7B2AE8D8C
85393844736E9C8C00EC312E2D322220332C2C332727332929441E4A411F468C
00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC41225B3F2258
2727272524231C1C1B2B0846440E6E8C00EC877D7B885C58897575876767846A
6B814B76834F758C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C
00ECAB95D2A794CFACABACA19C997B7A74482567723AAD8C00ECF7E6E2F9A9A1
FFD9D9FFCBCCFDB8B5F7B8B08C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00
EC8C00EC8C00EC8C00EC8C00ECE4E3E3D2D1CBBBC1CF6E7DB5303A8C10107263
5A9D312E2D322220332B2B332929441E4A411F468C00EC8C00EC8C00EC8C00EC
8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC4124543C224C2527291619
240A0C1C5201924C0A7E837A78835955857171836869824B77804E738C00EC8C
00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECB699C9
AB91B89EA3AF5D69992830745606AF6B27B1F7E6E2F9A8A0FFE0E1FDB7B3F7B8
B08C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C
00EC8C00EC8C00ECD4DAE68199DA4B67CC2E45B82833972534A0312E2D322220
332D2D441E4A411F468C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00
EC8C00EC8C00EC8C00EC8C00EC8C00EC43215E4E11830F1529090E25080A1E07
0A20807775805652827273824B767F4C728C00EC8C00EC8C00EC8C00EC8C00EC
8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECA384C77844CB3C52
A32437921F28761C287AF7E6E2F9ABA4FECAC8F7B6AD8C00EC8C00EC8C00EC8C
00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC
8C00ECB1C0E9738EDA5E79D04863C6DDE3F4312E2D32222144204E401E448C00
EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C
00EC8C00EC8C00EC8C00EC4918734F0F8813182A0E14282C2D317E75737E5753
82527F7F4C708C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00
EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC895DC67038C7465A9B3549919F
A3AF8C00ECF7958AF8B7AF8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC
8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00ECB3C1
E97893DED0D7ED8C00EC8C00EC311E1C421F468C00EC8C00EC8C00EC8C00EC8C
00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC
8C00EC8C00EC4A1973181D2C2A2B2F1C002F8C00EC7C4B457F4C728C00EC8C00
EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C00EC8C
00EC8C00EC8C00EC8C00EC8C00EC8357BE54679B8F94A35E009F}
NumGlyphs = 3
ParentShowHint = False
ShowHint = True
OnClick = btVerDetallesClick
end
end
object tipoCambio: TComboBox
Left = 64
Top = 40
Width = 81
Height = 21
ItemHeight = 13
TabOrder = 2
Text = 'porcentual'
Items.Strings = (
'lineal'
'porcentual')
end
object columnaCambio: TComboBox
Left = 240
Top = 40
Width = 169
Height = 21
ItemHeight = 13
TabOrder = 3
Text = 'ComboBox1'
Items.Strings = (
'lineal'
'porcentual')
end
object Edit1: TEdit
Left = 432
Top = 40
Width = 49
Height = 21
TabOrder = 4
Text = '0'
end
object UpDown1: TUpDown
Left = 481
Top = 40
Width = 16
Height = 21
Associate = Edit1
Min = 0
Increment = 10
Position = 0
TabOrder = 5
Wrap = False
end
end
object sg: TStringGrid
Left = 0
Top = 66
Width = 632
Height = 380
Align = alClient
ColCount = 1
FixedCols = 0
RowCount = 1
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
TabOrder = 1
end
end

55
mainFORM.h Normal file
View File

@ -0,0 +1,55 @@
//---------------------------------------------------------------------------
#ifndef mainFORMH
#define mainFORMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TPanel *Panel1;
TLabel *Label1;
TComboBox *filelist;
TStringGrid *sg;
TSpeedButton *doFilter;
TPanel *Panel2;
TSpeedButton *btPost;
TSpeedButton *btVerDetalles;
TLabel *Label2;
TComboBox *tipoCambio;
TLabel *Label3;
TComboBox *columnaCambio;
TLabel *Label4;
TEdit *Edit1;
TUpDown *UpDown1;
TSpeedButton *SpeedButton1;
void __fastcall btPostClick(TObject *Sender);
void __fastcall btVerDetallesClick(TObject *Sender);
void __fastcall SpeedButton1Click(TObject *Sender);
void __fastcall doFilterClick(TObject *Sender);
private: // User declarations
bool __fastcall emptyLine( char *line );
bool __fastcall getPRE(char *line, char *pre);
bool __fastcall getHEAD( char *line, int *width, char *text );
bool __fastcall getFIXED_ROWS( char *line, int *fr );
bool __fastcall getANDsetDATA( char *line );
bool __fastcall loadFile(AnsiString filename);
bool __fastcall readline(FILE *f,char *line);
bool __fastcall saveFILE( AnsiString filename );
bool __fastcall loadFiles(void);
char varPRE[80];
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

BIN
mainFORM.obj Normal file

Binary file not shown.

120
parser.bpr Normal file
View File

@ -0,0 +1,120 @@
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="parser.exe"/>
<OBJFILES value="parser.obj mainFORM.obj"/>
<RESFILES value="parser.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) mainFORM.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="rtl.lib vcl.lib"/>
<SPARELIBS value="vcl.lib rtl.lib"/>
<PACKAGES value="vcl.bpi rtl.bpi dbrtl.bpi adortl.bpi vcldb.bpi vclx.bpi bdertl.bpi
vcldbx.bpi ibxpress.bpi dsnap.bpi cds.bpi bdecds.bpi qrpt.bpi teeui.bpi
teedb.bpi tee.bpi dss.bpi teeqr.bpi visualclx.bpi visualdbclx.bpi
dsnapcrba.bpi dsnapcon.bpi bcbsmp.bpi vclie.bpi xmlrtl.bpi inet.bpi
inetdbbde.bpi inetdbxpress.bpi inetdb.bpi nmfast.bpi webdsnap.bpi
bcbie.bpi websnap.bpi soaprtl.bpi dclocx.bpi dbexpress.bpi dbxcds.bpi
indy.bpi bcb2kaxserver.bpi ZCore.bpi ZParseSql.bpi ZPlain.bpi ZDbc.bpi
ZComponent.bpi"/>
<PATHCPP value=".;"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="ilink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="NO_STRICT"/>
<MAINSOURCE value="parser.cpp"/>
<INCLUDEPATH value="&quot;C:\Archivos de programa\Borland\CBuilder6\Projects&quot;;&quot;C:\Documents and Settings\jd\Mis documentos\CBuilder\Ventas\parser - tecgra.com&quot;;$(BCB)\include;$(BCB)\include\vcl"/>
<LIBPATH value="&quot;C:\Archivos de programa\Borland\CBuilder6\Projects&quot;;&quot;C:\Documents and Settings\jd\Mis documentos\CBuilder\Ventas\parser - tecgra.com&quot;;C:\programacion\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
<OPTIONS>
<IDLCFLAGS value="-I&quot;C:\Archivos de programa\Borland\CBuilder6\Projects&quot;
-I&quot;C:\Documents and Settings\jd\Mis documentos\CBuilder\Ventas\parser - tecgra.com&quot;
-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -boa"/>
<CFLAG1 value="-O2 -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -a8 -b- -k- -vi -c -tW -tWM"/>
<PFLAGS value="-$Y- -$L- -$D- -$A8 -v -JPHNE -M"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zn"/>
<LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn"/>
<OTHERFILES value=""/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
<OTHERFILES value=""/>
</LINKER>
<FILELIST>
<FILE FILENAME="parser.res" FORMNAME="" UNITNAME="parser.res" CONTAINERID="ResTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="parser.cpp" FORMNAME="" UNITNAME="parser" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="mainFORM.cpp" FORMNAME="Form1" UNITNAME="mainFORM" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
</FILELIST>
<BUILDTOOLS>
</BUILDTOOLS>
<IDEOPTIONS>
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=3082
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
c:\archivos de programa\borland\cbuilder6\Bin\dclite60.bpl=Borland Integrated Translation Environment
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
Launcher=
UseLauncher=0
DebugCWD=
HostApplication=
RemoteHost=
RemotePath=
RemoteLauncher=
RemoteCWD=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
</IDEOPTIONS>
</PROJECT>

33
parser.cpp Normal file
View File

@ -0,0 +1,33 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("mainFORM.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------

BIN
parser.exe Normal file

Binary file not shown.

BIN
parser.obj Normal file

Binary file not shown.

BIN
parser.res Normal file

Binary file not shown.

BIN
parser.tds Normal file

Binary file not shown.