| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

помогите с структурой [D7, Win2k]

nika_ufc ©   (2004-09-09 17:13:00) 

вот мастера я написал код который работатет на первом папитке а потом говоритт что "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.

---

nika_ufc   (2004-09-10 18:39:00) [1]

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

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

---

nika_ufc   (2004-09-10 14:47:00) [2]

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

---

MBo   (2004-09-09 17:22:00) [3]


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;



---

Digitman   (2004-09-09 17:20:00) [4]

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


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

---

Наверх