Delphi FAQ >> Графика При помощи данной процедуры на Delphi можно узнать высоту и ширину картинки, сохраненной в формате PNG: function ReadMWord (f:TFileStream):word; type TMotorolaWord = record case byte of 0:(Value:word); 1:(Byte1, Byte2:byte); end; var MW: TMotorolaWord; begin f.Read(MW.Byte2, SizeOf(Byte)); f.Read(MW.Byte1, SizeOf(Byte)); Result := MW.Value; end; procedure GetPNGSize(const sFile: String; var wWidth, wHeight: …
Читать далее «Программирование на Delphi и не только Как узнать размеры PNG-файла? | Программирование на Delphi и не только»
Delphi FAQ >> Графика При помощи данной процедуры на Delphi можно узнать высоту и ширину картинки, сохраненной в формате JPEG: function ReadMWord (f: TFileStream): Word; type TMotorolaWord = record case byte of 0: (Value: Word); 1: (Byte1, Byte2: Byte); end; var MW:TMotorolaWord; begin f.Read(MW.Byte2, SizeOf(Byte)); f.Read(MW.Byte1, SizeOf(Byte)); …
Читать далее «Программирование на Delphi и не только Как узнать размеры JPG-файла? | Программирование на Delphi и не только»
Delphi FAQ >> Графика При помощи данной процедуры на Delphi можно узнать высоту и ширину картинки, сохраненной в формате GIF: procedure GetGIFSize(const sGIFFile:String; var wWidth, wHeight: Word); type TGIFHeader = record Sig: array[0..5] of Char; ScreenWidth, ScreenHeight: Word; Flags, Background, Aspect: Byte; end; TGIFImageBlock = record Left, Top, …
Читать далее «Программирование на Delphi и не только Как узнать размеры GIF-файла? | Программирование на Delphi и не только»
Delphi FAQ >> Операционная система В операционной системе Windows есть возможность автоматически скрывать панель задач, когда курсор мыши не над ней. Настраивается эта опция в «Свойствах панели задач и меню Пуск». Чтобы проверить, включено ли автоскрытие панели задач, можно воспользоваться приведенной ниже функцией на Delphi: … uses ShellApi; … function CheckTBAutoHide: Boolean; var myABD: TAppBarData; …
Читать далее «Программирование на Delphi и не только Проверка опции «Автоматически скрывать панель задач» | Программирование на Delphi и не только»