SETs unterschiedlicher Grösse kombinieren

[ralfiii]

Ich hab ein Problem eine Komponente so hinzubasteln, dass sie unter D2007 und D2010 funktioniert.

In Delphi2007 lief folgender Code problemlos:

Delphi-Quellcode:

type TSx_ShiftKeys=set of (skShift, skAlt, skCtrl);  // subset of TShiftState
procedure SetZoomShift(const V:TSx_ShiftKeys);
var fZoomShift: TShiftState;
begin
     fZoomShift:=[ssLeft]+TShiftState(V);
     ...

In Delphi2010 funktioniert's nicht mehr, da TShiftState ein paar Zustände dazugekriegt hat und jetzt 2 Byte gross ist.

Wie könnt ich das vernünftig lösen?
Das Set brauch ich wieder, damit die Komponente im Design-mode vernünftig konfigurierbar ist.

So eine Lösung

Delphi-Quellcode:

     fZoomShift:=[ssLeft];
     w:=word(fZoomShift) or byte(v);
     fZoomShift:=TShiftState(w);

kommt mir völlig behindert vor - und ich müsst erst wieder ein define + Alternativcode herumwickeln damit alles auch unter D2007 läuft.

Danke!
Ralf

[uligerhardt]

Ich würde es wie folgt machen:

Delphi-Quellcode:

type
  TSx_ShiftKey = (skShift, skAlt, skCtrl);
  TSx_ShiftKeys = set of TSx_ShiftKey;

function Sx_ShiftKeysToShiftState(const V: TSx_ShiftKeys): TShiftState;
var
  sk: TSx_ShiftKey;
begin
  Result := [];
  for sk in V do
  begin
    case sk of
      skShift:
        Include(Result, ssShift);
      skAlt:
        Include(Result, ssAlt);
      skCtrl:
        Include(Result, ssCtrl);
    end;
  end;
end;

procedure SetZoomShift(const V: TSx_ShiftKeys);
var
  fZoomShift: TShiftState;
begin
  fZoomShift := Sx_ShiftKeysToShiftState(V);
  Include(fZoomShift, ssLeft);
end;

Noch schöner wäre statt des case ein konstantes Zuordnungsarray, aber da die VCL-Schreiberlinge ungeschickterweise den Elementtyp von TShiftState (wie du den von TSx_ShiftKeys ) namenlos gelassen haben, geht das nicht (zumindest ohne Casterei).

[Hawkeye219]

Hallo,

Zitat von uligerhardt:

Noch schöner wäre statt des case ein konstantes Zuordnungsarray, aber da die VCL-Schreiberlinge ungeschickterweise den Elementtyp von TShiftState (wie du den von TSx_ShiftKeys ) namenlos gelassen haben, geht das nicht (zumindest ohne Casterei).

Na, dann geben wir dem Wunschkind doch einen Namen:

Delphi-Quellcode:

type
  TSx_ShiftKey = (skShift, skAlt, skCtrl);
  TSx_ShiftKeys = set of TSx_ShiftKey;

  TSomeShiftKey = ssShift..ssCtrl;
  TSomeShiftKeys = set of TSomeShiftKey;

function Sx_ShiftKeysToShiftState (const V: TSx_ShiftKeys): TShiftState;
const
  Map: array [TSx_ShiftKey] of TSomeShiftKey = (ssShift, ssAlt, ssCtrl);
var
  sk: TSx_ShiftKey;
begin
  Result := [];
  for sk in V do
    Include (Result, Map[sk]);
end;

procedure SetZoomShift(const V: TSx_ShiftKeys);
var
  fZoomShift: TShiftState;
begin
  fZoomShift := Sx_ShiftKeysToShiftState(V);
  Include(fZoomShift, ssLeft);
end;

Wenn du TSomeShiftKeys schon bei der Definition der Eigenschaft verwendest anstatt neue Bezeichner für die Werte des (eingeschränkten) Aufzählungstypen einzuführen, könnte die Routine SetZoomShift so aussehen:

Delphi-Quellcode:

procedure SetZoomShift (const V: TSomeShiftKeys);
var
  fZoomShift: TShiftState;
begin
  fZoomShift := V + [ssLeft];
end;

Gruß Hawkeye

[uligerhardt]

Zitat von Hawkeye219:

Na, dann geben wir dem Wunschkind doch einen Namen:

Delphi-Quellcode:

  TSomeShiftKey = ssShift..ssCtrl;
  TSomeShiftKeys = set of TSomeShiftKey;

Gute Idee.

Zitat von Hawkeye219:

Delphi-Quellcode:

procedure SetZoomShift (const V: TSomeShiftKeys);
var
  fZoomShift: TShiftState;
begin
  fZoomShift := V + [ssLeft];
end;

Noch bessere Idee.

[himitsu]

Wie wäre es damit?

Delphi-Quellcode:

type
  TZoomShiftKeys = type TShiftState;

Und dann eventuell noch sowas.

Delphi-Quellcode:

const
  AllowedZoomKeys = [ssShift..ssCtrl];

[ralfiii]

Zitat von Hawkeye219:

Na, dann geben wir dem Wunschkind doch einen Namen:
<Snip>

Super! Sieht gut aus, danke!!!

Zitat:

Wenn du TSomeShiftKeys schon bei der Definition der Eigenschaft verwendest anstatt neue Bezeichner für die Werte des (eingeschränkten) Aufzählungstypen einzuführen, könnte die Routine SetZoomShift so aussehen:<Snip>

Dafür ist's leider zu spät, dann müsst ich alle dfm's neu reinladen und die Werte neu setzen.


Eine fragwürdige Alternative hab ich am WE noch gebastelt:

Delphi-Quellcode:

{$IF Compilerversion<=18.5}  // Bei D2007 hat's noch funktioniert
type TSx_ShiftKeys=set of (skShift, skAlt, skCtrl);
{$ELSE}
type TSx_ShiftKeys=set of (skShift, skAlt, skCtrl,
                           _sk_IgnoreMe = (sizeof(TShiftState)*8)-1 );  // to make set same size as TShiftKey
{$IFEND}

[ralfiii]

Zitat von ralfiii:

Eine fragwürdige Alternative hab ich am WE noch gebastelt:

Die fragwürdige Alternative bringt unter Delphi2010 den Objektinspektor zum Crashen, ich hab also Hawkeyes 2ten Vorschlag umgesetzt - die dfm's mit Search&replace auszubessern war doch sinnvoller...