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

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

Что-то не так в исходничке, однако :-( [D6, WinXP]

Страницы:   < 1 2 >

Николай Быков ©   (2002-11-16 18:56:00) 

Вот заколебался я уже над ним и решил вам показать, может что-нибудь скажите.
unit uMainFrm;

interface

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

type
TMainFrm = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainFrm: TMainFrm;
bmp:TBitmap;
cx,cy:integer;
arbmp:array [0..89,0..89]of BYTE;
dc:HDC;
hrc:HGLRC;
implementation

{$R *.dfm}

procedure TMainFrm.Button1Click(Sender: TObject);
var
i,j:integer;
begin
wglMakeCurrent(dc,hrc);
glViewPort(0,ClientHeight,ClientWidth,ClientHeight);
glPointSize(20);
bmp:=TBitmap.Create;
bmp.LoadFromFile("tank.bmp");
for i:=0 to bmp.Width-1 do
for j:=0 to bmp.Height-1 do
arbmp[i,j]:=bmp.canvas.pixels[i,j];
{

---

Shadow   (2002-11-16 21:02:00) [21]

Николай Быков DOWN

---

Николай Быков   (2002-11-16 21:01:00) [22]

UР.

---

Николай Быков   (2002-11-16 19:30:00) [23]

UP.

---

Страницы:   < 1 2 >

Наверх