diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-27 13:10:15 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-27 13:10:15 +0200 |
| commit | 160cb66b4bf47fc26743316b07cfbad96c3ee38d (patch) | |
| tree | 0049d228795bd9cd76d60f89f82aef711ec92afe /src/corelib | |
| parent | 6f3e4440aeb30ff648b09d01edf5099f4bb5d052 (diff) | |
| download | fpGUI-160cb66b4bf47fc26743316b07cfbad96c3ee38d.tar.xz | |
Renamed TfpgWindowBase.DoEnabledDrops() to DoDNDEnabled()
This will hopefully reduce the confusion between the other
TfpgWidget.AcceptDrops property - they had too similar names.
* Applied rename changes to all other descendants too
* Updated DND demo project
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/fpg_base.pas | 2 | ||||
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 4 | ||||
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 6 |
3 files changed, 6 insertions, 6 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index c08bea71..143238cf 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -445,7 +445,7 @@ type function DoWindowToScreen(ASource: TfpgWindowBase; const AScreenPos: TPoint): TPoint; virtual; abstract; procedure DoSetWindowTitle(const ATitle: string); virtual; abstract; procedure DoSetMouseCursor; virtual; abstract; - procedure DoEnableDrops(const AValue: boolean); virtual; abstract; + procedure DoDNDEnabled(const AValue: boolean); virtual; abstract; procedure SetParent(const AValue: TfpgWindowBase); virtual; function GetParent: TfpgWindowBase; virtual; function GetCanvas: TfpgCanvasBase; virtual; diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index ef5251f7..db549a2c 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -167,7 +167,7 @@ type //procedure MoveToScreenCenter; override; procedure DoSetWindowTitle(const ATitle: string); override; procedure DoSetMouseCursor; override; - procedure DoEnableDrops(const AValue: boolean); override; + procedure DoDNDEnabled(const AValue: boolean); override; property WinHandle: TfpgWinHandle read FWinHandle; public constructor Create(AOwner: TComponent); override; @@ -1635,7 +1635,7 @@ begin SetCursor(hc); end; -procedure TfpgGDIWindow.DoEnableDrops(const AValue: boolean); +procedure TfpgGDIWindow.DoDNDEnabled(const AValue: boolean); begin // TODO: still needs to be implemented end; diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index 9338fddf..9d689f4a 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -230,7 +230,7 @@ type function DoWindowToScreen(ASource: TfpgWindowBase; const AScreenPos: TPoint): TPoint; override; procedure DoUpdateWindowPosition; override; procedure DoSetMouseCursor; override; - procedure DoEnableDrops(const AValue: boolean); override; + procedure DoDNDEnabled(const AValue: boolean); override; property WinHandle: TfpgWinHandle read FWinHandle; public constructor Create(AOwner: TComponent); override; @@ -2130,7 +2130,7 @@ begin if QueueEnabledDrops then begin writeln('QueueEnableDrop....'); - DoEnableDrops(True); + DoDNDEnabled(True); end; end; @@ -2364,7 +2364,7 @@ begin FMouseCursorIsDirty := False; end; -procedure TfpgX11Window.DoEnableDrops(const AValue: boolean); +procedure TfpgX11Window.DoDNDEnabled(const AValue: boolean); begin // notify XDND protocol that we can handle DND if AValue then |