[chris2023]

Solution

• This reply was modified 1 year, 3 months ago by chris2023.

[chris2023]

procedure TForm1.btn_ShowClick(Sender: TObject);
begin
Form2.Show;
end;

thats wrong it should to be
procedure TForm1.btn_ShowClick(Sender: TObject);
begin
Form2.BringToFront;
end;

[chris2023]

Hi just use TsFileOpenDialog

[chris2023]

Hi my System.zLib (Delphi 11 Update 2) looks so
//

function TZDecompressionStream.Read(var buffer; count: LongInt): LongInt;
var
  zresult: Integer;
begin
  FZStream.next_out := @buffer;
  FZStream.avail_out := count;
  zresult := Z_OK;
  while (FZStream.avail_out > 0) and (zresult <> Z_STREAM_END) and (zresult <> Z_BUF_ERROR) do
  begin
    if FZStream.avail_in = 0 then
    begin
      if FStream.Position <> FStreamPos then
        FStream.Position := FStreamPos;
      FZStream.avail_in := FStream.Read(FBuffer, length(FBuffer));
      Inc(FStreamPos, FZStream.avail_in);

      FZStream.next_in := @FBuffer[0];

      DoProgress;
    end;

    zresult := ZDecompressCheckWithoutBufferError(inflate(FZStream, Z_NO_FLUSH));
  end;

  Result := NativeUInt(count) - FZStream.avail_out;
end;

where must there place the line

if (zresult = Z_STREAM_END) and (FZStream.avail_in > 0) then
begin
Dec(FStreamPos, FZStream.avail_in);
Fstream.Position := FStreamPos;

FZStream.avail_in := 0;
end;

? by me its not line line 2752

[chris2023]

There is also a curious behave when using the Alphacontrols Editors.
e.g Boundslabel Editor (Caption), sDecimalSpinEdit (Boundlabel Editor), TsFontstore Fonts-Editor)
Its a extreme Flickering , after that all Delphi Windows a empty( eg Structur, Palette and so on)
That happened only on x64.
Looks like Alphacontrols are then in a extremly Repaint Loop.

[chris2023]

Oops should to be

i : {$IFDEF DELPHI_XE2} NativeUInt {$ELSE} DWord {$ENDIF} ;

The first Parameter of ImageList_Draw is a HIMAGELIST , and
HIMAGELIST is a NativeUInt
Thandle is also a NativeUInt

• This reply was modified 2 years, 2 months ago by chris2023.

[chris2023]

No , I think you have to do this

i : {$IFDEF DELPHI_XE2} NativeInt {$ELSE} integer {$ENDIF} ;

The first Parameter of ImageList_Draw is a HIMAGELIST , and
HIMAGELIST is a NativeInt
Thandle is a NativeUInt

• This reply was modified 2 years, 2 months ago by chris2023.
• This reply was modified 2 years, 2 months ago by chris2023.

[Author]

Posts