нестандартная кнопка

[Devolarium]

Можно ли создать не квадратную или прямоугольную кнопку а 6-ти угольную например? в Delphi

[kettanaito]

Встречал такое с помощью дополнительных компонентов. В теории можно, могу посоветовать разобраться с прорисовкой компонента rkSmartTabs (вкладки хрома). Хороший пример как нарисовать нестандартную форму и обработать ее события.

[Anton911]

Я вообще делал так. Ставил компонент TImage, загружал в него картинку нашей кнопки, а потом проверял координаты щелчка мышкой у пользователя (Если координаты мышки в момент щелчка принадлежат к "Image'вой кнопке", то значит делаем нужные действия), в итоге получалась вполне рабочая кнопка

[beegl]

[z-wer]

Нехочется плодить новую тему про кнопки, поэтому решил спросить здесь.

Интересует вот такой вопросик.
Как бы реализовать увеличение, либо уменьшение значения по такому алгоритму.
Допустим юзер нажал на кнопку и отпустил - значение увеличилось.
Но если он её удерживает нажатой то значение постоянно увеличивается.
Пример в принципе не интересует, просто в теории нужна реализация.

[Devolarium]

beegl при запуске hexbutton ошибка вылетает(

[Devolarium]

Anton911 можешь небольшой пример кода дать, как отлавливать место куда тыкнул пользователь на картинке

[Кольша]

procedure Tfrm.fonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);/////x,y и ест координаты "тыка"
begin
shiwmessage('По горизонтали: '+inttostr(x)+'По вертикали: '+inttostr(y));
end;

[z-wer]

Сообщение от z-wer

Нехочется плодить новую тему про кнопки, поэтому решил спросить здесь.

Интересует вот такой вопросик.
Как бы реализовать увеличение, либо уменьшение значения по такому алгоритму.
Допустим юзер нажал на кнопку и отпустил - значение увеличилось.
Но если он её удерживает нажатой то значение постоянно увеличивается.
Пример в принципе не интересует, просто в теории нужна реализация.

Всем спасибо, я уже и сам разобрался. Всех с продолжающимся Новым годом.

[Anton911]

Сообщение от Devolarium

Anton911 можешь небольшой пример кода дать, как отлавливать место куда тыкнул пользователь на картинке

Проверка принадлежности точки к треугольнику. Многоугольники проще разбить на треугольники.

Глобальная переменная:

var ImageMousePos:TPoint;

function PrinTochkToTreyg(tX,tY:integer;x1,y1,x2,y2,x3,y3:integer):boolean;
  var
  x,y:array [0..3] of integer;
  Function PR(i,j:integer):boolean;
    begin
    x[1]:=x1; x[2]:=x2;  x[3]:=x3;
    y[1]:=y1; y[2]:=y2;  y[3]:=y3;
      PR:=((tx-x[i])*(y[j]-y[i]))>((x[j]-x[i])*(ty-y[i]));
    end;
begin
  if ((pr(1,2))=(pr(2,3))) and ((pr(1,2))=(pr(3,1)))
    then Result:=true else Result:=false;
end;

Чтобы не запутаться в переменных создал класс треугольников

type
cTreygolnik=class
x1,x2,x3,y1,y2,y3:integer;
end;

На основе функции принадлежности точки к треугольнику, сделал для четырех угольника.
Но эта функция была подстроена под мои координаты, вы можете сами переделать функцию под свои нужды.

function BooleanPrinTochkCY(tx,ty:integer):boolean;
var Pr:boolean;
  Treyg: array [0..2] of ctreygolnik;
begin
Pr:=false;
Treyg[0]:=cTreygolnik.Create;
Treyg[1]:=cTreygolnik.Create;
Treyg[0].x1:=1;   Treyg[0].x2:=200;   Treyg[0].x3:=1;
Treyg[0].y1:=1;   Treyg[0].y2:=1;     Treyg[0].y3:=90;
Treyg[1].x1:=1;   Treyg[1].x2:=110;   Treyg[1].x3:=200;
Treyg[1].y1:=90;   Treyg[1].y2:=160;     Treyg[1].y3:=1;
if (PrinTochkToTreyg(tx,ty,Treyg[0].x1,Treyg[0].y1,Treyg[0].x2,Treyg[0].y2,Treyg[0].x3,Treyg[0].y3)) or (PrinTochkToTreyg(tx,ty,Treyg[1].x1,Treyg[1].y1,Treyg[1].x2,Treyg[1].y2,Treyg[1].x3,Treyg[1].y3)) then
Pr:=true;
Treyg[0].Free;
Treyg[1].Free;
Result:=Pr;
end;

Пользователь водит мышкой по имаджу:

procedure ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var SectorID,SystemID:integer;
  b:boolean;
  Text:string;
begin
ImageMousePos.X:=x;
ImageMousePos.Y:=y;
end;

Пользователь кликнул по имаджу

procedure ImageClick(Sender: TObject);
var x,y:integer;
b:boolean;
begin
x:=ImageMousePos.X;
y:=ImageMousePos.Y;
b:=BooleanPrinTochkCY(x,y);
if b then
//Делаем действия

Обратите внимание, что X,Y точки может отобразить процедура OnMouseMove, а OnClick не определит координаты(Если использовать x:=Mouse.CursorPos.X и y:=Mouse.CursorPos.Y, то координаты выдаст относительно формы, и они будут не верны). Поэтому хитрим, сохраняем координаты X,Y из процедуры OnMouseMove в глобальные переменные, следовательно в процедуре OnClick используем именно эти глобальные переменные.