Скачать: CL | DM;

помогите с структурой   Найти похожие ветки 

← →
nika_ufc ©   (2004-09-09 17:13) [0]

вот мастера я написал код который работатет на первом папитке а потом говоритт что "invalid pointer operation" что там у меня не в прорядке ?

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   ListBox1: TListBox;
   procedure ListBox1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox1Click(Sender: TObject);
var
 idx: integer;
 strFont: string;
 glp: PGLYPHSET;
begin
try
 idx := ListBox1.ItemIndex;
 if idx < 0 then exit;
 New(glp);
 strFont := Listbox1.Canvas.font.Name;
 Listbox1.Canvas.font.Name := listbox1.Items[idx];
 GetFontUnicodeRanges(listbox1.Canvas.Handle, glp);
 Listbox1.Canvas.font.Name := strFont;
 Showmessage(intToStr(glp^.cGlyphsSupported)+"*"+inttostr(glp^.flAccel));
 Dispose(glp);
except
   on E:Exception do begin
     ShowMessage(E.Message);
     Application.Terminate;
//      Dispose(glp);
   end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    ListBox1.Items.Assign(Screen.Fonts);
end;

end.

---

← →
Digitman ©   (2004-09-09 17:20) [1]

> работатет на первом папитке


кто такой "папиток" ? или "папиток" ? или "папиток" ? (хз как произнести правильно)

---

← →
MBo ©   (2004-09-09 17:22) [2]


procedure TForm1.ListBox1Click(Sender: TObject);
var
 idx: integer;
 strFont: string;
 glp: PGLYPHSET;
 sz:Integer;
begin
 idx := ListBox1.ItemIndex;
 if idx < 0 then exit;
 strFont := Listbox1.Canvas.font.Name;
 Listbox1.Canvas.font.Name := listbox1.Items[idx];
sz:=GetFontUnicodeRanges(listbox1.Canvas.Handle, Nil);
 GetMem(glp,sz);
 GetFontUnicodeRanges(listbox1.Canvas.Handle, glp);
 Showmessage(intToStr(glp^.cGlyphsSupported)+"*"+inttostr(glp^.flAccel));
 FreeMem(glp);
end;



---

← →
nika_ufc ©   (2004-09-10 14:47) [3]

>>>>>MBo ©   (09.09.04 17:22) [2]
очень большое спасибо.

---

← →
nika_ufc ©   (2004-09-10 18:39) [4]

>>>Digitman ©   (09.09.04 17:20) [1]
>>>кто такой "папиток" ? или "папиток" ? или "папиток" ? (хз как >>>произнести правильно)

извини за отпечатку, это из за быстроты.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c