Мой DELPHI – Программирование

Вопрос:
Как вставить содержимое файла в текущую позицию курсора в компонете TMemo?

Ответ:

Считайте файл в TMemoryStream,
затем ипользуйте метод TMemo SetSelTextBuf() для вставки текста; Прочитать остальную часть записи »

Вопрос:
 

Как в Delphi реализовать функцию - эквивалент TwipsPerPixel из VisualBasic?

Ответ:
Функции  TwipsPerPixelX и TwipsPerPixelY, приведенные в примере реализуют ту же
функциональность в  Delphi. Прочитать остальную часть записи »

Вопрос:
Как внести изменения в код VCL?

Ответ:

Примечание: внесение изменений
в VCL не поддерживается Borland или Borland Developer Support.

-Но если Вы решили сделать это…

Изменеия в код VCL никогда не должны вносится в секцию “interface” модуля -
только в секцию “implimentation”. Наиболее безопасный способ внести изменения
в VCL – создать новый каталог названный “исправленный VCL”. Скопируйте файл
VCL который Вы хотите изменить в этот каталог. Внесите изменения (лучше прокомментировать
их) в этот файл. Затем добавьте путь к Вашему каталогу “исправленный VCL” в
самое начало “library path”. Перезапустите Delphi/C++ Builder и перекомпилируйте
Ваш проект. “library path” можно изменить в меню:

Delphi 1 : Options | Environment | Library
Delphi 2 : Tools | Options | Library
Delphi 3 :  Tools | Environment Options | Library
Delphi 4 :  Tools | Environment Options | Library
C++ Builder : Options | Environment | Library
 

Вопрос:
Как создать отдельную подсказку (hint) для каждой ячейки StringGrid?

Ответ:

В приведенном примере
отслеживается движение курсора мыши – при перемещении между ячейками StringGrid’а
- появляется окно подсказки(hint), показываеющее номер текущей строки и колонки. Прочитать остальную часть записи »

Вопрос:
Как создать bitmap из пиктогрммы (icon)?
Ответ:
Используя Bitmap.Canvas.Draw нарисуйте пиктограмму на Bitmap'е.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
	TheIcon : TIcon;
	TheBitmap : TBitmap;
begin
		TheIcon := TIcon.Create;
		TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO');
		TheBitmap := TBitmap.Create;
		TheBitmap.Height := TheIcon.Height;
		TheBitmap.Width := TheIcon.Width;
		TheBitmap.Canvas.Draw(0, 0, TheIcon);
		Form1.Canvas.Draw(10, 10, TheBitmap);
		TheBitmap.Free;
		TheIcon.Free;
	end;