Gleisbild??? mit was???

[Flashbanger]

Hallo ich hab das problem das ich ein gleisbild erstellen möchte. unter visual-basic würde ich eine PictureBox-box benutzen, aber wie heißt so was unter lazarus??? Die funktionsweise sollte klar sein aber ich erklär sie noch einmal.

Ich brauche ein fester, bzw einen berreich indem ich bitmaps aneinanderreihen und stapeln kann, außerdem muss ich sie anklicken können und ich muss jedes einzellne bild bearbeiten können.

MfG Flashbanger

[Euklid]

Hallo ich hab das problem das ich ein gleisbild erstellen möchte. unter visual-basic würde ich eine PictureBox-box

Das nennt sich bei Lazarus TImage. Zu finden im Tab "Additional" der Komponentenleiste. Bedienung ähnlich einfach wie unter VB.

Viele Grüße, Euklid

[theo]

Ich brauche ein fester, bzw einen berreich indem ich bitmaps aneinanderreihen und stapeln kann, außerdem muss ich sie anklicken können und ich muss jedes einzellne bild bearbeiten können.

Geht alles, aber dazu muss man erst programmieren lernen.

[pluto]

Ja dafür hast du verschiedene Möglichkeiten.

1. Du nutze die TImage von Lazarus.
Als Untergrund würde ich eine TScrollbox nehmen.

Jetzt erstellst du deine TImageListe und Setzte sie auf die gewünschte Position.
Nebenan der und Unternander ist gar nicht mal so schwer !
Wobei du müsstes auch noch wissen, wie viele sollen Nebenander gezeichnet werden ?

Zum Anklicken würde ich hier einfach das onClick Ereignis von TImage nutzen. einfach beim erstellen zuweisen und beim anklicken den Sender Auswerten bzw. erst zu einem TImage umwandeln und erst prüfen ob es ein TImage auch ist....
(ist zwar nicht erforderlich, aber schaden kann es auch nicht, oder ?).

2. Ich weiß jetzt nicht wie weit du bis in Object Pascal bzw. wie weit deine Kentnisse sind. Ich würde das evlt. Komplet alles in ein Panel selbst zeichnen.

also Scrolbox, Panel, ein Buffer(TBitMap) als Hintergrund.
In das Buffer zeichnest du jetzt deiner Bilder rein.
(Zu Emfehlen ist auch Theos OptBitmap... wegen den Vielen Grafik Foramten die unterstützt werden).

Beim Hinzufügen solltest du eine eigene kleine Klasse erstellen:
TItem = Class
Bild:TBitMap;
r:TRect;// Für die Collisiosn erkennung mit der Maus !
issel:Boolean;
end;

Nach dem das Hinzufügen und das Zeichnen geklappt hat, solltest du das onMouseDown Ereignisse von TPanel nutzen.
dort musst du alle Objekte in der Liste durchgehen und mit ptInRect prüfen ob ein Zusammenstoß mit der Maus passiert ist, wenn ja Markiere es...


und Fertig.... Der Aufwand ist nicht besonders groß *G*...

Ich hoffe das hat jetzt einer(du) Halbwegs verstanden.