OpenDirDialog

[ASM]

Obwohl die Komponente ja auch zur Verwendung für Delphi 7 angegeben ist, kann ich sie nicht unter D7 zum Laufen bringen. Zwar wird sie bei ihrer Installation in die Komponenten-Palette scheinbar fehlerfrei kompiliert und in die Palette übernommen. Aber bei dem Versuch, aus der Palette eine Instanz dieser Komponente in eine Form aufzunehmen, wird dies mit der Fehlermeldung einer "Access violation" im entsprechenden bpl-Module vereitelt. Die gleiche "Access violation" tritt auf, wenn ich versuche, eine Instanz von TOpenDirDialog zur Laufzeit dynamisch zu generieren.

Allerdings habe ich in der Typdeklaration von TTreeView = class(TCustomTreeView) die published Properties
OnMouseActivate, OnMouseEnter und OnMouseLeave auskommentieren müssen, da sich der D7-Kompiler ansonsten mit einer Errormessage beklagt hatte, dass diese Properties nicht in der Basisklasse existieren. Möglicherweise hängt das o.g. Problem mit dem folglichen Fehlen dieser Properties zusammen ?

Auch TCustomTreeView (das aus der TTreeView abgeleitet ist) wird in der Komponentenunit gfOpenDirDlg deklariert, tatsächlich ohne diese genannten Properties. Diese müssten sich also von der nächst tieferen Basisklasse, das ist TWinControl, vererben, welche in der Unit Controls deklariert ist. Tun sie aber nicht. Dort gibt es Eventhandler für verschiedene OnMouse-Events, aber definitiv keine, die den o.g. (eben nicht vorhandenen) Properties zugewiesen wären,

Heißt das nun, dass die aktuelle Komponente grundsätzlich nicht mehr für D7 eingesetzt werden kann ?
Und wenn ja, wäre es dann möglich, noch einmal Zugriff auf die ursprüngliche, D7-kompatible Version der Komponente zu bekommen ?

[Garfield]

Hallo ASM,

vielen Dank für Deinen Bericht.

Unter Delphi 7 Personal fing es an. Dann kam Turbo Delphi dazu und ab Build 10 entfiel Delphi 7. Leider muss ich zugeben, dass ich die Komponente genauso wie in der Demo nur zur Laufzeit einbinde und nicht installiert habe.

Die Classes TCustomTreeView und TTreeView habe ich aus TurboDelphi kopiert und angepasst. Die Properties OnMouseActivate, OnMouseEnter und OnMouseLeave dürften wohl nach Delphi 7 dazugekommen sein. Das scheint auch für einige ControlStyles zuzutreffen.

Mal sehen, was da machen kann.

[Garfield]

Jetzt läuft die Komponente unter D7 und TD. Allerdings mit dem Unterschied, dass unter D7 kein Text im TreeView ist. Warum weiß ich allerdings nicht; die Unterschiede in der Komponente sind nicht allerdings nicht dafür ursächlich. Entweder habe ich noch einen Fehler in der Komponente oder es liegt an den TNT Controls.

[Garfield]

Sieht so aus, als würde Delphi 7 die Widestrings trotz TNT Controls nicht im TreeView anzeigen können.

Möglicherweis hängt es mit den Events TTVCustomDrawEvent, TTVCustomDrawItemEvent, TTVAdvancedCustomDrawEvent und TTVAdvancedCustomDrawItemEvent zusammen.

[Garfield]

Es scheint an der procedure TCustomTreeViewW.CNNotify(var Message: TWMNotify); zu hängen. Bei TurboDelphi wird diese ab dem ShowModal ständig aufgerufen und das Tree neu gezeichnet. Bei Delphi 7 nicht.

[Garfield]

Also die Messages kommen doch. Allerdings anstelle der *W die *A, obwohl der Tree auf Unicode eingestellt sein sollte.

[Garfield]

Warum auch immer wird anscheinend aus dem TTreeViewW beim ShowModal ein TTreeViewA. Das habe ich im Moment nicht so hinbekommen wie ich es mir gewünscht habe. Deshalb habe ich die Versionen, welche anstelle des TTreeView noch das TShellTreeView verwenden durchgesehen und bei der letzten ein paar Fehler, welche nicht unter Turbo Delphi aber unter Delphi 7 aufgetreten sind, bereinigt. Die Komponente samt Demo gibt es im ersen Beitrag (OpenDirDialog_9a.7z).

[himitsu]

Das ältere Delphi hat nur die ANSI-APIs in seiner Message-Loop.

[Garfield]

Ich habe die TTreeView teilweise aus TurboDelphi kopiert und modifiziert. Bevor das Treeview angezeigt wird, werden auch WideMessages verschickt. Nur müssen da die Widestrings der Nodes zur Anzeige in Strings konvertiert werden. Wenn das Treeview angezeigt wird, gibt es nur noch Ansimessages. Ich habe den Eindruck, ich habe zu wenig kopiert.

[himitsu]

Messages werden in die Message-Queue eingetragen
und die Message-Loop in Application.Run, bzw. Application.ProcessMessages fragen nur über die Ansi-APIs die Message-Queue ab und leiten dann diese Messages als "ANSI" an die Komponenten weiter.

Delphi 7 hat eine reine Ansi-MessageLoop, wärend in Turbo Delphi für Unicode-Messages auf die Unicode-API umgeschaltet wird.

Delphi-Quellcode:

// Delphi 7-MessageLoop

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
  Handled: Boolean;
begin
  Result := False;
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
  begin
    Result := True;
    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
      if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and
        not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end
    else
      FTerminate := True;
  end;
end;

Delphi-Quellcode:

// Turbo Delphi-, bzw. Delphi 2006-MessageLoop

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
  Unicode: Boolean;
  Handled: Boolean;
  MsgExists: Boolean;
begin
  Result := False;
  if PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then
  begin
    Unicode := (Msg.hwnd <> 0) and IsWindowUnicode(Msg.hwnd);
    if Unicode then
      MsgExists := PeekMessageW(Msg, 0, 0, 0, PM_REMOVE)
    else
      MsgExists := PeekMessage(Msg, 0, 0, 0, PM_REMOVE);
    if not MsgExists then Exit;
    Result := True;
    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
      if not IsPreProcessMessage(Msg) and not IsHintMsg(Msg) and
        not Handled and not IsMDIMsg(Msg) and
        not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
      begin
        TranslateMessage(Msg);
        if Unicode then
          DispatchMessageW(Msg)
        else
          DispatchMessage(Msg);
      end;
    end
    else
      FTerminate := True;
  end;
end;

Schon erstaunlich wann man bei Codegear anfing sich für's Unicode vorzubereiten, wärend Einige jetzt erst rumheulen, wegen D2009+ :roll: