delphi-2007- все статьи тега ➜ страница 0
Как читать содержимое файла в строку в delphi XE
Я переношу свое приложение с delphi 2007 на delphi xe, но у меня возникли проблемы с процедурой, которая считывает файл (ascii) и сохраняет содержимое в строке Это код, который хорошо работает в delphi 2007 function LoadFileToStr(const FileName: TFileName): String; var FileStream : TFileStream; begin FileStream:= TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); try if FileStream.Size>0 then begin SetLength(Result, FileStream.Size); FileStream.Rea ...
TListview неправильно окрашивается при использовании события OnDrawItem
Я использую событие OnDrawItem в компоненте TlistView для рисования содержимого с использованием пользовательских цветов, но при прокрутке listview появляются некоторые артефакты. Это используемый код. procedure TForm35.FormCreate(Sender: TObject); var i, j : integer; Item : TListItem; s : string; begin for i:= 0 to 99 do begin Item:=ListView1.Items.Add; for j:= 0 to ListView1.Columns.Count-1 do begin s:= Format('Row %d Column %d',[i+1, j+1]); if j=0 then ...
Анимированные GIF и TDrawgrid в Delphi 2007
Я могу нарисовать изображение, используя что-то вроде кода ниже: ACanvas.Draw(ARect.Left+16, ARect.Top+4, imgGIF.Picture.Graphic ) Теперь gif для этого компонента imgGIF загружается через GIF := TGifImage.Create; GIF.LoadFromFile('pathtogifprocessing.gif'); GIF.Animate := True; imgGIF.Picture.Graphic.Assign(GIF); Я устанавливаю GIFImageDefaultAnimate := True; GIFImageDefaultTransparent := True; Среда Delphi 2007, использующая TGifImage, который поставляется с DVD Delphi 20 ...