Deutsches Lazarusforum

Hier mal wie ich es jetzt umgesetzt habe:


procedure TMainForm.FilesGrid_KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

function GetSelectedRecords: TStrings;
var
List: TStrings;
i: integer;
begin
result := nil;

if (0 < FilesGrid.SelectedRows.Count) then
begin
List ...

PS: Logik würde ich immer von Anzeigekomponenten entkoppeln, auch wenn die RAD einen dazu verleitet, sowas nicht zu tun.

Jaein? Ein Grid ist ja nicht "nur" eine Anzeigekomponente, sondern eine Komponente zur Interaktion mit den darstellenden Daten.
Insofern, muss sie die Interaktion auch sauber ...

Vielen Dank, das wars. Perfekt!

Hallo,

ich benutze TProcess um ein konsolenbasiertes RawCopy Programm auszuführen.

Ein einfacher Kommandezeilenbefehl sieht wie folgt aus:

Muster: Anwendung.exe Quelldatei Zielpfad

C:\Portable\RawCopy64.exe "C:\Meine Daten\Eine Datei.png" "C:\Meine kopierten Daten"


Wenn das ganze jetzt so ...

Schreibe doch nach dem Delete den Wert von FilesGrid.SelectedRows.Count in eine Dummy-Variable, die du mit Hilfe eines Breakpoints abfragen kannst.


Auf die Idee bin ich auch gekommen:

procedure TMainForm.FilesGrid_KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var Counter ...

Hallo,

ich möchte gerne aus einem TDBGrid X Datesätze auswählen und per Tastendruck "Entf" löschen.

Dazu mache ich aktuell folgendes:


procedure TMainForm.FilesGrid_KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i: integer;
begin
case Key of
VK_DELETE:
begin
if (0 ...

Ok, danke, gut zu wissen.
Ich nutze die Palette nicht... :?
Ich habe mir die IDE visuell meinen Wünschen angepasst (so ähnlich wie in den neueren Delphi), die Palette ist raus,
dafür nutze ich die vertikale Komponenten-Ansicht, die hat den Pfeil nicht...
Nachdem hatte ich übrigens auch gesucht ...

Hallo,

ich habe da ein seltsames Verhalten der IDE, dass hin und wieder auftritt und ich keine Ahnung habe, warum diese so reagiert.
Suche danach hat keine Erfolge gebracht, deshalb hier:

Wenn ich eine Komponente auf ein Formular lege und ich diese dann markieren möchte,
zum verschieben etc. dann ...

Vielen Dank, dass hat mich schon eine ganze Ecke weitergebracht.

Ich habe jetzt:

Die Packageoptionen angepasst,
LZLTranslator in die uses des Packages eingetragen
Package neue compiliert
Die erstellten PO-Dateien kopiert in .de.po und .en.po
Die Übersetzungen gemacht


In meiner Anwendung habe ...

Hallo nochmal,

wie vorgeschlagen habe ich das mit einer kleinen Demo nachgestellt und siehe da, dort funktionierts :shock: ...
Ich hänge es trotzdem mal an.

Also habe ich weiter geschaut.

1. Problem: Meine PO-Dateien sahen irgendwie seltam aus, merkwürdige Strings etc. also hab alle alle *.po ...

Hallo,

ich hoffe ich habe das richtige Forum ausgewählt.

Entsprechend der Dokumentationen und dem Lazarus Beispielprogramm habe ich meine Anwendung auf Multilingual umgestellt.
Das funktioniert im Grunde erstmal gut.
Ich habe PO-Dateien für deutsch und englisch und finde dort auch alle ...

Danke für die Info.
Ok, ich habe gerade erst das Release eingerichtet.
Ich werde wohl zum nächsten Release warten, um das so umzusetzen.

Hallo,

ich habe hier und im englischen Forum, bzw. Suchmaschine / Freepascal Wiki versucht mich etwas vorab zu erlesen,
ob ich im aktuellen Lazarus 1.6.3 / FPC 3 Class Operator in Records nutzen und überladen kann.

Gedacht ist es wie folgt:

Projektdatei: {$mode objfpc}{$H+}
In der Unit ...

Ich nehme alles Zurück!!! Sorry. Du hattest Recht es lag daran.

Ich habe deine Antwort nicht richtig gelesen und das PtrInt nur eine einer Stelle eingesetzt.
Es muss an beide Stellen und dann Funktionert das ganze auch wieder.

Vielen Dank!!

Danke für die Antwort, aber leider liegts daran nicht. Der Fehler bleibt gleicht.
Zum Test habe ich auch eine zweite Variable getestet, um das Ergebnis der Pointer Umwandlung zu vergleichen,
einmal mit Pointer einmal mit PtrInt. Die Ergebnisse sind identisch.

Werde aber den Rat beherzigen und ...