Das hat dann aber mit deinem System zu tun Graphics ist eine Standard
Unit in Delphi.
Es musste bei mir
vcl.graphics heißen, jetzt läuft es.
Win7 64Bit
Hüpft halt wie schon geschrieben. Blur und Crystal funktionieren ohne Probleme.
OK. Danke! Habe das hüpfen schon behoben..
Entferne in uMain\WinMain bei wc.style "CS_HREDRAW or CS_VREDRAW" dann hüpfen zumindest die Controls nicht mehr.
Die rechte Seite zieht jedoch immer noch nach.
Nun gut bedient man das Teil normal über die Rechte Seite beim resize dann hat man die Probleme nicht.
Delphi-Quellcode:
{$REGION 'Procedure ResizeWindow'}
procedure ResizeWindow(WinHandle: HWND; ChangeBackground: integer);
begin
if SKAERO_IsEngineAssigned then
begin
if SKAERO_Composited(WinHandle) then
lRes := SKAERO_BeginDeferWindowPos(WinHandle, 0);
// Hintergrund neuzeichnen
SKAERO_DrawBackground(WinHandle);
// Controls Repositionieren
SKAERO_AnchorEnum(WinHandle);
if SKAERO_Composited(WinHandle) then
SKAERO_EndDeferWindowPos(WinHandle, lRes);
SKAERO_UpdateWindow(WinHandle, False);
SKAERO_UpdateWindow(TabInfo.Handle, False);
end;
end;
{$ENDREGION}
Delphi-Quellcode:
function WinMain(hInstance: HINST; hPrevInstance: HINST; lpCmdLine: PChar; nCmdShow: integer)
: integer; stdcall;
var
Msg: TMsg;
myClass: PWideChar;
myTitle: PWideChar;
dwStyle: DWORD;
dwExStyle: DWORD;
wc: TWndClassEx;
X: integer;
Y: integer;
IsInitialized: Bool;
rc: TRect;
Path: string;
begin
myClass := 'POPUPWINDOW';
wc.cbSize := SIZEOF(wc);
IsInitialized := GetClassInfoEx(hInstance, myClass, wc);
if IsInitialized = False then
begin
wc.cbSize := SIZEOF(wc);
// Remove the Flicker of Window change size from left or Top side
// deactivate CS_HREDRAW or CS_VREDRAW
wc.style := CS_DBLCLKS;
gruss