VPF::форма - Форум программистов

авганец

Дата 4.11.2005, 04:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всем привет!
Почему то код не работает, выдаёт ошибку на wnd_dc:=getdc(ahwnd);
В чём дело не кто не подскажет

Код


procedure TForm1.FormCreate(Sender: TObject);
var
back_color: colorref;
wnd_dc,hdc_bmp: hdc;
width,height,x,x0,y:integer;
begin
width:=bitmap.width;
height:=bitmap.height;
wnd_dc:=getdc(ahwnd);
hdc_bmp:=createcompatibledc(wnd_dc);
selectobject(hdc_bmp,bitmap.handle);
back_color:=getpixel(hdc_bmp,0,0);
tmp_rgn:=cleaterectrgn(0,0,0,0);
wid_rgn:=cleaterectrgh(0,0,0,0);
x:=0;
for y:=0 to height -1 do
begib
while (x<width -1) do
begin
while ((getpixel(hdc_bmp,x,y)=back_color) and
(x<width)) do inc (x);
if (x<>width) then
begin
x0:=x;
while((getpixel(hdc_bmp,x,y)<>back_color) and
(x<width)) do inc(x);
tmp_rgn:=cleaterectrgn(x0,y,x,y+1);
combinergn(wnd_rgn, wnd_rgn, tmp_rgn, rgn_xor);
end;
x:=0;
end;
deleteobject(tmp_rgn);
deletedc(hdc_bmp(;
setwindowrgn(ahwnd,wnd_reg,true);
deleteobject(wnd_rgn);
end;

Это сообщение отредактировал(а) Alex - 4.11.2005, 08:21

Alexeis

Дата 4.11.2005, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Вероятно Handle ahwnd не существует

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

авганец

Дата 4.11.2005, 12:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

как её создать

Zero

Дата 4.11.2005, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата

как её создать

Код


var
  ...
  ahwnd:HWND;
  ...

Цитата

width,height,x,x0,y:integer;

Зарезервированые слова также использовать нельзя "width,height"

авганец

Дата 5.11.2005, 03:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

что нужно зделать что бы форма имела такую надпись
procedure TForm1.CreateBWindow(ahwnd:hwnd; bitmap:tbitmap)
не чё неполучается smile

Zero

Дата 7.11.2005, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата

что нужно зделать что бы форма имела такую надпись
procedure TForm1.CreateBWindow(ahwnd:hwnd; bitmap:tbitmap)
не чё неполучается

Код


  Form1.Caption := 'procedure TForm1.CreateBWindow(ahwnd:hwnd; bitmap:tbitmap)';

Если не так, то скажи конкретно, на словах ─ как должно определятся её имя???

авганец

Дата 8.11.2005, 09:20 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

не Zero это я не так выразился не что бы на форме надпись такая была, а что бы в форме место
procedure TForm1.FormCreate(Sender: TObject);
стояла такая надпись в Unit1 procedure TForm1.CreateBWindow(ahwnd:hwnd; bitmap:tbitmap)

Alexeis

Дата 8.11.2005, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата

что бы в форме место
procedure TForm1.FormCreate(Sender: TObject);
стояла такая надпись в Unit1 procedure TForm1.CreateBWindow(ahwnd:hwnd; bitmap:tbitmap)

Зачем это нужно smile

такая замена ни к чему хорошему не приведет

--------------------

авганец

Дата 8.11.2005, 11:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

приведёт я дуиаю вот из-за этой надписи у меня программа не работает
она сейчас выглядит так

Код

procedure TForm1.FormCreate(Sender: TObject);
var
back_color: colorref;
wnd_dc,hdc_bmp: hdc;
width,height,x,x0,y:integer;
bitmap: TBitmap;
ahwnd:HWND;
tmp_rgn,wnd_rgn: hrgn;
begin
width:=bitmap.width;
height:=bitmap.height;
wnd_dc:=getdc(aHwnd);
hdc_bmp:=createcompatibledc(wnd_dc);
selectobject(hdc_bmp,bitmap.handle);
back_color:=getpixel(hdc_bmp,0,0);
tmp_rgn:=createrectrgn(0,0,0,0);
wnd_rgn:=createrectrgn(0,0,0,0);
x:=0;
for y:=0 to height -1 do
begin
while (x<width -1) do
begin
while ((getpixel(hdc_bmp,x,y)=back_color) and
(x<width)) do inc (x);
if (x<>width) then
begin
x0:=x;
while((getpixel(hdc_bmp,x,y)<>back_color) and
(x<width)) do inc(x);
tmp_rgn:=createrectrgn(x0,y,x,y+1);
combinergn(wnd_rgn, wnd_rgn, tmp_rgn, rgn_xor);
end;
x:=0;
end;
deleteobject(tmp_rgn);
deletedc(hdc_bmp);
setwindowrgn(ahwnd,wnd_rgn,true);
deleteobject(wnd_rgn);
end;

а надо вот так

TForm1.CreateBWindow(ahwnd:hwnd; bitmap:tbitmap);
var
back_color: colorref;
wnd_dc,hdc_bmp: hdc;
width,height,x,x0,y:integer;
bitmap: TBitmap;
ahwnd:HWND;
tmp_rgn,wnd_rgn: hrgn;
begin
width:=bitmap.width;
height:=bitmap.height;
wnd_dc:=getdc(aHwnd);
hdc_bmp:=createcompatibledc(wnd_dc);
selectobject(hdc_bmp,bitmap.handle);
back_color:=getpixel(hdc_bmp,0,0);
tmp_rgn:=createrectrgn(0,0,0,0);
wnd_rgn:=createrectrgn(0,0,0,0);
x:=0;
for y:=0 to height -1 do
begin
while (x<width -1) do
begin
while ((getpixel(hdc_bmp,x,y)=back_color) and
(x<width)) do inc (x);
if (x<>width) then
begin
x0:=x;
while((getpixel(hdc_bmp,x,y)<>back_color) and
(x<width)) do inc(x);
tmp_rgn:=createrectrgn(x0,y,x,y+1);
combinergn(wnd_rgn, wnd_rgn, tmp_rgn, rgn_xor);
end;
x:=0;
end;
deleteobject(tmp_rgn);
deletedc(hdc_bmp);
setwindowrgn(ahwnd,wnd_rgn,true);
deleteobject(wnd_rgn);
end;

Это сообщение отредактировал(а) Girder - 8.11.2005, 11:21

Alexeis

Дата 8.11.2005, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Я пологаю что создается непрямоугольная форма, тогда в исходном варианте в начале процедуры нужно написать

aHwnd := Handle;

т.е. Handle формы

--------------------

авганец

Дата 8.11.2005, 14:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

это программа делает форму по рисунку т.е нарисовал грушу к примеру будет форма ввиде груши

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »