Registriert seit: 4. Jan 2003
Ort: Sachsen
573 Beiträge
Delphi 5 Professional
|
13. Mär 2003, 20:26
Hallo Hansa,
gute Idee! (Das mit dem Verallgemeinern)
Hier mein eine erste optimierte Version:
Code:
{ lbxOrt.Style muß auf lbOwnerDrawFixed gesetzt sein für eigene Auswahlliste
Ergebnis: 2-spaltige Tabelle (mehr ist möglich
Nachteil: der Sprung auf den bereits eingegebenen Ort erfolgt nicht }
procedure TFKasse.lbxOrtDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
const
mx = 2; // = Anzahl der Spalten
arrWidth : array[0..mx] of integer = (0,120,150);
var
strVal, strAll : string;
i, pos1 : integer;
rc : TRect;
begin
lbxOrt.Canvas.Brush.Style := bsSolid;
lbxOrt.Canvas.FillRect(Rect);
// nur zur Sicherheit:
arrWidth[mx] := lbxOrt.Width;
// oben und unten bleiben unverändert
rc.Top := Rect.Top;
rc.Bottom := Rect.Bottom;
{ Die einzelnen Spalten müssen durch ';' getrennt sein }
strAll := lbxOrt.Items[Index]; // z.B.: "Ortename;12345"
for i := 0 to High(arrWidth) - 1 do begin
{ Zeichenbereich für erste Spalte }
rc.Left := Rect.Left + arrWidth[i] + 2;
rc.Right := Rect.Left + arrWidth[i+1] - 2;
{ Text für erste Spalte ausfiltern }
pos1 := Pos(';', strAll);
if pos1 > 0
then strVal := Copy(strAll, 1, pos1 - 1)
else strVal := strAll;
{ Text ausgeben }
lbxOrt.Canvas.TextRect(rc, rc.Left, rc.Top, strVal);
{ Trennlinie zwischen Spalten zeichnen }
lbxOrt.Canvas.MoveTo(rc.Right, rc.Top);
lbxOrt.Canvas.LineTo(rc.Right, rc.Bottom);
{ Text für nächste Spalte ausfiltern }
strAll := Copy(strAll, pos1 + 1, Length(strAll) - pos1);
end;
end;
mfg
eddy
|
|
Zitat
|