Einzelnen Beitrag anzeigen

Benutzerbild von eddy
eddy

Registriert seit: 3. Jan 2003
Ort: Sachsen
573 Beiträge
 
Delphi 5 Professional
 
#6

Re: Brauche Infos zu List & Label 11

  Alt 21. Dez 2005, 10:59
Hallo Andidreas,

ja. Die Steuerung erfolgt über den jeweiligen Dateinamen der Vorlage. Die Daten aus der Datenbank werden mit über OnDefineFields und OnDefineVariables an LL übergeben.

Hier ein paar Codestückchen:
Delphi-Quellcode:
  //DefineVariables

  // siehe ConstVar: TabWaehrung : String[3] = '€';
  FieldContent := TabWaehrung;
  FieldName := 'TabWährung';
  nRet:= L10.LlDefineVariableExt(FieldName, FieldContent, FieldType);

  // ZK des Alternativ-Text z.B. ***
  FieldContent := FAB.FOpt.edAlternativ.Text;
  FieldName := 'edAlternativ';
  nRet:= L10.LlDefineVariableExt(FieldName, FieldContent, FieldType);

  FieldType := LL_NUMERIC;
  FieldContent := Format('%3.2f', [MwStV]);
  FieldName := 'MwStV';
  nRet:= L10.LlDefineVariableExt(FieldName, FieldContent, FieldType);


  // DefineFields

  FieldType := LL_BOOLEAN;
    if FAB.FOpt.cbmengeinspnichtdrucken.Checked
      then FieldContent:= ctrue
      else FieldContent:= cfalse;
    FieldName := 'MengeInSPSnichtDrucken';
    nRet:= L10.LlDefineFieldExt(FieldName, FieldContent, FieldType);

  // Kurztext und Langtext beim Drucken verwenden
  if FAB.FOpt.rbKuLaTxt1.Checked
    then FieldContent := ctrue
    else FieldContent := cfalse;
  FieldName := 'Kurztext_verwenden';
  nRet:= L10.LlDefineFieldExt(FieldName, FieldContent, FieldType);
Du mußt Dir unbedingt die mitgelieferten Beispiele ansehen. Da war das mit dem Etikettendruck gut zu durchschauen (wobei ich immer nur von der alten Version ausgehe).

mfg
eddy
  Mit Zitat antworten Zitat