Zeilenumbruch verbessern

[EWeiss]

Zitat von holger_barntrup:

Zitat von EWeiss:

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