Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
Помогите составить функцию (delphi) |
20.05.2007, 14:46
|
|
Познающий
Регистрация: 18.10.2006
Сообщений: 42
Провел на форуме:
119338
Репутация:
3
|
|
Помогите составить функцию (delphi)
при запуске на экране появляется рамка с заданными координатами. размеры рамки должны меняться мышью. При двойном клике мыши внутри рамки возвращает битмэп части экрана в рамке и координаты рамки.
Кто-нибудь помогите с етой функцией на делфи
Последний раз редактировалось VADIK-XXX; 20.05.2007 в 18:42..
|
|
|
20.05.2007, 15:34
|
|
Флудер
Регистрация: 27.12.2005
Сообщений: 2,372
Провел на форуме:
5339610
Репутация:
4360
|
|
Читаем https://forum.antichat.ru/thread38814.html и получаем -1
|
|
|
|
20.05.2007, 18:43
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 _Great_ Жестокий ты человек  |
|
|
|
21.05.2007, 11:20
|
|
Участник форума
Регистрация: 09.12.2006
Сообщений: 135
Провел на форуме:
426226
Репутация:
726
|
|
Сообщение от VADIK-XXX
при запуске на экране появляется рамка с заданными координатами. размеры рамки должны меняться мышью. При двойном клике мыши внутри рамки возвращает битмэп части экрана в рамке и координаты рамки.
Как создать окно с дыркой и прочитать BMP из дыры
смотри здесь:
Исходник на Dеlphi7 + программа + (Из часов переделана)
http://slil.ru/24396826 clock.rar 166,619 байт.
Не знаю твой уровень , как программиста ,если что не понятно , спрашивай.
|
|
|
|
21.05.2007, 14:01
|
|
Познающий
Регистрация: 18.10.2006
Сообщений: 42
Провел на форуме:
119338
Репутация:
3
|
|
Сообщение от slesh
2 _Great_ Жестокий ты человек Спасиб
|
|
|
|
21.05.2007, 14:02
|
|
Познающий
Регистрация: 18.10.2006
Сообщений: 42
Провел на форуме:
119338
Репутация:
3
|
|
Сообщение от Xserg
Как создать окно с дыркой и прочитать BMP из дыры
смотри здесь:
Исходник на Dеlphi7 + программа + (Из часов переделана)
http://slil.ru/24396826 clock.rar 166,619 байт.
Не знаю твой уровень , как программиста ,если что не понятно , спрашивай. Большое спасибо, но я неразобрался в том как оставить одну рамку а часы убрать. Сможешь помочь?
|
|
|
|
21.05.2007, 14:42
|
|
Участник форума
Регистрация: 09.12.2006
Сообщений: 135
Провел на форуме:
426226
Репутация:
726
|
|
На OnResize добаиляем
Код:
procedure TForm1.FormResize(Sender: TObject);
var P : array [0..9] of TPoint;
dm:dword;
begin
form1.BorderStyle:=bsSizeToolWin;
form1.BorderWidth:=0;
dm:=form1.Height-form1.ClientHeight;
P[0] := Point(0,0);
P[1] := Point(form1.Width,0);
P[2] := Point(form1.Width,form1.Height);
P[3] := Point(0,form1.Height);
R := CreatePolygonRgn(P, 4, Alternate);
P[0] := Point(2,dm);
P[1] := Point(form1.Width-2,dm);
P[2] := Point(form1.Width-2,form1.Height-2);
P[3] := Point(2,form1.Height-2);
R1 := CreatePolygonRgn(P, 4, Alternate);
CombineRgn(R, R, R1, RGN_DIFF);
SetWindowRgn(form1.Handle,R,true);
end;
Можно поизвращается с регионами - создать места для перетаскивания. |
|
|
|
21.05.2007, 15:00
|
|
Познающий
Регистрация: 18.10.2006
Сообщений: 42
Провел на форуме:
119338
Репутация:
3
|
|
Сообщение от Xserg
На OnResize добаиляем
Код:
procedure TForm1.FormResize(Sender: TObject);
var P : array [0..9] of TPoint;
dm:dword;
begin
form1.BorderStyle:=bsSizeToolWin;
form1.BorderWidth:=0;
dm:=form1.Height-form1.ClientHeight;
P[0] := Point(0,0);
P[1] := Point(form1.Width,0);
P[2] := Point(form1.Width,form1.Height);
P[3] := Point(0,form1.Height);
R := CreatePolygonRgn(P, 4, Alternate);
P[0] := Point(2,dm);
P[1] := Point(form1.Width-2,dm);
P[2] := Point(form1.Width-2,form1.Height-2);
P[3] := Point(2,form1.Height-2);
R1 := CreatePolygonRgn(P, 4, Alternate);
CombineRgn(R, R, R1, RGN_DIFF);
SetWindowRgn(form1.Handle,R,true);
end;
Можно поизвращается с регионами - создать места для перетаскивания.
Благодарю....
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
