Fehler Nr. 1:
In der
DPR-Datei
Delphi-Quellcode:
aDP.dwWndHeight := 100;
aDP.dwWndWidth := 100;
Fehler Nr. 2 und 3. :
Delphi-Quellcode:
function TcnvWindow.Init(aDsgnParams: TcnvDsgnParams; aClassname: PAnsiChar): boolean;
// init the Window with the given Designparameters
begin
Result := true;
fDsgnParams := aDsgnParams; // <- Hier
try
self.fDsgnParams.szClassname := aClassName;
fWndClass.cbSize := sizeof(TWndClassEx);
if aDsgnParams.dwStyles <> 0 then
fWndClass.style := fDsgnParams.dwWndStyles // <- Hier
Ich glaubhier habe ich auch etwas geändert
Delphi-Quellcode:
begin
fWnd := CreateWindowEx(fDsgnParams.dwExStyles, fDsgnParams.szClassname, fDsgnParams.szWindowTitle,
fDsgnParams.dwStyles, fDsgnParams.dwWndX, fDsgnParams.dwWndY,
fDsgnParams.dwWndWidth, fDsgnParams.dwWndHeight, GetDesktopWindow, 0, hInstance, nil);
Ich würde TcnvDsgnParams genauer Dokumentieren und Definieren.
Ich hab da noch nicht ganz durchgesehen, welcher Parameter für was ist.