Grafische Darstellung von Platzreservierungen

[hathor]

TxpButton

http://www.torry.net/vcl/buttons/packs/xpCtrl.zip
oder
http://anigators.com/projekte/TXPButton/index.html

[Bummi]

IMHO am schnellsten umzusetzen, mit Datenbank, gegf. einen kleinen Editor schreiben

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TStuhlInfo=Record
    RGN:HRGN;
    Color:TColor;
    ID:Integer;
    // was auch immer noch benötigt wird
  End;
  TStuhlArray=Array of TStuhlInfo;
  TForm2 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    FStuhlArray:TStuhlArray;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
type
   pArray=Array[0..3] of TPoint;
var
    p:pArray;
begin

  // hier nur exemplarisch 1 Stuhl  >> wahrscheinlich am besten aus einer Datenbank
  SetLength(FStuhlArray,1);
  p[0].X := 10;
  p[0].y := 10;
  p[1].X := 100;
  p[1].y := 20;
  p[2].X := 90;
  p[2].y := 110;
  p[3].X := 0;
  p[3].y := 100;
  FStuhlArray[0].RGN := CreatePolygonRgn(p,4,WINDING);
  FStuhlArray[0].Color := clRed;
end;

procedure TForm2.FormDestroy(Sender: TObject);
var
 i:Integer;
begin
  for I := Low(FStuhlArray) to High(FStuhlArray) do  Deleteobject(FStuhlArray[i].RGN);
end;

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 i:Integer;
begin
  for I := Low(FStuhlArray) to High(FStuhlArray) do
    if PtInRegion(FStuhlArray[i].RGN,x,y) then Showmessage(IntToStr(i));


end;

procedure TForm2.FormPaint(Sender: TObject);
var
 i:Integer;
begin
    for I := Low(FStuhlArray) to High(FStuhlArray) do
      begin
        Canvas.Brush.Color := FStuhlArray[i].Color;
        FillRgn(Canvas.Handle,FStuhlArray[i].RGN,Canvas.Brush.Handle);
      end;
end;

end.

[Cronen]

So, ich habe den Vorschlag von Bummi mal ausprobiert. Das scheint mir eine gangbare Lösung zu sein.
Der Weg mit HRGN mit CreatePolygonRgn oder anderen Create...Rgn -Funktionen ist wohl relativ unproblematisch mit einer Datenbank zu realisieren.
Folgendes Problem stellt sich mir aber noch:
Als Hintergrund habe ich ein TImage mit dem Grundriss. FillRgn zeichnet aber auf dem Form und wird daher
überlagert. (Ich hab versuchsweise mal als Canvas den vom Image angegeben -> funktioniert nicht)

[Ralf Kaiser]

Wäre das HotspotImage von TMS etwas für das Problem?

Damit kann man ein Bild laden und beliebige Bereiche als klickbar definieren.

[Cronen]

@ Ralf Kaiser
Vielen Dank für den Tip.Hab mir die Trial dazu mal runtergeladen.
Das Europa-Quiz bei den Demos könnte in etwa ein Lösung sein.
Ich muss mir aber die Möglichkeiten der DB-Anbindung mal näher
ansehen. Ich werde morgen oder so die Compo mal installieren.
Heute komm ich nicht mehr dazu.

[Popov]

Mal davon abgesehen, dass ich eine Software habe die so was von perfekt für diese Aufgabe geeignet ist, aber sie kostet etwa 10000 Euro pro Lizenz. Also zurück zu Delphi.

Ich habe ein ähnliches Projekt zu lösen gehabt und muß sagen, daß man die Sache mit den Polygonen sehr gut lösen kann. Zwar ist das am Anfang eine Fleißarbeit alle Polygone zu zeichnen, aber dann ist es easy.

Was ich dir aber gleich zu Anfang empfehlen möchte ist: achte auf skalierbarkeit. Das sind paar Minuten mehr Kopfarbeit, die sich später evtl. auszahlen.

[Bummi]

Du kannst die Routine auf jedem beliebigen Canvas malen lassen.
In dem von Dir beschriebenen Fall würde ich eine Paintbox nehmen, im OnDraw zuerst den Grundriss malen lassen und danach die Polygone, Du musst dann natürlich das MouseDown der Paintbox verwenden.