Thema: with.....

Einzelnen Beitrag anzeigen

Frickler

Registriert seit: 6. Mär 2007
Ort: Osnabrück
599 Beiträge
 
Delphi XE6 Enterprise
 
#1

with.....

  Alt 3. Aug 2018, 15:57
Delphi-Quellcode:
  with DIB, dsbm, dsbmih do
  begin
    if (biSize <> 0) and ((biWidth = 0) or (biHeight = 0)) then Exit;
    if (biSize = 0) and ((bmWidth = 0) or (bmHeight = 0)) then Exit;
  end;
Diese Klarheit, diese Kürze...


(aus Vcl.Graphics.pas)
  Mit Zitat antworten Zitat