Ir al contenido



Foto

Programa de Facturacion (jordangel) ayuda.


  • Por favor identifícate para responder
59 respuestas en este tema

#41 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.404 mensajes
  • LocationRepública Dominicana

Escrito 05 agosto 2009 - 06:16

otra pregunta.!!!
como ago para ke en un listview en una colunna se muestre una cantidad con 3 decimales???


Usando el Format:



delphi
  1. format('%.*d',[3{decimales},IntTostr(valor)]);



Saludos.
  • 0

#42 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 13.962 mensajes
  • LocationMéxico

Escrito 05 agosto 2009 - 06:28

Hola



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3.   showMessage('Con comodines: '+format('%*.*f',[7,3,3.0])); //Con Comodines
  4.   showMessage('Estático: '+format('%7.3f',[3.0]));    //Estático
  5. end;



:wink:

Salud OS
  • 0

#43 jordangel

jordangel

    Advanced Member

  • Miembros
  • PipPipPip
  • 84 mensajes
  • LocationVenezuela

Escrito 05 agosto 2009 - 06:29

pero como lo agrego?? en donde??
en ke parte??
  • 0

#44 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 13.962 mensajes
  • LocationMéxico

Escrito 05 agosto 2009 - 06:43

pero como lo agrego?? en donde??
en ke parte??


Hola



delphi
  1. //Sacado de la ayuda de Delphi
  2.  
  3. procedure TForm1.Button1Click(Sender: TObject);
  4. const
  5.   Names: array[0..5, 0..1] of ShortString = (
  6.     ('Rubble', 'Barney'),
  7.     ('Michael', 'Johnson'),
  8.     ('Bunny', 'Bugs'),
  9.     ('Silver', 'HiHo'),
  10.     ('Simpson', 'Bart'),
  11.     ('Squirrel', 'Rockey')
  12.     );
  13.  
  14. var
  15.   I: integer;
  16.   NewColumn: TListColumn;
  17.   ListItem: TListItem;
  18.   ListView: TListView;
  19. begin
  20.   ListView := TListView.Create(Self);
  21.   with ListView do
  22.  
  23.   begin
  24.     Parent := Self;
  25.     Align := alClient;
  26.     ViewStyle := vsReport;
  27.  
  28.     NewColumn := Columns.Add;
  29.     NewColumn.Caption := 'Last';
  30.     NewColumn := Columns.Add;
  31.     NewColumn.Caption := 'First';
  32.     NewColumn := Columns.Add;
  33.     NewColumn.Caption := 'Porcentaje';
  34.  
  35.     for I := 0 to High(Names) do
  36.     begin
  37.       ListItem := Items.Add;
  38.       ListItem.Caption := Names[I][0];
  39.       ListItem.SubItems.Add(Names[I][1]);
  40.       ListItem.SubItems.Add(format('%*.*f',[7,3,5.2])); //Se agrega el dato con 3 decimales
  41.     end;
  42.   end;
  43. end;



Salud OS
  • 0

#45 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 06 agosto 2009 - 08:28

una pregunta...!!
como ago para cambiar lo que contiene un combobox..ejemplo..
si selecciono un chexbox y se habilita el combobox..
pero si selecciono otro chex... como ago para que el mismo combo.. cambie
su contenido???.. se puede??


Aquí­ hay algo interesante, recuerda que los checkbox se puedes seleccionar simultáneamente, es decir, que ambos estén seleccionados al mismo tiempo... Es esto lo que deseas hacer ?... Porque supongamos que el check1 está seleccionado y cargamos el combo con digamos, números: 1,2,3,4...9 y si el check2 está seleccionado, lo cargamos con las vocales: a,e,i,o,u... entonces, si ambos lo están, tendrí­amos en el combo: 1...9,a...u

Es ese el comportamiento que deseas que se dé ? Espero no haberte enredado más  :$

Saludos !  :D

  • 0

#46 jordangel

jordangel

    Advanced Member

  • Miembros
  • PipPipPip
  • 84 mensajes
  • LocationVenezuela

Escrito 09 agosto 2009 - 03:19

buenas..tardes... tengo un problema con un prog que he estado realizando.. es un demo..
jejeje... mi problema es el siguiente:

intento realizar por me dio de un boton una busqueda.., es decir, que en un boton cuando yo le de click me pedira una cedula.. "La cual esas ya deben estar ingresadas al sistema "Base de datos"..".. lo que quiero es ke cuando yo introdusca la cedula el me busque esa cedula en la base del sistema y lo muestre en un form... aki esta lo ke llevo..
lo ke pasa es ke me da un error.. en la linea donde dice ADOTable1.first; porfa veanlo y si me entienden digame ke tengo de malo??.. gracias



delphi
  1. procedure TFFactura.Button3Click(Sender: TObject);
  2. var
  3. enc : Boolean;
  4. x : AnsiString;
  5. begin
  6.     enc := false;
  7.     x := InputBox('Introdusca la Cedula: ','Busqueda','');
  8.     if (x <> '') then
  9.     ADOTable1.First;          ------------>(AKI EL ERROR)
  10.     while (not ADOTable1.Eof) and (not enc) do
  11.     begin
  12.     if (ADOTable1.FieldByName('CodCliente').AsString) = x then
  13.     enc:= true
  14.     else
  15.     ADOTable1.Next;
  16.     end;
  17.     if not enc then
  18.     ShowMessage('Cedula no existe')
  19.     else
  20.     begin
  21.     Form2.DBEdit1.text:= ADOTable1.Fields.Fields[0].AsString;
  22.     Form2.ShowModal;
  23.     end;


  • 0

#47 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.404 mensajes
  • LocationRepública Dominicana

Escrito 09 agosto 2009 - 03:23

¿Y cuál es el error que te da?, puede ser que no hayas abierto la tabla.

Saludos.
  • 0

#48 jordangel

jordangel

    Advanced Member

  • Miembros
  • PipPipPip
  • 84 mensajes
  • LocationVenezuela

Escrito 09 agosto 2009 - 03:54

me explico..
no me da error de mal codigo..
el porg me corre.. pero al momento de introducir la cedula para ke la buske.. me lanza una ventana con un error.. y me manda a la linea ke marke anteriormente.. con el color azul.. la franja es de color azul..
con gusto podria subir el archivo pero no me da la opcion de adjuntar. =S
  • 0

#49 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.404 mensajes
  • LocationRepública Dominicana

Escrito 09 agosto 2009 - 03:57

Cuando te salga esa ventanita con el erro sólo le das Ctrl+C y pégalo aquí­ ;)

Saludos.
  • 0

#50 jordangel

jordangel

    Advanced Member

  • Miembros
  • PipPipPip
  • 84 mensajes
  • LocationVenezuela

Escrito 09 agosto 2009 - 04:02

dice.
---------------------------
Debugger Exception Notification
---------------------------
Project Factura.exe raised exception class EDatabaseError with message 'ADOTable1: Cannot perform this operation on a closed dataset'. Process stopped. Use Step or Run to continue.


  • 0

#51 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.404 mensajes
  • LocationRepública Dominicana

Escrito 09 agosto 2009 - 04:04

Pues efectivamente amigo, la tabla aún no está abierta, agregale antes de:



delphi
  1. if (x <> '') then



La siguiente lí­nea:



delphi
  1. ADOTable1.Open;



Saludos.

  • 0

#52 jordangel

jordangel

    Advanced Member

  • Miembros
  • PipPipPip
  • 84 mensajes
  • LocationVenezuela

Escrito 09 agosto 2009 - 04:10

amigo... muchiisimas gracias.!! me ayudaste... bastante.!! thanks, thanks,,... te lo agradesco mucho gracias!!
  • 0

#53 jordangel

jordangel

    Advanced Member

  • Miembros
  • PipPipPip
  • 84 mensajes
  • LocationVenezuela

Escrito 09 agosto 2009 - 04:20

otra pregunta.... a un boton no se le puede cambiar de color???
  • 0

#54 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.404 mensajes
  • LocationRepública Dominicana

Escrito 09 agosto 2009 - 04:24

otra pregunta.... a un boton no se le puede cambiar de color???


Nop.
  • 0

#55 Caral

Caral

    Advanced Member

  • Administrador
  • 4.241 mensajes
  • LocationCosta Rica

Escrito 09 agosto 2009 - 04:24

Hola
Hay componentes de botones a los que se les puede cambiar el color y otros.
Saludos
  • 0

#56 Caral

Caral

    Advanced Member

  • Administrador
  • 4.241 mensajes
  • LocationCosta Rica

Escrito 09 agosto 2009 - 04:35

Hola
Un componente de boton con color:


delphi
  1. unit ColorBtn;
  2.  
  3. interface
  4.   uses
  5.     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  6.     Dialogs, StdCtrls, Buttons;
  7.  
  8.   type
  9.     TColorBtn = class(TButton)
  10.     private
  11.       IsFocused: boolean;
  12.       FCanvas: TCanvas;
  13.       F3DFrame: boolean;
  14.       FButtonColor: TColor;
  15.       procedure Set3DFrame(Value: boolean);
  16.       procedure SetButtonColor(Value: TColor);
  17.       procedure CNDrawItem(var Message: TWMDrawItem);
  18.         message CN_DRAWITEM;
  19.       procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);
  20.         message WM_LBUTTONDBLCLK;
  21.       procedure DrawButtonText(const Caption: string; TRC: TRect;
  22.         State: TButtonState; BiDiFlags: Longint);
  23.       procedure CalcuateTextPosition(const Caption: string;
  24.         var TRC: TRect; BiDiFlags: Longint);
  25.     protected
  26.       procedure CreateParams(var Params: TCreateParams); override;
  27.       procedure SetButtonStyle(ADefault: boolean); override;
  28.     public
  29.       constructor Create(AOwner: TComponent); override;
  30.       destructor Destroy; override;
  31.     published
  32.       property ButtonColor: TColor read FButtonColor
  33.         write SetButtonColor default clBtnFace;
  34.       property Frame3D: boolean read F3DFrame write Set3DFrame
  35.         default False;
  36.   end;
  37.  
  38.   procedure Register;
  39.  
  40. implementation
  41.  
  42. { TColorBtn  }
  43.  
  44. constructor TColorBtn.Create(AOwner: TComponent);
  45. begin
  46.   Inherited Create(AOwner);
  47.   FCanvas:= TCanvas.Create;
  48.   FButtonColor:= clBtnFace;
  49.   F3DFrame:= False;
  50. end;
  51.  
  52. destructor TColorBtn.Destroy;
  53. begin
  54.   FCanvas.Free;
  55.   Inherited Destroy;
  56. end;
  57.  
  58. procedure TColorBtn.CreateParams(var Params: TCreateParams);
  59. begin
  60.   Inherited CreateParams(Params);
  61.   with Params do Style:= Style or BS_OWNERDRAW;
  62. end;
  63.  
  64. procedure TColorBtn.Set3DFrame(Value: boolean);
  65. begin
  66.   if F3DFrame <> Value then F3DFrame:= Value;
  67. end;
  68.  
  69. procedure TColorBtn.SetButtonColor(Value: TColor);
  70. begin
  71.   if FButtonColor <> Value then begin
  72.     FButtonColor:= Value;
  73.     Invalidate;
  74.   end;
  75. end;
  76.  
  77. procedure TColorBtn.WMLButtonDblClk(var Message: TWMLButtonDblClk);
  78. begin
  79.   Perform(WM_LBUTTONDOWN, Message.Keys, Longint(Message.Pos));
  80. end;
  81.  
  82. procedure TColorBtn.SetButtonStyle(ADefault: Boolean);
  83. begin
  84.   if IsFocused <> ADefault then IsFocused:= ADefault;
  85. end;
  86.  
  87. procedure TColorBtn.CNDrawItem(var Message: TWMDrawItem);
  88. var
  89.   RC: TRect;
  90.   Flags: Longint;
  91.   State: TButtonState;
  92.   IsDown, IsDefault: Boolean;
  93.   DrawItemStruct: TDrawItemStruct;
  94. begin
  95.   DrawItemStruct:= Message.DrawItemStruct^;
  96.   FCanvas.Handle:= DrawItemStruct.HDC;
  97.   RC:= ClientRect;
  98.   with DrawItemStruct do begin
  99.     IsDown:= ItemState and ODS_SELECTED <> 0;
  100.     IsDefault:= ItemState and ODS_FOCUS <> 0;
  101.     if not Enabled then State:= bsDisabled
  102.     else if IsDown then State:= bsDown
  103.     else State:= bsUp;
  104.   end;
  105.   Flags:= DFCS_BUTTONPUSH or DFCS_ADJUSTRECT;
  106.   if IsDown then Flags:= Flags or DFCS_PUSHED;
  107.   if DrawItemStruct.ItemState and ODS_DISABLED <> 0 then
  108.     Flags:= Flags or DFCS_INACTIVE;
  109.   if IsFocused or IsDefault then begin
  110.     FCanvas.Pen.Color:= clWindowFrame;
  111.     FCanvas.Pen.Width:= 1;
  112.     FCanvas.Brush.Style:= bsClear;
  113.     FCanvas.Rectangle(RC.Left, RC.Top, RC.Right, RC.Bottom);
  114.     InflateRect(RC, -1, -1);
  115.   end;
  116.   if IsDown then begin
  117.     FCanvas.Pen.Color:= clBtnShadow;
  118.     FCanvas.Pen.Width:= 1;
  119.     FCanvas.Rectangle(RC.Left, RC.Top, RC.Right, RC.Bottom);
  120.     InflateRect(RC, -1, -1);
  121.     if F3DFrame then begin
  122.       FCanvas.Pen.Color:= FButtonColor;
  123.       FCanvas.Pen.Width:= 1;
  124.       DrawFrameControl(DrawItemStruct.HDC, RC, DFC_BUTTON, Flags);
  125.     end;
  126.   end else
  127.     DrawFrameControl(DrawItemStruct.HDC, RC, DFC_BUTTON, Flags);
  128.   FCanvas.Brush.Color:= FButtonColor;
  129.   FCanvas.FillRect(RC);
  130.   InflateRect(RC, 1, 1);
  131.   if IsFocused then begin
  132.     RC:= ClientRect;
  133.     InflateRect(RC, -1, -1);
  134.   end;
  135.   if IsDown then OffsetRect(RC, 1, 1);
  136.   FCanvas.Font:= Self.Font;
  137.   DrawButtonText(Caption, RC, State, 0);
  138.   if IsFocused and IsDefault then begin
  139.     RC:= ClientRect;
  140.     InflateRect(RC, -4, -4);
  141.     FCanvas.Pen.Color:= clWindowFrame;
  142.     Windows.DrawFocusRect(FCanvas.Handle, RC);
  143.   end;
  144.   FCanvas.Handle:= 0;
  145. end;
  146.  
  147. procedure TColorBtn.CalcuateTextPosition(const Caption: string;
  148.       var TRC: TRect; BiDiFlags: Integer);
  149. var
  150.   TB: TRect;
  151.   TS, TP: TPoint;
  152. begin
  153.   with FCanvas do begin
  154.     TB:= Rect(0, 0, TRC.Right + TRC.Left, TRC.Top + TRC.Bottom);
  155.     DrawText(Handle, PChar(Caption), Length(Caption), TB,
  156.       DT_CALCRECT or BiDiFlags);
  157.     TS := Point(TB.Right - TB.Left, TB.Bottom - TB.Top);
  158.     TP.X := ((TRC.Right - TRC.Left) - TS.X + 1) div 2;
  159.     TP.Y := ((TRC.Bottom - TRC.Top) - TS.Y + 1) div 2;
  160.     OffsetRect(TB, TP.X + TRC.Left, TP.Y + TRC.Top);
  161.     TRC:= TB;
  162.   end;
  163. end;
  164.  
  165. procedure TColorBtn.DrawButtonText(const Caption: string; TRC: TRect;
  166.   State: TButtonState; BiDiFlags: Integer);
  167. begin
  168.   with FCanvas do begin
  169.     CalcuateTextPosition(Caption, TRC, BiDiFlags);
  170.     Brush.Style:= bsClear;
  171.     if State = bsDisabled then begin
  172.       OffsetRect(TRC, 1, 1);
  173.       Font.Color:= clBtnHighlight;
  174.       DrawText(Handle, PChar(Caption), Length(Caption), TRC,
  175.         DT_CENTER or DT_VCENTER or BiDiFlags);
  176.       OffsetRect(TRC, -1, -1);
  177.       Font.Color:= clBtnShadow;
  178.       DrawText(Handle, PChar(Caption), Length(Caption), TRC,
  179.         DT_CENTER or DT_VCENTER or BiDiFlags);
  180.     end else
  181.       DrawText(Handle, PChar(Caption), Length(Caption), TRC,
  182.         DT_CENTER or DT_VCENTER or BiDiFlags);
  183.     end;
  184. end;
  185.  
  186. procedure Register;
  187. begin
  188.   RegisterComponents('Samples', [TColorBtn]);
  189. end;
  190.  
  191. end.


Saludos
  • 0

#57 Caral

Caral

    Advanced Member

  • Administrador
  • 4.241 mensajes
  • LocationCosta Rica

Escrito 09 agosto 2009 - 04:38

Hola
Otros componentes de botones con colores y otras cosas:
Saludos

Archivos adjuntos


  • 0

#58 jordangel

jordangel

    Advanced Member

  • Miembros
  • PipPipPip
  • 84 mensajes
  • LocationVenezuela

Escrito 09 agosto 2009 - 05:06

DIOS SANTO.!!! jajaja... yo solo quiero cambiarle el color del boton gris.. el dafauld.. a uno rojo no mas.!!!
  • 0

#59 Caral

Caral

    Advanced Member

  • Administrador
  • 4.241 mensajes
  • LocationCosta Rica

Escrito 09 agosto 2009 - 05:14

Hola
El color de un botón no se puede cambiar, por lo menos yo no se como hacerlo, supongo que usando el cambas se podrí­a, tal vez algún maestro lo haga y nos enseñe.
Lo normal es cambiar el color del font, eso si es factible.
Lo otro es usar componetes de terceros o hacerlos.
Saludos
  • 0

#60 felipe

felipe

    Advanced Member

  • Administrador
  • 3.283 mensajes
  • LocationColombia

Escrito 09 agosto 2009 - 07:53

¿Funcionarí­a haciendo un AS?  *-)

Por ejemplo Button AS Panel o algo así­... porque en realidad puede ser tan complicado como lo indica Caral  :D


Saludos!
  • 0