-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
4. Jul 2004
Args - ich muss Dich jetzt ... nein, aber ich hasse die Maus :roll:
...:cat:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
4. Jul 2004
Das musst Du selbst machen, und zwar oben rechts auf erledigt klicken ;)
...:cat:...
P.S.: Gegen Double-Buffered ist nichts einzuwenden - nur was hat bei meiner Lösung gehakt :gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Leider nicht so einfach. Da musst Du wohl die gesamte Komponente ändern :?
...:cat:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Noch mal ich :mrgreen: Ich habe das Sample vergessen :roll:
...:cat:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Hm, keine Antwort ist auch eine Antwort :? Aber, für den Fall, daß Du mit der Maus selektierst, so ist mir aufgefallen, mußt Du noch folgende Events füllen: OnMouseMove, OnMouseDown, OnMouseUp
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Sender = nil then
Exit;
if not (Sender is TStringGrid) then
...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Okay, einen Fehler habe ich noch gefunden:
function TForm1.CellInRange(aGrid: TCustomDrawGrid; aCol, aRow: Integer
): Boolean;
var
Dummy, StartPoint, EndPoint: TGridCoord;
begin
Result := False;
StartPoint.X := aGrid.Col;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Getestet.
Hm, Mirilin hat die gleiche Lösung gesucht - und sein ScreenShot zeigt das gleiche Ergebnis. Ich bin jetzt überfragt, was nicht stimmt.
Jetzt werden doch alle Felder von x1,y1 ... x2,y2 horizontal markiert. Was ist denn noch nicht so wie Du es erwartest :gruebel:
...:cat:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Und meine Lösung :cry: Die ist jetzt doch sauber und sollte gehen :cry:
...:cat:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
@richard_boderich
Na ja, den kleinen Bug in meiner Lösung hättest Du ja auch selbst entfernen können :mrgreen:
Einfach mal die Methode CellInRange austauschen.
function TForm1.CellInRange(aGrid: TCustomDrawGrid; aCol, aRow: Integer
): Boolean;
var
Dummy, StartPoint, EndPoint: TGridCoord;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Genauso lief der Code auch bei mir. Was für eine Delphiversion hast Du denn? Hast Du das OnSelectCell Ereignis eingesetzt?
...:cat:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Okay, verstanden und ... ;) gelöst.
Das ist schon etwas einfacher. Du mußt zwei Ereignisse abfangen. Einmal das OnSelectCell, um dem StringGrid mitzuteilen, daß sich die Auswahl grundlegend geändert hat, und einmal das OnDrawCell Ereigniss, um die Auswahl darzustellen.
Außerdem habe ich noch eine Methode geschrieben, welche ermittelt, ob sich eine Zelle (Spalte, Zeile) in der erweiterten...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Sorry, aber Bahnhof. Zeichne doch mal ein Bild mit einem Beispiel :?
...:cat:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
So, die Lösung habe ich gleich in die CodeLib befördert. Hier: http://www.delphipraxis.net/internal_redirect.php?p=198202#198202
Viel Erfolg. Wenn Du Fragen hast, bitte in Deinem (diesen!) Thread. Danke.
...:cat:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
2. Jul 2004
Erst einmal die schlechte Nachricht :mrgreen:
TStringGrid kann es nicht, genauso wie auch das TDrawGrid von Delphi. Die Ursache hier liegt etwas tiefer begraben. Das Delphi-Grid merkt sich ausschließlich das markierte Rechteck in der Eigenschaft Selection
type
TGridRect = record
case Integer of
0: (Left, Top, Right, Bottom: Longint);
1: (TopLeft, BottomRight:...