AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TMonthCalendar + Drag&Drop

Ein Thema von rudi_ · begonnen am 10. Okt 2004 · letzter Beitrag vom 10. Okt 2004
Antwort Antwort
rudi_

Registriert seit: 10. Okt 2004
Ort: Neuss
34 Beiträge
 
Delphi 7 Professional
 
#1

TMonthCalendar + Drag&Drop

  Alt 10. Okt 2004, 11:18
Hi Leute,


also ich habe da so ein klitzekleines Problem: eine kleine Terminverwaltung mit einem TMonthCalendar und ein TListView, das zu jedem gewählten Tag die eingetragenen Termine anzeigt.
Soweit so gut - jetzt würde ich allerdings gerne einen Termin mit Drag&Drop aus dem TListView zu einem anderen Tag verschieben können..also einfach über den gewünschten Tag im TMonthCalendar ziehen und dann wird das dorthin verschoben (soweit an dem Tag zu der Uhrzeit nicht schonwas belegt ist - aber das ist ja ein anderes Problem). (gespeichert wird alles in einer mysql datenbank)

So oder so, mein Problem im Moment ist erstmal: wie bekomme ich heraus, über welchem Kalendertag ich mich beim "draggen" gerade befinde; sowas wie die GetItemAt Funktion des TListView.

danke schonmal für die hilfe,

rudi
Wie Sie sehn,
sehn Sie nichts.
  Mit Zitat antworten Zitat
rudi_

Registriert seit: 10. Okt 2004
Ort: Neuss
34 Beiträge
 
Delphi 7 Professional
 
#2

Re: TMonthCalendar + Drag&Drop

  Alt 10. Okt 2004, 18:19
schon gut, habs selbst rausgefunden

ist vieleicht nicht optimal, aber funtkioniert einwandfrei...das hätten die Delphi Leutchen ruhig mal direkt mit implementieren können:

dafür benötigt man die unit CommCtrl (nicht zu verwechseln mit ComCtrls, aus der TMonthCalendar stammt)


Delphi-Quellcode:
procedure TSchedMain.calendarDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  inf: MCHITTESTINFO;
  datestr: string;
begin
  inf.pt.X := X;
  inf.pt.Y := Y;
  inf.cbSize := sizeOf(inf);
  MonthCal_HitTest(calendar.Handle,inf);
  datestr :=inttostr(inf.st.wYear)+'-'+inttostr(inf.st.wMonth)+'-'+inttostr(inf.st.wDay)+' '+inttostr(TListView(Source).selected.Index+9)+':00:00';
inf.pt ist halt vom typ TPoint und da sollten dann schon die Drop-Koordinaten rein

inf.st ist vom Typ _SYSTEMTIME, was wiederrum ein record mit der Zeitinfo darstellt
also wunderbar gelöst


hat auch lange genug gedauert

und für alle die es wissen wollen: hier die funktion aus der CommCtrl:
function MonthCal_HitTest(hmc: HWND; var info: TMCHitTestInfo): DWORD;
Wie Sie sehn,
sehn Sie nichts.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz