AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Checkboxen in Stringgrid

Ein Thema von michael.cohrs · begonnen am 16. Mai 2016 · letzter Beitrag vom 18. Mai 2016
Antwort Antwort
michael.cohrs

Registriert seit: 11. Nov 2005
Ort: Hamburg
130 Beiträge
 
#1

AW: Checkboxen in Stringgrid

  Alt 16. Mai 2016, 12:50
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] = '1then // Checked
          Cells[iCol, iRow]:= '0'
         else if Cells[iCol, iRow] = '0then // not Checked
          Cells[iCol, iRow]:= '1';
      end;
    end;
end;
Michael Cohrs
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
981 Beiträge
 
Delphi 6 Professional
 
#2

AW: Checkboxen in Stringgrid

  Alt 18. Mai 2016, 04:31
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] = '1then // Checked
          Cells[iCol, iRow]:= '0'
         else if Cells[iCol, iRow] = '0then // 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...
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:24 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz