DGL • Thema anzeigen

DrawGrids

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Kyro

Betreff des Beitrags: DrawGrids

Verfasst: Sa Apr 22, 2006 22:19

DGL Member

Registriert: So Okt 26, 2003 20:07
Beiträge: 249

Hi,

habe ein paar probleme damit, andere komponenten ins drawgrid zu bringen.
spezieller hab ich probleme mit Checkboxes und Comboboxes.
Buttons oder Editfelder funktionieren einwandfrei.
Checkboxes kann man seltsamerweise nicht checken (das häkchen verschwindet direkt bzw taucht erst garnicht auf), ComboBoxes flackern und "öffnen" sich nicht. Hoffe mir kann da jemand helfen.

Hier noch etwas Code:

Code:

 
type
 TGridControl = class(TEdit) // TEdit als Beispiel, Code ändert sich bei anderen nicht (bei combobox kommt nurnoch items.add hinzu)
  public
    ACol, ARow: Integer;
  end;
 
var
  Control: TGridControl;
 
procedure TForm2.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
var
  Rect: TRect;
begin
  if Control <> nil then
    Control.Destroy;
  Rect := DrawGrid1.CellRect(ACol, ARow);
  Control := TGridControl.Create(TComponent(Sender));
  Control.Parent := TWinControl(Sender);
  Control.ACol := ACol;
  Control.ARow := ARow;
  Control.Text := 'Test';
end;
 
procedure TForm2.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if Control <> nil then
  if (Control.ACol = ACol) and (Control.ARow = ARow) then
  begin
    // sollte gescrollt worden und die zelle noch sichtbar sein...
    Control.Visible := True;
    if Control.Left <> Rect.Left then
     Control.Left := Rect.Left;
    if Control.Top <> Rect.Top then
     Control.Top := Rect.Top;
    if Control.Width <> Rect.Right-Rect.Left-1 then
     Control.Width := Rect.Right-Rect.Left-1;
    if Control.Height <> Rect.Bottom-Rect.Top-1 then
     Control.Height := Rect.Bottom-Rect.Top-1;
  end;
end;
 
procedure TForm2.DrawGrid1TopLeftChanged(Sender: TObject);
begin
  // vorsichtshalber ausblenden, die zelle könnte "außer sicht" sein
  if Control <> nil then
   Control.Visible := False;
end;

komischerweise funktionierts, wenn ich die form als parent nehme. allerdings finde ich das sehr unbequem.

gruß

_________________
I'm not the signature, I'm just cleaning the floor...

Derzeitiges Projekt:
FireBlade Particle Engine (Release R2 2009.06.29)

Nach oben

luketheduke

Betreff des Beitrags:

Verfasst: Sa Apr 22, 2006 22:41

DGL Member

Registriert: Fr Mai 14, 2004 18:56
Beiträge: 804
Wohnort: GER/OBB/TÖL-WOR/Greiling

In der DP hatte da auch vor kurzem jemand Probleme. Vielleicht findest du da noch was... bei ihm warens buttons^^

mehr weiss ich da allerdings auch nciht...

_________________

"User Error. Replace User and hit Continue."

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.