Ich bekomme langsam die Krise.
Ich hab ein neues Control angefangen uGrid..
Delphi-Quellcode:
type
ISkinGrid =
interface
['
{89A97429-5E4B-43B6-87D8-381DD4E8CF21}']
function GetHandle: hWnd;
property Handle: hWnd
read GetHandle;
end;
TSkinGrid =
class(TInterfacedObject, ISkinGrid)
private
FHGrid: HWND;
FWidth: Integer;
FHeight: Integer;
Img: cardinal;
dwStyle: DWORD;
IsInitialized: BOOL;
FOffsetX: Integer;
FOffsetY: Integer;
function GetOffsetY: Integer;
function GetOffsetX: Integer;
function GetHandle: hWnd;
procedure DrawGrid(WinHandle: HWND);
public
property Handle: HWND
Read FhGrid;
property Width: Integer
Read FWidth;
property Height: Integer
Read FHeight;
property OffsetX: Integer
read GetOffsetX
write FOffsetX;
property OffsetY: Integer
read GetOffsetY
write FOffsetY;
constructor Create(hOwner: HWND; FullpathImageName:
string;
x, y, xW, yH, OffsX, OffsY, ButID: Integer);
destructor Destroy;
override;
end;
sollte alles in Ordnung sein.
Classe wird ordnungsgemäß erstellt.
Danach stimmen alles meine Variablen.
Mit einmal zerstört sie sich selbst und alles ist weg.
Warum?
Der Aufruf wie zuvor.
Delphi-Quellcode:
BoxGrid := CTRL_GridCreate(hMain, SKAERO_FOLDER +
'Grid.png', 150, 67, 585, 257, 20, 10, ID_BOXGRID);
SKAERO_SetAnchorMode(BoxGrid.Handle, ANCHOR_HEIGHT_WIDTH);
SKAERO_SetZorder(BoxGrid.Handle, HWND_TOP);
Siehe Bilder..
Wie man sehen kann sind bei DrawGrid alle Eigenschaften gelöscht.
gruss