kleines D8 Programm

[Hansa]

Hi,

wer D8 hat soll/kann sich das hier mal ansehen :

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.nfm}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
procedure TfrmRegis.sgRegisDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);

procedure WriteText(StringGrid: TStringGrid; ACanvas: TCanvas; const ARect: TRect;
    const Text: string);
  const
    DY = 2;
  var
    S: array[0..255] of Char;
  begin
    with Stringgrid, ACanvas, ARect do begin
      ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY,
            ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text),
            Length(Text), nil);
    end;
  end;

  procedure Display(StringGrid: TStringGrid; const S: string);
  begin
    WriteText(StringGrid, StringGrid.Canvas, Rect, S);
  end;

begin
  inherited;
  if (ACol in [1,4,6,7]) then
    Display(sgRegis, sgRegis.Cells[ACol, ARow]);
end;

end.

Das ist ein Teil eines D7 Programmes. Und zwar ein Stringgrid auf einer Form, sonst nichts. Das einzige was erreicht werden soll : manche Zellen sollen wegen Zahlen rechtsbündig dargestellt werden. Compilieren tut es nicht. Das @ stört wohl auch und ich will gerne nach und nach solchen Sachen auf die Spur kommen. Wer da Lust hat, kann es mal versuchen zu compilieren und seinen Kommentar über neue Erkenntnisse hier abgeben.

[EDIT]Tipfvela vrbressert

[sakura]

Works for me (in D8):

Delphi-Quellcode:

procedure TForm1.sgRegisDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

  procedure WriteText(StringGrid: TStringGrid; ACanvas: TCanvas; const ARect: TRect; const Text: string);
  const
    DY = 2;
  var
    S: array[0..255] of Char;
  begin
    with Stringgrid, ACanvas, ARect do begin
      ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY,
            0, ARect, Text, Length(Text), nil);
    end;
  end;

  procedure Display(StringGrid: TStringGrid; const S: string);
  begin
    WriteText(StringGrid, StringGrid.Canvas, Rect, S);
  end;

begin
  if (ACol in [1,4,6,7]) then
    Display(sgRegis, sgRegis.Cells[ACol, ARow]);
end;

...:cat:...

[MathiasSimmack]

Zitat:

Zitat von sakura

Works for me (in D8):

Vielleicht sollte man mal über eine Änderung des Smileys nachdenken. Passiert bei (Win98 ) nämlich auch, wenn man kein Leerzeichen setzt. @Daniel: ?

[Daniel]

Zitat:

Zitat von MathiasSimmack

@Daniel: ?

STATUS
Delphi-PRAXiS.net has confirmed that this is a bug in the Delphi-PRAXiS.net products that are listed (or not) at the beginning of this article.

:mrgreen:
Ich kann das so abändern, dass ein Leerzeichen davor und dahinter gefordert wird.

[MathiasSimmack]

Ist zwar off-topic, aber gibt´s nicht andere Möglichkeiten? Wie wäre es statt Kürzel mit einem Begriff à la ": evil :" .... meinetwegen ":glasses:", oder so.

[Hansa]

:warn: Müßt ihr meinen schönen Thread direkt schon versauen ? :mrgreen: Wegen den paar 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) 8) Nur Neulinge wie Sakura fallen noch darauf rein. :stupid: Mal sehen ob sein (D 8) Programm läuft. Gut aussehen tut es auf den ersten Blick. .Net scheint allerdings sehr langsam zu sein (oder eben D 8). :lol:

[Bernhard Geyer]

Zitat:

Zitat von Hansa

.Net scheint allerdings sehr langsam zu sein (oder eben D 8). :lol:

.NET ist nicht langsam (Jedenfalls nicht prinzipbedingt). Teilweise um 50% schneller als ein entsprechenden D6/7-Programm.
Der erste Aufruf eines Programms kann dauern (Startzeit von .NET-Framework).
D8 mit VCL ist prinzipbedingt langsam (sehr viele P/Invoke-Aufrufe in VCL nötig. Und die dauern aufgrund der Sicherheitsüberprüfung).

[Alexander]

Die Programme an sich sind wirklich nicht langsam, im Gegenteil. Aber D8 selber ist es :mrgreen: :roll:

[Bernhard Geyer]

Das stimmt. Aber mit 2,6 GHz und 2 GB Ram merkt man sowas nicht so schnell 8)

[Hansa]

Das hier wird jetzt der 8) Thread. 8) :mrgreen: Denn eines ist schoon klar 8) Sakuras Programm läßt sich zwar compilieren, aber es macht nicht was die Vorgabe war. 8) Rechtsbündig ist da nix. 8)

[Hansa]

So. Nochmals wegen D8) Ich habe hier 2 Zips dran gehangen. Jeweils für D7 bzw. D8. Jede Zip enthält außer dem Source noch einen Screenshot, wie das ganze unter D7 / D8 aussieht. Und auch die jeweilige EXE. Man sollte sich mal deren Größe ansehen. Echt phänomenal. :shock:

Das D7 ist von mir, in dem D8 ist der Source von Sakura eingebaut, der aber nicht geht. :mrgreen:

[Hansa]

immer mehr Fragen tauchen auf :

@Sakura : compilieren läßt sich das ganze ja, aber warum ? Verstehe nicht den genauen Sinn der Änderungen. 8)

@WinApi-Spezialisten : was ist davon zu halten, daß die .NET EXE nur 10 kB hat, die D7 aber über 400 kB ? Gibt es einen Haken daran ?

@Rest : wer in 1-5 Jahren noch programmieren will, der muß sich mit der Thematik befassen. 8)

[mirage228]

Zitat:

Zitat von Hansa

@WinApi-Spezialisten : was ist davon zu halten, daß die .NET EXE nur 10 kB hat, die D7 aber über 400 kB ? Gibt es einen Haken daran ?

Hi,

die VCL.NET ist dynamisch gelinkt, sie muss also auf dem Zielrechner vorhanden sein.
Edit: Linkst du sie mit in die EXE, wird die locker über 1,3 MB

mfG
mirage228

[Hansa]

Zitat:

Zitat von mirage228

die VCL.NET ist dynamisch gelinkt

Was ist das ? 8) Willst du darauf hinaus, es sei wie mit der BDE ? Daß irgendwas außer der EXE mitgeliefert werden muß, oder wie ? Ich gehe von einem installierten .NET-Framework aus, oder demnächst von Longhorn. 8)

[mirage228]

Zitat:

Zitat von Hansa

Zitat:

Zitat von mirage228

die VCL.NET ist dynamisch gelinkt

Was ist das ? 8) Willst du darauf hinaus, es sei wie mit der BDE ? Daß irgendwas außer der EXE mitgeliefert werden muß, oder wie ? Ich gehe von einem installierten .NET-Framework aus, oder demnächst von Longhorn. 8)

Nun,

die VCL.NET gehört nicht zum .NET Framework. Ist sie dynamisch gelinkt, müssen die VCL.NET Assemblies auf dem Zielrechner vorhanden sein (ähnlich mit Delphi-Win32 und der Option "mit Laufzeitpackages kompiliern")
Werden sie mit einkompiliert, steigt die Dateigröße, wie gesagt, auf > 1 MB.