Forum: Programmieren allgemein
by michael.cohrs,
16. Mai 2016
Hallo,
so schreibe ich die Werte in das Grid:
procedure TFAuftragsDruckliste.BuildCheckListView;
Var
oPrintOBJ : TPrintObj;
i : Integer;
sTemp : String;
Forum: Programmieren allgemein
by michael.cohrs,
16. Mai 2016
Danke, soweit habe ich alles umgesetzt, das Problem nun ist folgendes: wenn ich beim laden aus der Datenbank die eine Checkbox als Checked setze, reagieren die Boxen beim Click nicht mehr, soll heissen ich kann in keins der Boxen den Haken mehr setzen:cry:
Forum: Programmieren allgemein
by michael.cohrs,
16. Mai 2016
Sorry, Copy-Paste Fehler :oops:, hier der richtige Source:
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var iCol, iRow: Integer;
begin
with TStringGrid(Sender) do
if (Button = mbLeft) and Editing then
begin
MouseToCell(x, y, iCol, iRow);
Forum: Programmieren allgemein
by michael.cohrs,
16. Mai 2016
Hallo HolgerX,
es wird doch in dem MouseDown Event geprüft welcher Wert gerade gesetzt
wurde und dann entprechend umgekehrt gsetzt.
(Oder mache ich hier grundliegend etwas falsch????)
Forum: Programmieren allgemein
by michael.cohrs,
16. Mai 2016
Guten morgen zusammen,
ich habe in eine Stringgrid mit folgender Methode Checkboxen in Column 0 gezeichnet:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
function CheckBox(Value: String): Cardinal;
begin
result:= DFCS_INACTIVE; // no Entry