Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Несколько колонок в TComboBox


procedure TForm1.ComboBox1DrawItem(Control: TWinControl; 
  Index: Integer; Rect: TRect; State: TOwnerDrawState); 
var 
  strVal, strAll: string; 
  pos1, pos2: Integer; 
  rc: TRect; 
  arrWidth: array [0..3] of Integer; 
begin 
  Combobox1.Canvas.Brush.Style := bsSolid; 
  Combobox1.Canvas.FillRect(Rect); 
  // Die einzelnen Spalten mussen durch ';' getrennt sein 
  // the columns must be separated by ';' 
  strAll := Combobox1.Items[Index]; 

  arrWidth[0] := 0; 
  arrWidth[1] := 100;  // Width of column 1 
  arrWidth[2] := 200;  // Width of column 2 
  arrWidth[3] := 300;  // Width of colimn 3 

  // Zeichenbereich fur erste Spalte 
  // Drawingrange for first column 
  rc.Left   := Rect.Left + arrWidth[0] + 2; 
  rc.Right  := Rect.Left + arrWidth[1] - 2; 
  rc.Top    := Rect.Top; 
  rc.Bottom := Rect.Bottom; 

  // Text fur erste Spalte ausfiltern 
  // Get text for first column 
  pos1   := Pos(';', strAll); 
  strVal := Copy(strAll, 1, pos1 - 1); 
  // Text ausgeben 
  // Draw Text 
  Combobox1.Canvas.TextRect(rc, rc.Left, rc.Top, strVal); 
  // Trennlinie zwischen Spalten zeichnen 
  // Draw separating line betwenn columns 
  Combobox1.Canvas.MoveTo(rc.Right, rc.Top); 
  Combobox1.Canvas.LineTo(rc.Right, rc.Bottom); 

  // Zeichenbereich fur zweite Spalte 
  // Drawingrange for second column 
  rc.Left  := Rect.Left + arrWidth[1] + 2; 
  rc.Right := Rect.Left + arrWidth[2] - 2; 

  // Text fur zweite Spalte ausfiltern 
  // Get text for second column 
  strAll := Copy(strAll, pos1 + 1, Length(strAll) - pos1); 
  pos1   := Pos(';', strAll); 
  strVal := Copy(strAll, 1, pos1 - 1); 

  // Text ausgeben 
  // Draw Text 
  Combobox1.Canvas.TextRect(rc, rc.Left, rc.Top, strVal); 
  // Trennlinie zwischen Spalten zeichnen 
  // Draw separating line betwenn columns 
  Combobox1.Canvas.MoveTo(rc.Right, rc.Top); 
  Combobox1.Canvas.LineTo(rc.Right, rc.Bottom); 

  // Zeichenbereich fur dritte Spalte 
  // Drawingrange for third column 
  rc.Left  := Rect.Left + arrWidth[2] + 2; 
  rc.Right := Rect.Left + arrWidth[3] - 2; 

  // Text fur dritte Spalte ausfiltern 
  // Get text for third column 
  strAll := Copy(strAll, pos1 + 1, Length(strAll) - pos1); 
  pos1   := Pos(';', strAll); 
  strVal := Copy(strAll, 1, pos1 - 1); 

  // Text ausgeben 
  // Draw Text 
  Combobox1.Canvas.TextRect(rc, rc.Left, rc.Top, strVal); 
  // Trennlinie zwischen Spalten zeichnen 
  // Draw separating line betwenn columns 
  Combobox1.Canvas.MoveTo(rc.Right, rc.Top); 
  Combobox1.Canvas.LineTo(rc.Right, rc.Bottom); 
  strAll := Copy(strAll, pos1 + 1, Length(strAll) - pos1); 
end; 


// Example/ Beispiel: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  with Combobox1.Items do 
  begin 
    Add('first;second;third;'); 
    Add('column1;column2;column3;'); 
  end; 
end; 


procedure TForm1.FormCreate(Sender: TObject); 
begin 
  //Oder im Objekt Inspektor einstellen 
  //Or set this Property in the Object Inspector 
  Combobox1.Style := csOwnerDrawFixed; 
end;

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.