Einzelnen Beitrag anzeigen

Benutzerbild von Delphi-Freak
Delphi-Freak

Registriert seit: 26. Sep 2004
Ort: Wien Nähe (Österreich)
321 Beiträge
 
Delphi 2006 Architect
 
#1

2 ähnliche Sets mit teilweise identen Namen der Werte

  Alt 31. Aug 2005, 18:33
Hi!

Heute ist mein Problem (ich arbeite immer noch an einer Ableitung von TCustomSynEdit), dass ich auch den Typ TSynEditorOption bzw. TSynEditorOptions etwas ändern möchte und ihn deshalb als TMySynEditorOption definiere.
Das ganze mache ich in der Unit SynEdit.
Also in einer Unit:
Delphi-Quellcode:
//...

type

//...

   TSynEditorOption = (
      eoAltSetsColumnMode,
      eoAutoIndent,
      eoAutoSizeMaxScrollWidth,
      eoDisableScrollArrows,
      eoDragDropEditing,
      eoDropFiles,
      eoEnhanceHomeKey,
      eoEnhanceEndKey,
      eoGroupUndo,
      eoHalfPageScroll,
      eoHideShowScrollbars,
      eoKeepCaretX,
      eoNoCaret,
      eoNoSelection,
      eoRightMouseMovesCursor,
      eoScrollByOneLess,
      eoScrollHintFollows,
      eoScrollPastEof,
      eoScrollPastEol,
      eoShowScrollHint,
      eoShowSpecialChars,
      eoSmartTabDelete,
      eoSmartTabs,
      eoSpecialLineDefaultFg,
      eoTabIndent,
      eoTabsToSpaces,
      eoTrimTrailingSpaces
   );

//...

   TMySynEditorOption = (
      eoAltSetsColumnMode,
      eoAutoIndent,
      eoAutoSizeMaxScrollWidth,
      eoDisableScrollArrows,
      eoDragDropEditing,
      eoDropFiles,
      eoEnhanceHomeKey,
      eoEnhanceEndKey,
      eoGroupUndo,
      eoHalfPageScroll,
      eoHideShowScrollbars,
      eoKeepCaretX,
      eoNoCaret,
      eoNoSelection,
      eoRightMouseMovesCursor,
      eoScrollByOneLess,
      eoScrollHintFollows,
      eoScrollPastEof,
      eoScrollPastEol,
      eoShowScrollHint,
      eoShowTabsSpaces,
      eoShowLineBreaks,
      eoSmartTabDelete,
      eoSmartTabs,
      eoSpecialLineDefaultFg,
      eoTabIndent,
      eoTabsToSpaces,
      eoTrimTrailingSpaces
   );

//...
Und dann sagt mir der Compiler, dass z.B. eoAltSetsColumnMode redefiniert wurde und will einfach nicht fertig compilieren. Dass ich meine Werte einfach mit dem Prefix meo (statt eo) versehe ist keine Lösung, da ich dann so ziemlich alle Methoden von SynEdit überschreiben müsste, nur um eo* durch meo* auszubessern.
Meine Idee, die ich noch gehabt habe, ist folgende:
   TMySynEditorOption = TSynEditorOption + eoShowTabsSpaces; Da habe ich einige Varianten ausprobiert, aber er will einfach keine nehmen.

Hat irgendjemand vielleicht eine Idee, was ich noch ausprobieren könnte. Bin schon wieder fast am Verzweifeln.

LG
Gerhard Pfister
*
»To him who loves us and has freed us from our sins by his blood [...] be glory and power for ever and ever! Amen.« (Revelation*1,*5?6)
  Mit Zitat antworten Zitat