Wissen, News, Stream und Download zu smallville lazarus
Alles im Web finden: Videos, Software, Bücher, Dokumente, Wissenschaft, Nachrichten
Kein Treffer zur Suche von smallville lazarusSuchergebnisse: smallville lazarus
Wörterbuch/ Übersetzter progamieren mit Delphi bzw. Lazarus
Also ich wollte mir jetzt vor einer Weile mal ein kleines Wörterbuch programmieren, der Anfang ist auch schon getan, ich habe bereits alle Worte drinne, und die werden mir bei der Eingabe auch ausgegeben.
ich wollte jetzt einerseits wissen, wie ich es machen kann dass es das Wort erkennt, egal ob groß oder klein geschrieben.
Also um das mal an einem Beispiel zu erklären, bei der Übersetzunge der Zahl "8" habe ich jetzt als befehl eingegeben
if s='8' then s:='skri';
ich würde jetzt aber auch gerne dass 'skri' auch dann ausgegeben wenn ich 'Acht' oder 'acht' eingeben, bisher hab ich es jetzt erstmal so gemacht das ich alles noch mal neu eingegeben habe, also das ich dann quasi 3 Zeilen dafür habe, kann ich dass auch irgendwie zusammen in einen befehl mache? ich habe es versucht mit
if s='8' or 'acht' or 'Acht' then s:='skri';
aber das hat irgendwie nicht geklappt. wie genau kann ich das also machen?
So 2. Man hat ja teilweise mehrere Übersetzungsmöglichkeiten für ein Wort, ich würde gerne das diese Untereinander ausgegeben würden. aber irgendwie klappte das bei mir nicht so richtig. was muss ich dafür also eingeben?
su und nun zur letzten Frage, ich hätte gern dass man mir die gramatik der jeweiligen Sprache anzeigt. Ich kenne bisher nur die 'Memo' - komponente, die müsste dafür geeignet sein? wenn ja wie baue ich das ein, damit mir dann eben zum schluss das ganze angeziegt wird. bisher hat sich bei allem wes ich gemacht hat diese Memokomponente immer konsequent geweigert mir zu zeigen was ich davor eingetippt habe (also bezogen jetzt auf andere programme bei denen ich das 'Memo' gebraucht habe).
alsi ich hoffe ihr könnt mir helfen
ich wollte jetzt einerseits wissen, wie ich es machen kann dass es das Wort erkennt, egal ob groß oder klein geschrieben.
Also um das mal an einem Beispiel zu erklären, bei der Übersetzunge der Zahl "8" habe ich jetzt als befehl eingegeben
if s='8' then s:='skri';
ich würde jetzt aber auch gerne dass 'skri' auch dann ausgegeben wenn ich 'Acht' oder 'acht' eingeben, bisher hab ich es jetzt erstmal so gemacht das ich alles noch mal neu eingegeben habe, also das ich dann quasi 3 Zeilen dafür habe, kann ich dass auch irgendwie zusammen in einen befehl mache? ich habe es versucht mit
if s='8' or 'acht' or 'Acht' then s:='skri';
aber das hat irgendwie nicht geklappt. wie genau kann ich das also machen?
So 2. Man hat ja teilweise mehrere Übersetzungsmöglichkeiten für ein Wort, ich würde gerne das diese Untereinander ausgegeben würden. aber irgendwie klappte das bei mir nicht so richtig. was muss ich dafür also eingeben?
su und nun zur letzten Frage, ich hätte gern dass man mir die gramatik der jeweiligen Sprache anzeigt. Ich kenne bisher nur die 'Memo' - komponente, die müsste dafür geeignet sein? wenn ja wie baue ich das ein, damit mir dann eben zum schluss das ganze angeziegt wird. bisher hat sich bei allem wes ich gemacht hat diese Memokomponente immer konsequent geweigert mir zu zeigen was ich davor eingetippt habe (also bezogen jetzt auf andere programme bei denen ich das 'Memo' gebraucht habe).
alsi ich hoffe ihr könnt mir helfen
die Bedingung müsste doch "if s='8' or s='Acht' or s='acht'" sein oder nicht?
also ich habe es jetzt gerade eben damit probiert.
if s='acht' or s='8' or s='Acht' then s:= 'skri'; und dann zeigte es mir an
unit1.pas Error: Operation "or" not supported for types "Constant String" and "AnsiString"
unit1.pas Error: Operation "or" not supported for types "Char" and "AnsiString"
unit1.pas Fatal: There were 2 errors compiling module, stopping
davor lief übrigens alles perfekt, ohne jegliche Fehlermeldungen.
if s='acht' or s='8' or s='Acht' then s:= 'skri'; und dann zeigte es mir an
unit1.pas Error: Operation "or" not supported for types "Constant String" and "AnsiString"
unit1.pas Error: Operation "or" not supported for types "Char" and "AnsiString"
unit1.pas Fatal: There were 2 errors compiling module, stopping
davor lief übrigens alles perfekt, ohne jegliche Fehlermeldungen.
ach ja hier ein Bild wie das ganze momentan aussieht.
Mit Knopfdruck Befehl starten Lazarus Programmierung
Guten Tag liebe
Ich hab wieder eine Frage an euch. Ich hab' gerade angefangen Lazarus zu programmieren und brauche nun eine Vokabel. Hier also meine Frage:
Ich brauche den Befehl, wenn ich einen Button drücke, dass ein Befehl gestartet bzw. NUR EIN Befehl ausgeführt wird.
Ich dachte da zuerst an caption, aber dachte daran, dass dies nur für Namensänderung ist. Bitte um Antworten!
Ich hab wieder eine Frage an euch. Ich hab' gerade angefangen Lazarus zu programmieren und brauche nun eine Vokabel. Hier also meine Frage:
Ich brauche den Befehl, wenn ich einen Button drücke, dass ein Befehl gestartet bzw. NUR EIN Befehl ausgeführt wird.
Ich dachte da zuerst an caption, aber dachte daran, dass dies nur für Namensänderung ist. Bitte um Antworten!
Den gewünschten Befehl brauchst Du nur in die Methode "OnClick" des Buttons einzutragen, das ist alles.
OnClick wird dann zur Laufzeit des Programms ausgeführt, wenn der Button angeklickt wird.
OnClick wird dann zur Laufzeit des Programms ausgeführt, wenn der Button angeklickt wird.
Lazarus ListBox von unten nach oben füllen
Hi.Ich hab einen einfachen Rechner geschrieben der Dezimalzahlen in den Binär Code umrechnet.Die Rechen Methode die ich verwendet hab könnt ihr unten auf dem Bild sehen.Wie ihr aber sehen könnt muss man die Rest Werte von unten nach oben lesen um dann letztendlich den korrekten Binär Code zu bekommen.Da sich eine Listbox bei Lazarus aber immer von oben nach unten füllt komme ich hier nicht weiter.Gibt es eine Möglichkeit die ListBox von unten nach oben zu füllen?Andere Lösungswege sind auch erwünscht.Meinen Code könnt ihr euch hier ansehen: Dropbox - Link not found
Das erreicht man, indem man die neuen Einträge nicht unten anhängt, sondern immer an der ersten Position einfügt.
Wenn ich die Lazarus-Dokumentation richtig verstehe, würde man das mit folgendem Befehl machen:ausgabeListBox.items.insertbuffer)); 1 Kommentar anzeigen Kommentar von , 11.01.2015 Hat funktioniert,.
Wenn ich die Lazarus-Dokumentation richtig verstehe, würde man das mit folgendem Befehl machen:ausgabeListBox.items.insertbuffer)); 1 Kommentar anzeigen Kommentar von , 11.01.2015 Hat funktioniert,.
Lazarus Projekt
Hey
Ich bin im Thema Programmieren ziemlich neu, und zurzeit entwickel ich zusammen mit nem Kumpel ein Spiel für den Informatik Unterricht. Soweit erstmal nichts besonderes. Wir haben vor, so etwas wie das Spiel FastBall zu machen: https://market.android.com/details?i.astball2&hl=de
Dabei haben wir ziemliche Probleme, da unser "kompetenter" Lehrer uns nicht sehr viel beigebracht hat, und uns sozusagen ins kalte Wasser geschmissen hat. Wie kann man sozusagen eine "Schwerkraft" erzeugen? Also damit der Ball immer auf der Shape die den Boden darstellst aufliegt. Gibt es sowas? Wir wollen mehrere "Stöcke" bauen. Wie kann man den Ball von den Rändern abprallen lassen? Da der Ball ja von selber läuft, bräuchte man nur eine Taste die ihn immer im gleichen Winkel hochspringen lässt, und ebenso wieder aufkommen lässt. Wie können wir das machen? Und wie könnten wir das von zb. der Leertaste aus steuern? Wir müssen das alles mit Lazarus machen. Ich kann das projekt irgendwie nicht Anhängen.
Ich freue mich über jeden, der versucht mir einen Lösungsansatz zu liefern, denn ich bin mittlerweile wirklich ratlos
Ich bin im Thema Programmieren ziemlich neu, und zurzeit entwickel ich zusammen mit nem Kumpel ein Spiel für den Informatik Unterricht. Soweit erstmal nichts besonderes. Wir haben vor, so etwas wie das Spiel FastBall zu machen: https://market.android.com/details?i.astball2&hl=de
Dabei haben wir ziemliche Probleme, da unser "kompetenter" Lehrer uns nicht sehr viel beigebracht hat, und uns sozusagen ins kalte Wasser geschmissen hat.
Ich freue mich über jeden, der versucht mir einen Lösungsansatz zu liefern, denn ich bin mittlerweile wirklich ratlos
Zu 1: Ihr braucht eine Kollisionserkennung. Als simpelste Lösung könnt ihr prüfen ob die Position des Balls der Position des Bodens entspricht. Angenommen die Y-Position des "Bodens" ist 5. Dann ist eine Kollision gegeben wenn der Ball dieser Position+1 entspricht .
Laienhaft ausgedrückt: if then Kollisionsbehandlung.
Hierzu gibt es auch andere Ansätze, wie Image-Based-Collision etc. aber das wär glaub ich etwas zu viel für den Anfang.
Zu 3. Wie du schon sagtest läuft der Ball von selbst, das bedeutet in jedem Frame wird die X-Position des Balls um einen festgelegten Wert erhöht . Um den Ball springen zu lassen, bräuchtest du eine Sprung-Prozedur, die den Ball einfach für eine festgelegte Zeitspanne nach oben bewegt . Wenn du das ganze noch mit einer Schwerkraft-Prozedur kombinierst die den Ball in jedem Frame um einen Wert nach unten bewegt hast du eigentlich schon alles was du für das Spiel brauchst. Fehlt nur noch die Kollisionsbehandlung für die seitliche Bewegung - das Prinzip ist aber dasselbe - damit dürfte auch Frage 2 beantwortet sein.
Das ganze ist jetzt wirklich sehr laienhaft dargestellt. Ihr werdet noch auf andere Probleme stoßen. Framebased-Movement vs. Timebased-Movement, Timingprobleme, Grafikausgabe etc.
Wie wäre es zuerst mit etwas einfacherem? Ein Memoryspiel z.B. da geht nicht so schnell die Lust verloren
Laienhaft ausgedrückt: if then Kollisionsbehandlung.
Hierzu gibt es auch andere Ansätze, wie Image-Based-Collision etc. aber das wär glaub ich etwas zu viel für den Anfang.
Zu 3. Wie du schon sagtest läuft der Ball von selbst, das bedeutet in jedem Frame wird die X-Position des Balls um einen festgelegten Wert erhöht . Um den Ball springen zu lassen, bräuchtest du eine Sprung-Prozedur, die den Ball einfach für eine festgelegte Zeitspanne nach oben bewegt . Wenn du das ganze noch mit einer Schwerkraft-Prozedur kombinierst die den Ball in jedem Frame um einen Wert nach unten bewegt hast du eigentlich schon alles was du für das Spiel brauchst. Fehlt nur noch die Kollisionsbehandlung für die seitliche Bewegung - das Prinzip ist aber dasselbe - damit dürfte auch Frage 2 beantwortet sein.
Das ganze ist jetzt wirklich sehr laienhaft dargestellt. Ihr werdet noch auf andere Probleme stoßen. Framebased-Movement vs. Timebased-Movement, Timingprobleme, Grafikausgabe etc.
Wie wäre es zuerst mit etwas einfacherem? Ein Memoryspiel z.B. da geht nicht so schnell die Lust verloren
aber das war uns zuuu langweilig Bei einem Memory Spiel hat man ja kaum was zu tun, das ist zu doof Erstmal für deine Antwort Kannst du denn mit Delphi/ Lazarus Programmieren? Könntest du uns weiter helfen? Ich stell dir mal den Code rein. Keine Angst die vielen Timer sind eigentlich für das Hauptprogramm unnötig. wir haben die nur eingebaut wegen einer Startampel die wir davor gesetzt haben, und wegen der Endlosschleife
Code: unit uBallspiel;
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;
type
{TForm1}
TForm1 = class Button1: TButton; Shape1: TShape; Shape10: TShape; Shape11: TShape; Shape2: TShape; Shape3: TShape; Shape4: TShape; Shape5: TShape; Shape6: TShape; Shape7: TShape; Shape8: TShape; Shape9: TShape; Timer1: TTimer; Timer10: TTimer; Timer11: TTimer; Timer12: TTimer; Timer13: TTimer; Timer14: TTimer; Timer15: TTimer; Timer16: TTimer; Timer17: TTimer; Timer18: TTimer; Timer19: TTimer; Timer2: TTimer; Timer20: TTimer; Timer21: TTimer; Timer22: TTimer; Timer23: TTimer; Timer24: TTimer; Timer25: TTimer; Timer26: TTimer; Timer3: TTimer; Timer4: TTimer; Timer5: TTimer; Timer6: TTimer; Timer7: TTimer; Timer8: TTimer; Timer9: TTimer; procedure Button1Click; procedure FormCreate; procedure Shape10ChangeBounds; procedure Shape11ChangeBounds; procedure Shape1ChangeBounds; procedure Shape2ChangeBounds; procedure Shape3ChangeBounds; procedure Shape4ChangeBounds; procedure Shape5ChangeBounds; procedure Shape6ChangeBounds; procedure Shape8ChangeBounds; procedure Shape9ChangeBounds; procedure Timer10Timer; procedure Timer11Timer; procedure Timer12Timer; procedure Timer13Timer; procedure Timer14Timer; procedure Timer15Timer; procedure Timer16Timer; procedure Timer17Timer; procedure Timer18Timer; procedure Timer19Timer; procedure Timer1Timer; procedure Timer20Timer; procedure Timer21Timer; procedure Timer22Timer; procedure Timer23Timer; procedure Timer24Timer; procedure Timer25Timer; procedure Timer26Timer; procedure Timer2Timer; procedure Timer3Timer; procedure Timer4Timer; procedure Timer5Timer; procedure Timer6Timer; procedure Timer7Timer; procedure Timer8Timer; procedure Timer9Timer; private {private declarations} public {public declarations} end;
var Form1: TForm1;
implementation
{$R *.lfm}
{TForm1}
procedure TForm1.Timer1Timer; begin shape6.Top :=shape6.top+30; timer2.enabled :=true ; timer1.enabled :=false ; end;
procedure TForm1.Timer2Timer; begin shape6.Top :=shape6.top+30; timer3.enabled :=true ; timer2.enabled :=false ; end;
procedure TForm1.Timer3Timer; begin shape6.Top :=shape6.top+35; timer4.enabled :=true ; timer3.enabled :=false ; end;
procedure TForm1.Timer4Timer; begin shape6.top :=shape6.top+37; timer15.enabled :=true ; timer4.enabled :=false ; end;
procedure TForm1.Timer15Timer; begin shape6.top :=shape6.top+44; timer5.enabled :=true ; timer15.enabled :=false ; end;
procedure TForm1.Timer5Timer; begin shape6.left:=shape6.left+300; timer6.enabled :=true ; timer5.enabled :=false ; end;
procedure TForm1.Timer6Timer; begin shape6.left:=shape6.left+300; timer7.enabled :=true ; timer6.enabled :=false ; end;
procedure TForm1.Timer7Timer; begin shape6.left:=shape6.left+300; timer5.Enabled :=true; timer7.enabled :=false ; end;
procedure TForm1.Timer8Timer; begin shape8.brush.color :=clred ; timer9.Enabled :=true; timer8.Enabled :=false; end;
procedure TForm1.Timer9Timer; begin shape9.brush.color :=clred ; timer10.Enabled :=true; timer9.Enabled :=false; end;
procedure TForm1.Timer10Timer; begin shape10.brush.color :=clred ; timer11.Enabled :=true; timer10.Enabled :=false; end;
procedure TForm1.Timer11Timer; begin shape11.brush.color :=clred ; timer12.Enabled :=true; timer11.Enabled :=false; end;
procedure TForm1.Timer12Timer; begin shape8.brush.color :=cllime ; shape9.brush.color :=cllime ; shape10.brush.color :=cllime ; shape11.brush.color :=cllime ; timer13.Enabled :=true; timer12.Enabled :=false; end;
procedure TForm1.Timer13Timer; begin shape8.visible :=false ; shape9.visible :=false ; shape10.visible :=false
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;
type
{TForm1}
TForm1 = class Button1: TButton; Shape1: TShape; Shape10: TShape; Shape11: TShape; Shape2: TShape; Shape3: TShape; Shape4: TShape; Shape5: TShape; Shape6: TShape; Shape7: TShape; Shape8: TShape; Shape9: TShape; Timer1: TTimer; Timer10: TTimer; Timer11: TTimer; Timer12: TTimer; Timer13: TTimer; Timer14: TTimer; Timer15: TTimer; Timer16: TTimer; Timer17: TTimer; Timer18: TTimer; Timer19: TTimer; Timer2: TTimer; Timer20: TTimer; Timer21: TTimer; Timer22: TTimer; Timer23: TTimer; Timer24: TTimer; Timer25: TTimer; Timer26: TTimer; Timer3: TTimer; Timer4: TTimer; Timer5: TTimer; Timer6: TTimer; Timer7: TTimer; Timer8: TTimer; Timer9: TTimer; procedure Button1Click; procedure FormCreate; procedure Shape10ChangeBounds; procedure Shape11ChangeBounds; procedure Shape1ChangeBounds; procedure Shape2ChangeBounds; procedure Shape3ChangeBounds; procedure Shape4ChangeBounds; procedure Shape5ChangeBounds; procedure Shape6ChangeBounds; procedure Shape8ChangeBounds; procedure Shape9ChangeBounds; procedure Timer10Timer; procedure Timer11Timer; procedure Timer12Timer; procedure Timer13Timer; procedure Timer14Timer; procedure Timer15Timer; procedure Timer16Timer; procedure Timer17Timer; procedure Timer18Timer; procedure Timer19Timer; procedure Timer1Timer; procedure Timer20Timer; procedure Timer21Timer; procedure Timer22Timer; procedure Timer23Timer; procedure Timer24Timer; procedure Timer25Timer; procedure Timer26Timer; procedure Timer2Timer; procedure Timer3Timer; procedure Timer4Timer; procedure Timer5Timer; procedure Timer6Timer; procedure Timer7Timer; procedure Timer8Timer; procedure Timer9Timer; private {private declarations} public {public declarations} end;
var Form1: TForm1;
implementation
{$R *.lfm}
{TForm1}
procedure TForm1.Timer1Timer; begin shape6.Top :=shape6.top+30; timer2.enabled :=true ; timer1.enabled :=false ; end;
procedure TForm1.Timer2Timer; begin shape6.Top :=shape6.top+30; timer3.enabled :=true ; timer2.enabled :=false ; end;
procedure TForm1.Timer3Timer; begin shape6.Top :=shape6.top+35; timer4.enabled :=true ; timer3.enabled :=false ; end;
procedure TForm1.Timer4Timer; begin shape6.top :=shape6.top+37; timer15.enabled :=true ; timer4.enabled :=false ; end;
procedure TForm1.Timer15Timer; begin shape6.top :=shape6.top+44; timer5.enabled :=true ; timer15.enabled :=false ; end;
procedure TForm1.Timer5Timer; begin shape6.left:=shape6.left+300; timer6.enabled :=true ; timer5.enabled :=false ; end;
procedure TForm1.Timer6Timer; begin shape6.left:=shape6.left+300; timer7.enabled :=true ; timer6.enabled :=false ; end;
procedure TForm1.Timer7Timer; begin shape6.left:=shape6.left+300; timer5.Enabled :=true; timer7.enabled :=false ; end;
procedure TForm1.Timer8Timer; begin shape8.brush.color :=clred ; timer9.Enabled :=true; timer8.Enabled :=false; end;
procedure TForm1.Timer9Timer; begin shape9.brush.color :=clred ; timer10.Enabled :=true; timer9.Enabled :=false; end;
procedure TForm1.Timer10Timer; begin shape10.brush.color :=clred ; timer11.Enabled :=true; timer10.Enabled :=false; end;
procedure TForm1.Timer11Timer; begin shape11.brush.color :=clred ; timer12.Enabled :=true; timer11.Enabled :=false; end;
procedure TForm1.Timer12Timer; begin shape8.brush.color :=cllime ; shape9.brush.color :=cllime ; shape10.brush.color :=cllime ; shape11.brush.color :=cllime ; timer13.Enabled :=true; timer12.Enabled :=false; end;
procedure TForm1.Timer13Timer; begin shape8.visible :=false ; shape9.visible :=false ; shape10.visible :=false
shape11.visible :=false ; timer1.enabled :=true ; timer13.enabled :=false ; end;
procedure TForm1.Timer14Timer; begin
end;
procedure TForm1.Timer16Timer; begin
end;
procedure TForm1.Timer17Timer; begin
end;
procedure TForm1.Timer18Timer; begin
end;
procedure TForm1.Timer19Timer; begin
end;
procedure TForm1.Timer20Timer; begin
end;
procedure TForm1.Timer21Timer; begin
end;
procedure TForm1.Timer22Timer; begin
end;
procedure TForm1.Timer23Timer; begin
end;
procedure TForm1.Timer24Timer; begin
end;
procedure TForm1.Timer25Timer; begin shape8.visible :=true ; shape9.visible :=true ; shape10.visible :=true ; shape11.visible :=true ; timer8.enabled :=true; timer25.enabled :=false; end;
procedure TForm1.Timer26Timer; begin shape6.Brush.color :=cllime ; shape1.Brush.color :=clblue ; shape2.Brush.color :=clblue ; shape3.Brush.color :=clblue ; shape4.Brush.color :=clblue ; shape5.Brush.color :=clblue; timer25.enabled :=true; timer26.enabled :=false; end;
procedure TForm1.Button1Click; begin shape8.brush.color :=clwhite ; shape9.brush.color :=clwhite ; shape10.brush.color :=clwhite ; shape11.brush.color :=clwhite ; timer26.Enabled :=true ; end;
procedure TForm1.FormCreate; begin
end;
procedure TForm1.Shape1ChangeBounds; begin
end;
procedure TForm1.Shape2ChangeBounds; begin
end;
procedure TForm1.Shape3ChangeBounds; begin
end;
procedure TForm1.Shape4ChangeBounds; begin
end;
procedure TForm1.Shape5ChangeBounds; begin
end;
procedure TForm1.Shape6ChangeBounds; begin
end;
procedure TForm1.Shape8ChangeBounds; begin
end;
procedure TForm1.Shape9ChangeBounds; begin
end;
procedure TForm1.Shape10ChangeBounds; begin
end;
procedure TForm1.Shape11ChangeBounds; begin
end;
end.
procedure TForm1.Timer14Timer; begin
end;
procedure TForm1.Timer16Timer; begin
end;
procedure TForm1.Timer17Timer; begin
end;
procedure TForm1.Timer18Timer; begin
end;
procedure TForm1.Timer19Timer; begin
end;
procedure TForm1.Timer20Timer; begin
end;
procedure TForm1.Timer21Timer; begin
end;
procedure TForm1.Timer22Timer; begin
end;
procedure TForm1.Timer23Timer; begin
end;
procedure TForm1.Timer24Timer; begin
end;
procedure TForm1.Timer25Timer; begin shape8.visible :=true ; shape9.visible :=true ; shape10.visible :=true ; shape11.visible :=true ; timer8.enabled :=true; timer25.enabled :=false; end;
procedure TForm1.Timer26Timer; begin shape6.Brush.color :=cllime ; shape1.Brush.color :=clblue ; shape2.Brush.color :=clblue ; shape3.Brush.color :=clblue ; shape4.Brush.color :=clblue ; shape5.Brush.color :=clblue; timer25.enabled :=true; timer26.enabled :=false; end;
procedure TForm1.Button1Click; begin shape8.brush.color :=clwhite ; shape9.brush.color :=clwhite ; shape10.brush.color :=clwhite ; shape11.brush.color :=clwhite ; timer26.Enabled :=true ; end;
procedure TForm1.FormCreate; begin
end;
procedure TForm1.Shape1ChangeBounds; begin
end;
procedure TForm1.Shape2ChangeBounds; begin
end;
procedure TForm1.Shape3ChangeBounds; begin
end;
procedure TForm1.Shape4ChangeBounds; begin
end;
procedure TForm1.Shape5ChangeBounds; begin
end;
procedure TForm1.Shape6ChangeBounds; begin
end;
procedure TForm1.Shape8ChangeBounds; begin
end;
procedure TForm1.Shape9ChangeBounds; begin
end;
procedure TForm1.Shape10ChangeBounds; begin
end;
procedure TForm1.Shape11ChangeBounds; begin
end;
end.
Lasst die ganzen Timer weg. Setzt es mit einem Timer um. Man kann mit Delphi in nur eine limitierte Anzahl von Timern erzeugen. Irgendwann bekommt man ne Out-Of-Ressource Exception.
Smallville Staffel 10 German sub wo kann ich alle als stream sehen auch folge 5 ?
Serienjunkies : Downloads & Streams » Smallville – Season 10 – DVD/Blu-ray – SD/720p
Allerdings kommt die 10te Staffel erst noch als Stream. Aber ist die Staffel komplett auf Englisch im Download verfügbar.
Allerdings kommt die 10te Staffel erst noch als Stream. Aber ist die Staffel komplett auf Englisch im Download verfügbar.