Deutsches Lazarusforum

Dumme Frage: sudo update-grub2 oder update-grub hast du gemacht? https://linuxwiki.de/grub4dos Nein, habe ich nicht gemacht, ich habe den Bootstick unter Windows eingerichtet. Ich habe folgendes gemacht: - Mit Rufus meinen Stick auf FAT formatiert - Freedos 1.3 RC1 die Datei FD13FULL.IMG mit Rufus ...

Hallo, Ich will freedos eine GUI verpassen, die modernen Anforderungen gerecht wird. Das will ich tun indem ich ein kleines Linux wie Antix oder das Linux fremde KolibriOS, das nur 60MByte umfasst, aber als .IMG vorligt, von DOS Prompt aus booten. Mit Easy2Boot einen Bootstick angeleggt funktioniert...

Danke @siro, der Aufruf vor keypressed war die Ursache für mein Problem. Allerdings erhalte ich nun überhaupt nur die Groß- und Kleinbuchstaben wie auch die Cursortasten und Home,End,PgUp,PgDn und die Funktionstasten. Keine Alt+Key Kombinationen, die Ctrl+Key Kombinationen nur, soweit sie von der Ko...

Soweit schon klar. OnKeypress kenne ich. Habe auch schon VCL (Delphi) und LCL (Lazarus) programmiert. Aber irgendwo müssen die Tastatuereignisse doch her kommen. Der Rechner hat nach wie vor sein Bios, wo es die Interrupt-Funktion INT16h zur Tastaturabfrage gibt. DOS Interrupts entfallen, die dürfte...

@Siro: Danke für den Tipp, aber leider hilft auch das nicht weiter. @Kupferstecher: Ja, im Moment ist das ein Kommandozeilenversion. Die aber später in eine grafische Applikation überführt werden soll. Wie kann ich solche Tatendrücke an die Komponenten weiter leiten? Welche Quelltexte sollte ich mir...

Du hast in deiner Funktion GetKeyCode folgende Zeile: GetKeyCode := KeyCode; KeyCode wird aber nirgends gesetzt ??? Somit dürfte dein Ergebnis recht zufällig ausfallen, oder verstehe ich da etwas falsch ? Soll das evtl. GetKeyCode := DosKeyCode; heissen ? Siro Danke für den Hinweis! Nein, es darf n...

Hallo, ich habe folgenden Code:   unit MyKey;   Interface   uses sysutils, classes, crt;   type TKeyEvent = record CharCode: byte; ScanCode: byte; VirtCode: byte; //wegen Windows, hier trägt die Abfrageroutine den VK_XXX Code ein ShiftState: TShiftState; ShiftDirection: byte; //Linke oder rechte Shi...

Wieso das? Ich will doch einfach nur die Kapazität etwas größer machen, als aktuell gebraucht. Im Beispiel 2 Einträge mehr. Wenn die Einträge dann kommen sollen die zuerst in die Zuviel bereitgestellten Speicherplätze geschrieben werden und danach lege ich neue an, wenn die Anzahl der zusätzlich ber...

Danke Euch! Stimmt, dass der Quellcode so nicht compilierbar ist. Liegt daran dass ich das nur als Demo so hier rein geschrieben habe, ohne es getestet zu haben. Mein Original dazu ist um ein Vielfaches komplexer, das Demo hier sollte nur das Problem aufzeigen. Nun habe ich das Demo nach den Hinweis...

Hallo, ich habe einen Record:   type TMemberProc = function(a,b,c,d: integer): Integer; TProcRec = record ProcName: LPCTSTR; ProcPtr: TMemberProc; end; TProcs = Array of TProcRec;   TProcRecClass = class(TObject) private FRec: TProcRec; public constructor Create(Rec: TProcRec); property Rec: TProcRe...

Habe ich gemacht: [code] var myatom: ATOM; myatom := RegisterClassEx(wc); Im Fenter "Überwachte Ausdrücke" ist der Wert vor dem Aufruf 0, nache dem Aufruf <evaluating>. Habe dann Rechtsklick auf dem Wert (Zeile mit dem blauen Cursor auf myatom) gemacht, dort Eigenschaften ausgewählt. Im er...

Hallo, ich probiere gerade eine Grafikbibliothek aus und steh auf dem sprichwörtlichen Schlauch. Ich poste das Problem dennoch hier, nicht in API & Plattformspezifisches. Weil es wahrscheinlich mit der Bibliothek zusammenhängt. Die stellt kein standardmäßiges API für Freepascal dar. Hier erst ma...

Danke wie verrückt Euch allen. So wie von @wp_xyz beschrieben, funktioniert die Suche und vorher das Füllen der Liste. Dieser habe ich nun einen Destructor spendiert, der nun die Records nach wp_xyz's Methode nach Gebrauch frei gibt. Ich benutze nun auch einen Zeiger auf den Record als Variable, da ...

Und warum ist das falsch, habe ich dochb so gemacht. Das Feld Items aus TList ist doch vom Typ Pointer. Woher soll TList da wissen, was in diesem Pointer gespeichert ist, wenn diese Typumwandlung in TMyList falsch ist. Welche Workarounds gibt es da? Oder kann es sein, dass es da einen Konflikt gibt,...

Ok hier das Programm!   program listdemo;   uses Classes, Sysutils;   type TMyRec = record Zahl: Integer; Name: String; end; TMyList = class(TList) private fRec: TMyRec; public function find(Item: String; end;   function TmyList.Find(Item: String; var wc: TMyRec): Boolean; var In...