Вопрос № 161913: Подскажите пожалуйста как сделать чтобы изображение с веб-камеры передавалось на компонент TImage Заранее благодарю....
Вопрос № 162041: Здравствуйте. Мне нужно решить задачу в делфи: В каждом столбце найти минимум среди нечетных элементов. Вывести матрицу в окне формы. Я не могу понять как вывести матрицу в форме и как вывести список минимума среди нечетных чисел. На паскале без ...Вопрос
№ 162179: Сдравствуите ув. эксперты помогите реализовать drag and drop хода фигуры.Просто ход проверку делать не надо !!!! Код программы: <div style="margin:15px; margin-top:10px"><div><b><font color="gray">Код:</font></b></div><pre style="margin: 0px;...
Вопрос № 161
.913
Подскажите пожалуйста как сделать чтобы изображение с веб-камеры передавалось на компонент TImage
Отвечает: Влвдимир
Здравствуйте, Писарев Павел Юрьевич!
Копайте в сторону DirectShow. Directshow.wonderu.com В приложении код использующий компоненты пакета DSPack TFilterGraph, TFilter. Удачи.
Приложение:
Ответ отправил: Влвдимир (статус: 3-й класс)
Ответ отправлен: 05.03.2009, 09:36
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 245080 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 162.041
Здравствуйте. Мне нужно решить задачу в делфи: В каждом столбце найти минимум среди нечетных элементов. Вывести матрицу в окне формы. Я не могу понять как вывести матрицу в форме и как вывести список минимума среди нечетных чисел. На паскале без проблем решил. Объясните пожалуйсте подробно как матрицу вывести в окне формы?
Приложение:
Отправлен: 04.03.2009, 20:34
Вопрос задал: DaImeR (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Mixala
Здравствуйте, DaImeR! Ну можно воспользоватькя одним из компонентов, напр. Memo - преобразовывате в строку, напр <строка>:=inttostr(<число>) Можно прямо на форму выводить подобно графике: на канве формы. То есть создается форма, потом туда кнопка, для нее назначается событие(два раза кликнуть по кнопке) и появиться процедура. Это я для примера. Потом туда код Form1.Canvas.TextOut(x:integer,y:integer,text:string); то есть выводиться в любом месте формы строка. Думаю с координатами проблем у
вас не будет. Так можно вывести в форме матрицу, а потом минимумы.
Ответ отправил: Mixala (статус: 5-й класс)
Ответ отправлен: 04.03.2009, 21:48
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 245059 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 4 Комментарий оценки: Почти понятно)
Вопрос № 162.179
Сдравствуите ув. эксперты помогите реализовать drag and drop хода фигуры.Просто ход проверку делать не надо !!!! Код программы:
end; Tpeshka=class(TFigura) function hod_figyri(x,y:integer):boolean; override;
end; Tslon=class(TFigura) function
hod_figyri(x,y:integer):boolean; override;
end; Tkon=class(TFigura) function hod_figyri(x,y:integer):boolean; override;
end; Tladya=class(TFigura) function hod_figyri(x,y:integer):boolean; override;
end; Tkorol=class(TFigura) function hod_figyri(x,y:integer):boolean; override;
end; Tkoroleva=class(TFigura) function hod_figyri(x,y:integer):boolean; override;
end;
var Form1: TForm1; px,py,x,y,nomer:integer; mass: array[1..8,1..8]of TShape; labx:array[1..8,1..2] of Tlabel; laby:array[1..8,1..2] of Tlabel; globmass:array[1..32] of TFigura; pesh:array[1..8,1..2] of Tpeshka; slon:array[1..2,1..2] of Tslon; kon:array[1..2,1..2] of Tkon; lad:array[1..2,1..2] of Tladya; korol:array[1..2] of Tkorol; koroleva:array[1..2] of Tkoroleva; implementation
uses Unit2;
{$R *.dfm} {$R *.res} constructor
TFigura.FiguraCreat(x,y:integer); var name:string; begin name:=ClassName; create; kartinka:=timage.Create(form1); kartinka.Parent:=form1; kartinka.Width:=50; kartinka.Height:=50; mesto_x:=x; mesto_y:=y; with Tfigura do begin mass[x,y].DragMode:=dmAutomatic; mass[x,y].OnDragOver:=form1.FormDragOver; mass[x,y].OnDragDrop:=form1.FormDragDrop; end;
if (y<4) then begin Color:=false; kartink
a.Transparent:=true; kartinka.Picture.Bitmap.LoadFromResourceName(Hinstance,name+'black'); end else begin Color:=true; kartinka.Transparent:=true; kartinka.Picture.Bitmap.LoadFromResourceName(Hinstance,name+'white'); end; end; destructor TFigura.destroy; Begin kartinka.Free; end;
procedure TForm1.FormCreate(Sender: TObject); begin form1.Height:=480; form1.Width:=460; form1.Caption:='Шахматы'; //form1.TransparentColor:=true; //form1.TransparentColorValue:=clwhite
; for x:=1 to 8 do for y:=1 to 8 do begin mass[x,y]:=TShape.Create(Self); mass[x,y].Parent:=Self; mass[x,y].Left:=50*x-30; mass[x,y].Top:=50*y-30; mass[x,y].Width:=50; mass[x,y].Height:=50;
if (x+y)mod 2=0 then mass[x,y].Brush.Color:=rgb(255,255,255) else mass[x,y].Brush.Color:=rgb(0,0,0); end; for x:=1 to 8 do for y:=1 to 2 do
begin labx[x,y]:=Tlabel.Create(form1); labx[x,y].Parent:=form1; labx[x,y].Left:=50*x-10; labx[x,y].Font.Size:=10; labx[x,y].Font.Color:=rgb(253,117,40); labx[x,y].Font.Style:=[fsBold]; labx[x,y].Transparent:=true; if y=1 then begin labx[x,y].Top:=0; labx[x,y].Caption:=chr(64+x); end else begin labx[x,y].Top:=425; labx[x,y].Caption:=chr(64+x); end;
laby[x,y]:=Tlabel.Create(form1);
laby[x,y].Parent:=form1; laby[x,y].Top:=50*x-10; laby[x,y].Font.Size:=10; laby[x,y].Font.Color:=rgb(253,117,40); laby[x,y].Font.Style:=[fsBold]; laby[x,y].Transparent:=true; if y=1 then begin laby[x,y].Left:=5; laby[x,y].Caption:=inttostr(9-x); end else begin laby[x,y].Left:=430; laby[x,y].Caption:=inttostr(9-x); end; end; for y := 1 to
2 do begin koroleva[y]:=Tkoroleva.FiguraCreat(x,y*y+y+(y-1)); koroleva[y].kartinka.Left:=25*x; koroleva[y].kartinka.Top:=350*y-325; nomer:=nomer+1; globmass[nomer]:=koroleva[y]; end; for x := 1 to 2 do for y := 1 to 2 do begin lad[x,y]:=Tladya.FiguraCreat(x,y*y+y+(y-1)); lad[x,y].kartinka.Left:=350*x-325; lad[x,y].kartinka.Top:=350*y-325; nomer:=nomer+1; globmass[nomer]:=lad[x,y];
end; for y := 1 to 2 do begin korol[y]:=Tkorol.FiguraCreat(x,y*y+y+(y-1)); korol[y].kartinka.Left:=59*x; korol[y].kartinka.Top:=350*y-325; nomer:=nomer+1; globmass[nomer]:=korol[y]; end; for x := 1 to 2 do for y := 1 to 2 do begin kon[x,y]:=Tkon.FiguraCreat(x,y*y+y+(y-1)); kon[x,y].kartinka.Left:=250*x-173; kon[x,y].kartinka.Top:=350*y-32
5; nomer:=nomer+1; globmass[nomer]:=kon[x,y]; end; for x := 1 to 2 do for y := 1 to 2 do begin slon[x,y]:=Tslon.FiguraCreat(x,y*y+y+(y-1)); slon[x,y].kartinka.Left:=153*x-29; slon[x,y].kartinka.Top:=350*y-325; nomer:=nomer+1; globmass[nomer]:=slon[x,y]; end; for x:=1 to 8 do for y:=1 to 2 do begin
procedure Tfigura.pol_x(x:integer); begin if not ((tyt_y>0) and (tyt_y<9)) then tyt_y:=1; begin kartinka.Left:=mass[x,tyt_y].Left+5; kartinka.top:=mass[x,tyt_y].Top+5; end; tyt_x:=x; end; procedure TFigura.pol_y(y:integer); begin if not ((tyt_x>0) and (tyt_x<9))
then tyt_x:=1; begin kartinka.Left:=mass[y,tyt_x].Left+5; kartinka.top:=mass[y,tyt_x].Top+5; end; tyt_y:=y; end; function TFigura.hod_figyri(x,y:integer):boolean; begin end; function Tpeshka.hod_figyri(x,y:integer):boolean; begin end; function Tkon.hod_figyri(x,y:integer):boolean; begin end; function Tslon.hod_figyri(x,y:integer):boolean; begin end; function Tladya.hod_figyri(x,y:integer):boolean; begin end; function
Tkorol.hod_figyri(x,y:integer):boolean; begin end; function Tkoroleva.hod_figyri(x,y:integer):boolean; begin end;
procedure TForm1.FormDestroy(Sender: TObject); begin for x:=1 to 8 do for y:=1 to 8 do begin mass[x,y].Destroy; end; for x:=1 to 8 do for y:=1 to 2 do begin labx[x,y].Destroy; laby[x,y].Destroy; end; end;
procedure TForm1.FormDragDrop(Sender, Source: TObject;
X, Y: Integer); begin with Source as Tfigura do begin mass[x,y].Left:= X; mass[x,y].Top := X; end; end;
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Source is Tfigura; end;
end.
P.S. фигуры просто должны перемещаться по доске проверку хода делать не надо!!!
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.