Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Error #374 -> Arreglo en ficha de cantidades de colores para que no salga el texto en RTF

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@94 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-12 10:40:07 +00:00
parent e8810258e5
commit f6028e4dd5
2 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Source/GUIBase/uEditorColores.dfm
View File

@ -46,6 +46,17 @@ inherited fEditorColores: TfEditorColores
Width = 692
Height = 27
end
object RichEdit1: TRichEdit
Left = 50
Top = 26
Width = 699
Height = 31
BorderStyle = bsNone
Lines.Strings = (
'RichEdit1')
ReadOnly = True
TabOrder = 0
end
end
inherited pnlCuerpo: TPanel
Width = 767
@ -420,7 +431,6 @@ inherited fEditorColores: TfEditorColores
end
end
inherited ActionList1: TActionList
Left = 104
Top = 0
inherited actAceptar: TAction
OnExecute = actAceptarExecute
@ -430,6 +440,6 @@ inherited fEditorColores: TfEditorColores
end
end
object dsDataTable: TDADataSource
Left = 136
Left = 48
end
end

21
Source/GUIBase/uEditorColores.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxGraphics, cxControls,
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, DB, uDAInterfaces, uDADataTable, JvExControls, JvEnterTab;
cxDBEdit, DB, uDAInterfaces, uDADataTable, JvExControls, JvEnterTab, ComCtrls;
type
TfEditorColores = class(TfDialogBase)
@ -36,8 +36,10 @@ type
Label12: TLabel;
Label13: TLabel;
JvEnterAsTab1: TJvEnterAsTab;
RichEdit1: TRichEdit;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FReferencia : String;
FDescripcion : String;
@ -55,6 +57,9 @@ implementation
{$R *.dfm}
uses
uStringsUtils;
{ TfEditorColores }
procedure TfEditorColores.actAceptarExecute(Sender: TObject);
@ -69,6 +74,12 @@ begin
ModalResult := mrCancel;
end;
procedure TfEditorColores.FormShow(Sender: TObject);
begin
inherited;
PonerTituloArticulo;
end;
function TfEditorColores.GetTotal: Double;
var
ATotal: Double;
@ -116,19 +127,21 @@ end;
procedure TfEditorColores.PonerTituloArticulo;
begin
Label2.Caption := FReferencia + ' ' + FDescripcion;
lblInstruccion.Caption := 'Indique las cantidades por colores para el artículo';
if not EsCadenaVacia(FReferencia) then
lblInstruccion.Caption := lblInstruccion.Caption + ' de referencia ' + FReferencia;
RichEdit1.Text := FDescripcion;
end;
procedure TfEditorColores.SetDescripcion(const Value: String);
begin
FDescripcion := Value;
PonerTituloArticulo;
end;
procedure TfEditorColores.SetReferencia(const Value: String);
begin
FReferencia := Value;
PonerTituloArticulo;
end;
end.