Hallo alle zusammen!

Ich steht wiedermal vor einem Problem!

Ich habe folgenden Quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

function TForm1.GetStartCell(vehiclenum: integer; startdate: TDate): TPoint;
var ActCol, ActRow: integer;
begin
  result := Point(-1, -1);
  for ActCol := 1 to Auftragseingabe.ColCount - 1 do
  begin
    if Auftragseingabe.Rows[0][ActCol] = DateToStr(startdate)
    then
    begin
      result.X := ActCol;
      for ActRow := 1 to Auftragseingabe.RowCount - 1 do
      begin
        if Auftragseingabe.Cols[0][ActRow] = 'LKW ' + IntToStr(vehiclenum)
        then
        begin
          result.Y := ActRow;
          break;
        end;
      end;
      break;
    end;
  end;
end;




procedure TForm1.Button1Click(Sender: TObject);

 var select: TGridRect;
    SelStart: TPoint;
begin
  SelStart := GetStartCell(StrToIntDef(Fahrzeugnummer.Text, -1),
                                       StrToDate(Startdatum.Text));
  if (SelStart.X > -1) and (SelStart.Y > -1)
  then
  begin
   
    select.Left := SelStart.X + StrToIntDef(Auftragslaenge.Text, 0) - 1;
    select.Right := SelStart.X;
    select.Top := SelStart.Y;
    select.Bottom := SelStart.Y;
    Auftragseingabe.Selection := select;
  end;
end;

Das Funktioniert auch also er Selektiert die gesuchten Zeilen.

Mein Problem ist ich möchte das er in diese Zeilen aus dem Editfeld "Kundennummer" den Eintrag schreibt.
Also Im sinne von 'KundenNr. + Kundennummer.text'

Dann hab ich noch einen 2 Quellcode.

markieren

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with TStringGrid(Sender).Canvas do begin
       if (ACol=1) and (ARow=1) then begin
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
  end;
end;

Er makiert aber halt nur wie oben die Zelle 1 Spalte 1 Reihe!
Ich möchte aber gerne das er die aus dem Quellcode der Selektierung ausgewählten felder Rot färbt und halt die Kundennummer rein schreibt.

Wenn ich das jetzt aber versuche auf die selektierten Felder zu bringen dann färbt er auch alle die Felder ein die ich mit der Maus anklicke und das soll er nicht!
Also hab ich mir gedacht diesen Brush befehl auf die ausgefüllten Felder mit dem Eintrag
"KundenNr + Kundennummer.text" an zu wenden. Aber wie mach ich dieses?

Vorstellen könnte ich mir das so:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with TStringGrid(Sender).Canvas do begin
       if (stringgrid1.cell := 'Kundennr + "Kundennummer.text"') and
       (stringgrid1.row := 'Kundennr + "Kundennummer.text"')
  then begin
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
  end;
end;

Ich hoffe Ihr könnt mir helfen!

Gruß Sievo

Du musst auch den Parameter State beachten:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if State = [] then // NICHT Selected, Focused oder Fixed
    with TStringGrid(Sender).Canvas do begin
       if (ACol=1) and (ARow=1) then begin // <=======
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
    end;
end;

PS: das ist nur eine Teillösung. Die markierte Zeile muss auch angepasst werden.

Hmm

also ich hab mir jetzt überlegt die Zelle erst dann zu Färben wenn da 'KundenNr. + Kundennummer.text'
drin steht. also müsste ich doch das state so setzen das da raus kommt:

markieren

Delphi-Quellcode:

IF state [Auftragseingabe.Drawtext := 'KundenNr. + Kundennummer.text']
  then begin
          with TStringGrid(Sender).Canvas do begin
          if (ACol=1) and (ARow=1) then begin // <=======
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
    end;
end;

Aber dazu müsste ich ja erstmal hinbekommen das die durch die eingabe selektierten Felder beschriftet werden mit 'KundenNr. + Kundennummer.text'.
oder ist sowas garnicht möglich?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  ZellenText : string;
begin
  if State = [] then // NICHT Selected, Focused oder Fixed
  begin
    // erstmal aktuelle Zelle auslesen
    ZellenText := TStringGrid(Sender).Cells[ACol, ARow];
    with TStringGrid(Sender).Canvas do begin
       // Prüfen, ob Zelle mit bestimmten Text beginnt
       if Copy(ZellenText, 1,9)= 'KundenNr.' then
       begin
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
    end;
  end;
end;

Man Man Man ^^

Das klappt ja wie sau!!

Vielen Dank!!!!

Nur das ich halt nicht hinbekomme das in die selektierten Felder automatisch der Eintrag
'KundenNr. + Kundennummer.text' eingetragen wird. Mein obiger erster Quelltext.

markieren

Delphi-Quellcode:

 begin
   
    select.Left := SelStart.X + StrToIntDef(Auftragslaenge.Text, 0) - 1;
    select.Right := SelStart.X;
    select.Top := SelStart.Y;
    select.Bottom := SelStart.Y;
    Auftragseingabe.Selection := select;
  end;

Bedeutet ja sozusagen das diese felder Selektiert werden aber ich muss dann auch noch dazu in die felder eintragen 'KundenNr. + Kundennummer.text'.