Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Firemonkey Workarounds (https://www.delphipraxis.net/169341-firemonkey-workarounds.html)

greenmile 13. Jul 2012 11:10


Firemonkey Workarounds
 
Hallo,

da ich während meiner Entwicklung unter Firemonkey über einige Bugs gestolpert bin, die man teilweise recht einfach umgehend kann, möchte ich hier immer mal wieder einige Workarounds reinschreiben. Vielleicht klinkt sich ja der eine oder andere an. Und vielleicht geschieht ja ein Wunder und jemand von Embar liest mit ... :) Betrifft alles XE2, aktuell Hotfix 4

- OpenDialog ist unter Windows nicht Modal

Delphi-Quellcode:
Uses {$IFDEF MSWINDOWS}Winapi.Windows, FMX.Platform.Win,{$ENDIF}

{$IFDEF MSWINDOWS} Try EnableWindow(FmxHandleToHWND(Self.Handle), False); Except End; {$ENDIF}
Try
  OpenDialog.Execute;
  ....
Finally
  {$IFDEF MSWINDOWS}
  SetActiveWindow(FmxHandleToHWND(Self.Handle));
  EnableWindow(FmxHandleToHWND(Self.Handle), True);
  {$ENDIF}
End;
- TTreeview: "Accept" in OnDragOver wird ignoriert
FMX.TreeView.pas und FMX.Defines.inc ins Projektverzeichnis kopieren, damit das Projekt immer die lokale verwendet. FMX.TreeView.pas öffnen und zu TCustomTreeView.DragOver springen. Dort den Anfang wie folgt auswechseln:
Delphi-Quellcode:
procedure TCustomTreeView.DragOver(const Data: TDragObject; const Point: TPointF;
  var Accept: Boolean);
var
  Obj: TTreeViewItem;
begin
  // Änderungen
  // inherited;
  inherited DragOver(Data, Point, Accept);
  if assigned(OnDragOver) then exit;
  // ...
- TListbox: "Accept" in OnDragOver wird ignoriert, D&D funktioniert nicht
FMX.Listbox.pas und FMX.Defines.inc ins Projektverzeichnis kopieren, damit das Projekt immer die lokale verwendet. FMX.Listbox.pas öffnen und zu TCustomListBox.DragOver springen. Dort den Anfang wie folgt auswechseln:
Delphi-Quellcode:
procedure TCustomListBox.DragOver(const Data: TDragObject; const Point: TPointF; var Accept: Boolean);
var
  Obj: TListBoxItem;
begin
  // Änderungen
  // inherited;
  inherited DragOver(Data, Point, Accept);
  if assigned(OnDragOver) then exit;
  // ...
- Open-/Savedialog: Der Dialog wird unter Mac OS nicht geöffnet, Execute liefert false zurück
Unter MacOS muss der Filter leer sein. Den Dialog daher wie folgt öffnen
Delphi-Quellcode:
{$IFDEF MACOS} Try OpenDlg.Filter := ''; Except End; {$ENDIF} // Geht unter Mac nicht
OpenDlg.Execute;
...
- TDropTarget: "Accept" wird in OnDragOver nicht akzeptiert
FMX.ExtCtrls und FMX.Defines.inc ins Projektverzeichnis kopieren, damit das Projekt immer die lokale verwendet. FMX.ExtCtrls öffnen und zu TDropTarget.DragOver springen. Dort den Anfang wie folgt auswechseln:
Delphi-Quellcode:
procedure TDropTarget.DragOver(const Data: TDragObject; const Point: TPointF;
  var Accept: Boolean);
begin
  // Änderungen
  // inherited;
  inherited DragOver(Data, Point, Accept);
  // ...
- THeader: Werden HeaderItems hinzugefügt, ist die .FMX Datei anschließend defekt
Beim laden der Datei kam es zum Meldung "Ungültige Eigenschaft Headeritem1.Width, außerdem sind plötzlich andere Komponenten auf der Form verschwunden.
Einzig mir bekannter Workaround: THeaderItem dynamisch erzeugen:
Delphi-Quellcode:
TMainForm = class(TForm)
...
privat
    HeaderItem1: THeaderItem;
    HeaderItem2: THeaderItem;
    ...
public
...
In OnCreate dann:
Delphi-Quellcode:
    HeaderItem1 := THeaderItem.Create(nil);
    HeaderItem1.Parent := Header1;
    HeaderItem1.Width := 50;
    HeaderItem1.Text :='HeaderItem1';
    Header1.AddObject(HeaderItem1);

    HeaderItem2 := THeaderItem.Create(nil);
    HeaderItem2.Parent := Header1;
    HeaderItem2.Width := 50;
    HeaderItem2.Text :='HeaderItem2';
    Header1.AddObject(HeaderItem1);

jaenicke 13. Jul 2012 11:28

AW: Firemonkey Workarounds
 
Zitat:

Zitat von greenmile (Beitrag 1174585)
Und vielleicht geschieht ja ein Wunder und jemand von Embar liest mit ... :)

Wieso? Gibt es dazu noch keine QC-Einträge? :gruebel:
(Was ja hieße es soll nicht gefixt werden, denn was man nicht weiß kann man auch nicht fixen.)

Vor allem würden in der QC die Hinweise zu den Fixes auch von anderen gefunden werden, die damit Probleme haben. :wink:

daywalker9 13. Jul 2012 12:59

AW: Firemonkey Workarounds
 
Also den QC zu Punkt 1 gibt es schon:


OpenDialog nicht modal

greenmile 13. Jul 2012 13:28

AW: Firemonkey Workarounds
 
Oh wie schlimm ...
Nein im Ernst, ich habe kaum Lust bei QC zu suchen und versuche erstmal die Delphi-Quelle meiner Wahl: DP.

greenmile 25. Jul 2012 13:14

AW: Firemonkey Workarounds
 
- Mac: Anwendung wird plötzlich nicht mehr gestartet
Nach einem Absturz wird die Anwendung plötzlich nicht mehr auf dem Mac gestartet. Hierzu die Datei Info.plist im Editor öffnen, diese befindet sich im Package im Verzeichnis Contents. Anschließend den Wert unter CFBundleIdentifier ändern, zum Beispiel eine 1 hinzufügen.

Peter666 5. Jun 2013 08:40

AW: Firemonkey Workarounds
 
Ich packe das mal hier rein, da es passt:

- FMX.Treeview öffnet bei jedem TreeviewItem die Children und zeichnet jedes einzelne Element neu

In FMX.Treeview.pas unter procedure TTreeViewItem.SetIsExpanded(const Value: Boolean); folgendes ausklammern:
Delphi-Quellcode:
(* if FContent.ChildrenCount > 0 then
      for i := FContent.ChildrenCount - 1 downto 0 do
      begin
        Item := nil;
        if FContent.Children[i] is TTreeViewItem then
          Item := TTreeViewItem(FContent.Children[i]);

        if Item <> nil then
          Item.IsExpanded := True;
      end;*)
und das FUpdating hinzufügen bei:
Delphi-Quellcode:
   if (FUpdating = 0) and (TreeView <> nil) then
      TreeView.Realign;

- unter OSX liefert das OnClick Ereignis bei den Menüs nicht das TMenuitem zurück.

Unter FMX.Platform.MAC das DispatchMenu wie folgt ersetzen:
Delphi-Quellcode:
procedure TFMXOSMenuItem.DispatchMenuClick(Sender: Pointer);
begin
  try
    if Assigned(FMXMenuItem.OnClick) then
      FMXMenuItem.OnClick(FMXMenuItem); //++
  except
    Application.HandleException(Self);
  end;
end;

Harry Stahl 1. Apr 2014 22:53

AW: Firemonkey Workarounds
 
Zitat:

Zitat von greenmile (Beitrag 1174585)
Hallo,

da ich während meiner Entwicklung unter Firemonkey über einige Bugs gestolpert bin, die man teilweise recht einfach umgehend kann, möchte ich hier immer mal wieder einige Workarounds reinschreiben. Vielleicht klinkt sich ja der eine oder andere an. Und vielleicht geschieht ja ein Wunder und jemand von Embar liest mit ... :) Betrifft alles XE2, aktuell Hotfix

...

4- THeader: Werden HeaderItems hinzugefügt, ist die .FMX Datei anschließend defekt
Beim laden der Datei kam es zum Meldung "Ungültige Eigenschaft Headeritem1.Width, außerdem sind plötzlich andere Komponenten auf der Form verschwunden.
Einzig mir bekannter Workaround: THeaderItem dynamisch erzeugen:

...

So, dieser schöne Fehler ist mir nun auch begegnet. Anscheinend hat hier von EMBA leider keiner mitgelesen, denn in XE5 ist das Problem noch (oder wieder) vorhanden. In einem XE3-Projekt nutze ich einen THeader ohne Probleme.

Ein wenig zur Ehrenrettung von EMBA: Im Quality Central gab es aber auch keinen einzigen Eintrag zu diesem Problem.

Das habe ich nun nachgeholt und ein für die Prüfer reproduzierbares Beispiel beigefügt.

Hier ist der Eintrag: http://qc.embarcadero.com/wc/qcmain.aspx?d=123746

Harry Stahl 2. Apr 2014 00:30

AW: Firemonkey Workarounds
 
Außerdem habe ich nun mal den Workaround-Vorschlag von Greenmile aufgegriffen und eine kleine Prozedur draus gemacht, so dass man mit einem Aufruf den Header, die Höhe des Headers, die Items, die jeweilige Breite der Items, die Captions der HeaderItems, die Ausrichtung des Headers, den Parent und ein ClickEvent übergeben kann.

Sieht dann so aus (die Unit StrUtils und FMX.Header wird benötigt):

Delphi-Quellcode:
Procedure CreateANewHeader (AH: THeader; AHeight: Integer; AClickEvent: TNotifyEvent; AParent: TFMXObject; AL: TAlignLayout; SInfo: String);
var
  DyA: TStringDynArray; s: string; HI: THeaderItem; P: Integer;
begin
  AH := THeader.Create(AParent);
  AH.Parent := Aparent;
  AH.Height := Aheight;
  AH.Align := AL;

  DyA := SplitString (SInfo, ',');

  for s in DyA do begin
    P := Pos ('=', S);

    HI := THeaderItem.Create(AH);
    HI.Parent := AH;
    HI.Text := Copy (S, 1, p-1);
    HI.DragMode := TDragMode.dmManual; // Ohnen diesen Fix geht das ClickEvent nicht :-(
    HI.Width := StrToInt (Copy (S, p+1, Length (s)-P+1));

    if Assigned (AClickEvent) then HI.OnClick := AClickEvent;
  end;
end;
Das könnt Ihr dann so aufrufen (unterstellt, pnSizeBack ist hier z.B. ein TPanel):

var
BillHeader: THeader;

Delphi-Quellcode:
procedure TF_Main.FormCreate(Sender: TObject);
begin
  CreateANewHeader (BillHeader, 21, HeaderItemXClick, pnSizeBack, TAlignLayout.alTop,
   'Re-Datum=89,Re-Nr=64,Anl.=30,Name=176,Summe=100,ZS=24,Zahldatum=83');
  ...
end;
Ein Beispiel für die Event-Prozedur:

Delphi-Quellcode:
procedure TF_Main.HeaderItemXClick(Sender: TObject);
begin
  ShowMessage ('Clicked: ' + THeaderItem(sender).Text);
end;

Sir Rufo 2. Apr 2014 01:12

AW: Firemonkey Workarounds
 
Warum keine Factory?

So muss man sich ja diesen String irgendwie zusammenbasteln. Geht, aber ist auch nicht wirklich schön.
Delphi-Quellcode:
THeaderItemFactory = class
  function Build( const AText : string; AWidth : Integer ) : THeaderItem;
end;
Der Factory-Instanz gibt man alle relevanten Teile im
Delphi-Quellcode:
constructor
mit und erzeugt dann die jeweiligen Items.

Union 2. Apr 2014 11:02

AW: Firemonkey Workarounds
 
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:

Zitat von Harry Stahl (Beitrag 1254338)

Also ich kann das nicht reproduzieren. Wenn ich in pnSizeback in Form48 einen THeader und darin dann HeaderItems hinzufüge, sind die nach dem Speichern, Schließen und wieder Laden wieder da. Auch Dein angehängtes Form49, das den Fehler bereits enthalten soll kann ich problemlos laden (s. Anhang). Evtl. hast Du eine bpl geladen, die ein solches Fehlverhalten bei Dir auslöst. Höchstwahrscheinlich die TMS-Komponenten.


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:45 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz