Советы по Delphi. Версия 1.4.3 от 1.1.2001

 MoveMemory(@Buffer, PChar(FMemory) + FPosition, Result);

 Inc(FPosition, Result);

end;

function TClipboardStream.Write(const Buffer; Count : longint) : longint;

var

 FHandle : HGlobal;

 tmp : pointer;

begin

 ReallocMem(FMemory, FPosition + Count);

 MoveMemory(PChar(FMemory) + FPosition, @Buffer, Count);

 FPosition := FPosition + Count;

 FSize := FPosition;

 FHandle := GlobalAlloc(GMEM_MOVEABLE or GMEM_SHARE or GMEM_ZEROINIT, FSize);

 try

  tmp := GlobalLock(FHandle);

  try

   MoveMemory(tmp, FMemory, FSize);

   OpenClipboard(0);

   SetClipboardData(FFormat, FHandle);

  finally

   GlobalUnlock(FHandle);

  end;

  CloseClipboard;

 except

  GlobalFree(FHandle);

 end;

 Result := Count;

end;

function TClipboardStream.Seek(Offset : Longint; Origin : Word) : Longint;

begin

 case Origin of

 0 : FPosition := Offset;

 1 : Inc(FPosition, Offset);

 2 : FPosition := FSize + Offset;

 end;

 Result := FPosition;

end;

end. 

Шрифты

Хранение стилей шрифта

Как мне сохранить свойство шрифта Style, ведь он же набор?

Вы можете получать и устанавливать FontStyle через его преобразование к типу byte.

Для примера,

Var Style: TFontStyles;

begin

 { Сохраняем стиль шрифта в байте }

 Style := Canvas.Font.Style; {необходимо, поскольку Font.Style – свойство}

 ByteValue := Byte(Style);

 { Преобразуем значение byte в TFontStyles }

 Canvas.Font.Style := TFontStyles(ByteValue);

end;

Для восстановления шрифта, вам необходимо сохранить параметры Color, Name, Pitch, Style и Size в базе данных и назначить их соответствующим свойствам при загрузке.

– Robert Wittig

Управление настройками шрифта

Delphi 1

{

 Данный код изменяет стиль шрифта поля редактирования,

 если оно выбрано. Может быть адаприрован для управления

 шрифтами в других объектах.

 Расположите на форме Edit(Edit1) и ListBox(ListBox1).

 Добавьте следующие элементы (Items) к ListBox:

  fsBold

  fsItalic

  fsUnderLine

  fsStrikeOut

}

procedure TForm1.ListBox1Click(Sender: TObject);

var X: Integer;

type TLookUpRec = record

 Name: String;

 Data: TFontStyle;

end;

const LookUpTable: array[1..4] of TLookUpRec = (

 (Name: 'fsBold'; Data: fsBold),

 (Name: 'fsItalic'; Data: fsItalic),

 (Name: 'fsUnderline'; Data: fsUnderline),

 (Name: 'fsStrikeOut'; Data: fsStrikeOut));

begin

 X := ListBox1.ItemIndex;

 Edit1.Text := ListBox1.Items[X];

 Edit1.Font.Style := [LookUpTable[ListBox1.ItemIndex+1].Data];

end;

Перетащи и брось (Drag and Drop)

Как получить список файлов, которые были перенесены на мою форму, например, из Проводника?

Из советов Nomadic'a:

Развлекался когда-то — вот, осталось:

unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, Grids, StdCtrls;

type TForm1 = class(TForm)

 lb: TListBox;

 Memo1: TMemo;

 Button1: TButton;

 Button2: TButton;

 procedure FormCreate(Sender: TObject);

 procedure Button1Click(Sender: TObject);

 procedure Button2Click(Sender: TObject);

private