Thema
:
with.....
Einzelnen Beitrag anzeigen
Frickler
Registriert seit: 6. Mär 2007
Ort: Osnabrück
591 Beiträge
Delphi XE6 Enterprise
#
1
with.....
3. Aug 2018, 15:57
markieren
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)
Zitat
Frickler
Öffentliches Profil ansehen
Mehr Beiträge von Frickler finden