Noch eine Frage ...^^

[PhenomX4]

Wer meine älteren Theards gelesen hat weiß, dass ich ja ein Programm ähnlich dem Windows editor machen wollte. das hab ich nun geschafft
jetzt hab ich mir vorgenommen ein Programm zu schreiben, mit dem ich Bilder anschauen kann, die in einer Timagelist abgelegt sind. Ich möchte die Bilder vor bzw. zurück "schalten" können.

das hier hab ich im moment.

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
begin
imagelist1.getbitmap((0), image1.Picture.bitmap);
 
end;

Das funktioniert bis jetzt schonmal. Nur es kommt halt wenn ich auf "Weiter" klicke nur bild "0" aus der ImageList. Ich müsste also irgendwie das hier erreichen:

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
begin
imagelist1.getbitmap((0), image1.Picture.bitmap);
[color=#FF0000]//imagelist1.index von  bild +1[/color] 
 
end;

Vielleicht ist das auch der falsche weg oder sogar der komplett falsche ansatz deshalb brauch ich eure hilfe
Außerdem fehlt micht noch das mit dem "Zurück" Button. Hierfür hab ich noch garkeine Idee )=

Für euch sind das bestimmt Peanuts ^^ wenn jemand ein gutes "Tutorial Buch" kennt für Lazarus anwendungen wäre das echt super (= möchte nämlich nicht für alles ein neuen Theard aufmachen ^^

[Teekeks]

Nun, was denkst du wozu es Variablen gibt?
Z.B. eine integer-Variable.

Diese setzt du am Anfang auf 0 und beim Klicken auf "Weiter" erhöhst du diesen Wert.
Und natürlich musst du anstatt der 0 die Variable in das einsetzen was du bereits hast.

[PhenomX4]

danke schonmal (-:

jetzt habe ich folgendes:

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
var bild:byte;
begin
bild:=0;
imagelist1.getbitmap(bild, image1.Picture.bitmap);
bild:=+1;
 
end;

bitte lach mich nicht aus... das mit bild:=+1 funktioniert nicht )=

ist es überhaupt richtig wie ich es bis dahin gemacht habe??

Wie beschäftige mich erst seit ein paar Tagen mit dem Programm und habe davor noch nie was in solcher form gemacht ^^

[felix96]

Du musst die Variable weiter oben Deckladieren, da wo var form1: tform steht.
Da drunter einfach.
So wird sie glaub ich bei jedem Klick wieder auf null gesetzt.


P.S. und verwende inc(variable); um die Variable um 1 hoch zu zählen (variable musst du natürlich durch den Namen der Variable ersetzen).


P.S.2.So würde es auch gehen: bild:=bild+1;

[Targion]

Du musst die Variable weiter oben Deckladieren, da wo var form1: tform steht.
Da drunter einfach.

Noch besser dem Forumal zugehörig machen: Variablendeklaration im "private" abschnitt der TForm1-Klasse.

[PhenomX4]

hmm jez hab ich das hier:

Code: Alles auswählen

procedure TForm1.button2Click(Sender: TObject);
 
begin
bild:=0;
imagelist1.getbitmap(bild, image1.Picture.bitmap);
bild:=bild+1;
 
end;

und das hier (weiter oben):

Code: Alles auswählen

var
  Form1: TForm1;
  bild:byte;

wenn ich auf Button2 also "Weiter" klicke, kommt das erste bild im TImagelist. Wenn ich dann nochmal auf weiter gehe passiert nichts )=

[theo]

Bitte Hirn einschalten und nicht jeden Furz ins Forum posten.

Was soll den passieren, wenn du jedes mal zurücksetzt? ( bild:=0; )

[felix96]

theo, keine Neueinsteiger beleidigen, ich fand das wegen groß-und Kleinschreibung damals auch nicht nett...

Also: du musst die Variable mit 0 initialisieren, dafür einfach hinter den Typ (z.B. Byte) = wert schreiben.
z.B. bild: byte=0;

Außerdem, wofür gibts die "Einsteiger"-Spalte?

[theo]

@felix96: Hier geht's nicht um Einsteiger sondern um Hirn einschalten.
Gilt auch für dich. Deine Antwort ist nicht die Lösung. Das macht er ja, drum geht's nicht weiter.

[PhenomX4]

danke an beide (=

@theo: deshalb fragte ich ja ob jemand ein gutes buch kennt wo die grundlagen etc erklärt werden.. kann mir schon vorstellen das es euch nervt wenn immer tausende von so billig fragen gestellt werden ^^

[theo]

deshalb fragte ich ja ob jemand ein gutes buch kennt wo die grundlagen etc erklärt werden..

Online gibt's hier ein paar Links: http://www.lazarusforum.de/viewtopic.php?f=21&t=79" onclick="window.open(this.href);return false;
Sonst sollte eigentlich jedes Pascal- oder Delphi-Buch weiterführen.

[Teekeks]

Allgemein ist auch das hier zu Empfehlen:
http://www.amazon.de/gp/product/3936546 ... 393654638X" onclick="window.open(this.href);return false;

[creed steiger]

Ich fand das hier zum Einstieg garnicht mal so übel
(kratzt zwar nur an der Oberfläche aber absolut Einsteigertauglich)
http://www.knowware.de/delphi.htm" onclick="window.open(this.href);return false;

[felix96]

Also das Lazarus-Buch von Teekeks ist für Einsteiger nicht so zu empfehlen,
siehe http://www.lazarusforum.de/viewtopic.php?f=1&t=3562 <<Beitrag von jaslasalz

[af0815]

Was erwartet sich eigenlich ein Einsteiger von einem Buch - wäre mal interessant zu hören.