Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - juanC2
Páginas: [1]
1
« en: Sábado 19 de Julio de 2014, 19:50 »
algo así quizá también sirva... bool flg = (Combobox1->Text=="CONSUMO"); TEdit *ed; for(int i=1; i<=20; i++){ ed = (TEdit*)FindComponent("Edit" + String(i)); ed->Visible = flg; }
2
« en: Martes 3 de Junio de 2014, 16:35 »
podrías dar más detalles de lo que quieres hacer?
3
« en: Viernes 18 de Abril de 2014, 14:20 »
con esto deberías arreglarte...
4
« en: Jueves 17 de Abril de 2014, 17:00 »
void __fastcall TForm1::DBGrid1DrawDataCell(TObject *Sender, const TRect &Rect, TField *Field, TGridDrawState State)
{
if ((Table1->RecNo % 2) == 0)
DBGrid1->Canvas->Brush->Color = clGray;
else
DBGrid1->Canvas->Brush->Color = clWhite;
if(State.Contains(gdSelected))
{ DBGrid1->Canvas->Font->Color = clWhite;
DBGrid1->Canvas->Brush->Color = clNavy;
}
DBGrid1->DefaultDrawDataCell(Rect, Field, State);
}
5
« en: Miércoles 16 de Abril de 2014, 01:19 »
deshabilitá las siguientes opciones antes de compilar:
Build with runtime packages
Use dynamic RTL
6
« en: Miércoles 8 de Enero de 2014, 13:52 »
7
« en: Miércoles 8 de Enero de 2014, 13:26 »
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State) { TStringGrid* pGrid = dynamic_cast<TStringGrid*>(Sender); AnsiString sText = pGrid->Cells[ACol][ARow]; pGrid->Canvas->FillRect(Rect); ::DrawText(pGrid->Canvas->Handle, sText.c_str(), -1, (RECT*)&Rect, DT_CENTER|DT_VCENTER|DT_SINGLELINE); }
8
« en: Miércoles 8 de Enero de 2014, 13:10 »
bool gbMover; int xini, yini; void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { gbMover = false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(gbMover == true){ Image1->Left += (X-xini); Image1->Top += (Y-yini); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if(Button == mbLeft){ xini = X; yini = Y; gbMover = true; } }
Páginas: [1]
|
Mostrar Mensajes
