Hmm..
Sorry, Copy-Paste Fehler
, hier der richtige Source:
Delphi-Quellcode:
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);
if (iCol > 0) and (iRow > 0) then
begin
if Cells[iCol, iRow] = '1' then // Checked
Cells[iCol, iRow]:= '0'
else if Cells[iCol, iRow] = '0' then // not Checked
Cells[iCol, iRow]:= '1';
end;
end;
end;
Hier wird auf (iCol > 0) abgefragt, aber deine Column bei
Zitat:
Delphi-Quellcode:
procedure TFAuftragsDruckliste.BuildCheckListView;
Var
oPrintOBJ : TPrintObj;
i : Integer;
sTemp : String;
begin
Dbg_Auftragsauswahl_new.RowCount := FPrint_lst.Count + 1;
for I := 0 to FPrint_lst.Count - 1 do
Begin
oPrintOBJ := FPrint_lst[i] As TPrintObj;
if oPrintOBJ <> nil then
Begin
if oPrintOBJ.APASW then
sTemp := '1'
else
sTemp := '0';
with Dbg_Auftragsauswahl_new do
Begin
Objects[8,i+1] := oPrintOBJ;
Cells[0, i+1] := sTemp;
end;
end;
end;
end;
ist doch gleich 0! Somit aus (iCol > 0) ein (iCol >= 0) machen und dann sollte es gehen....
Ansonsten zeige nochmal alle beiden Funktionen, um Copy-Fehler aus zu schließen...