Следующая функция возвращает в виде указателя на строку содержание активной
записи в БД.
function TBDEDirect.GetCurRecord(Lock: DBILockType): PChar; var Res: DBIResult; RecSize: Word; RecBuf: PChar; Bookmark: TBookmark; Прочитать остальную часть записи »
Необходимо вызвать дважды API-функцию “SendMessage”:
var xChr, xRow, xCol: LongInt; ... xRow := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); xChr := SendMessage(Memo1.Handle, EM_LINEINDEX, Zeile, 0); xCol := Memo1.SelStart - xChr + 1;
Некоторые функции для копирования и вставки Bitmap-объектов через буфер
обмена.
function CopyClipToBuf(DC: HDC; Left, Top,
Width, Height: Integer; Rop: LongInt;
var CopyDC: HDC;
var CopyBitmap: HBitmap): Boolean;
var
TempBitmap: HBitmap; Прочитать остальную часть записи »
Чтобы найти и сделать видимыми, например, компоненты с именами от “Label1″
и до “Label5″ можно использовать следующий вариант:
for t := 1 to 5 do
FindComponent('Label' + IntToStr(t)).Visible := TRUE;
Функция GetNumColors возвращает количество цветов для актуально выбранного
разрешения экрана.
function GetNumColors: LongInt; var BPP: Integer; DC: HDC; Прочитать остальную часть записи »