Forum: Object-Pascal / Delphi-Language
Delphi
by RedOne,
25. Sep 2012
Interessanter Ansatz.
Für meine Zwecke sehe ich aber ein paar Schwierigkeiten.
Ich zeige auf verschiedenen Bildschirmen den Saalplan an. Klickt der Verkäufer auf einen Sitz, wird auf dem zweiten Bildschirm für den Kunden der ensprechende Sitz rot markiert und - wenn er dem Wunsch des Kunden entspricht - gebucht und das Ticket gedruckt. Die bereits verkauften Sitze werden entsprechend...
Forum: Object-Pascal / Delphi-Language
Delphi
by RedOne,
25. Sep 2012
Irgendwo im Code der noch kommen wird ;-)
Ich bin der Meinung dass, wenn du willst, dass etwas wirklich freigegeben wird, mach ein try drumrum.
Forum: Object-Pascal / Delphi-Language
Delphi
by RedOne,
25. Sep 2012
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
rgn : HRGN;
plist : array of TPoint;
begin
plist := Point(104,150);
plist := Point(147,148);
plist := Point(151,287);
plist := Point(98,284);
rgn := CreatePolygonRgn(plist,4,Winding);
Forum: Object-Pascal / Delphi-Language
Delphi
by RedOne,
25. Sep 2012
Ich bastle mir das Schild gleich selbst... Danke, das hat geholfen :-)
Für alle zukünftigen Threadbesucher. So kann's klappen:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
rgn : HRGN;
plist : array of TPoint;
begin
Canvas.Brush.Color := clRed;
plist := Point(104,150);