Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
Топик располагается на нескольких страницах: 1 2 3 4      [все]
 Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Вопрос несколько шире, чем можно написать в заголовке и требует некоторого пояснения.
В моей программке есть рисовалка, которая показывает результаты расчетов пример на картинке. Но всё что отображается по сути обычный рисунок на канве. Интерактивность обеспечивается перехватом координат по клику, сравнивание с изображенным на рисунке и вызовом соответствующих процедур.

Картинка с другого сайта.

Но в определенный момент мне захотелось большей "интерактивности" (информация при наведении на элемент, информация при клике по тексту или рисунку, т.п.).
Так же когда объемы и форматы выводимой информации стали весьма значительными
+ (рисунки для примера)
Картинка с другого сайта.
Картинка с другого сайта.
Картинка с другого сайта.
Картинка с другого сайта.
добавление любых новых данных стало ну очень сложным (так как всё один рисунок + интерактивность + куча условий + каждый раз данные подгружаются разные, надо всё учитывать, ну и т.п.) решил попробовать сделать свой компонент наследника от панели (из-за удобной возможности "ручного" перетаскивания и широкого выбора событий) с лейблами для вывода текста и прочим подобным.

Сделать это на первый взгляд оказалось не сложно (на картинки каждый шестигранник - компонент)...
+ пример - картинка
Картинка с другого сайта.
,
но только на первый взгляд, одним из очень важных элементов визуального отображения результатов являются стрелки
+ картинка - пример тут всё является одним рисунком
Картинка с другого сайта.

и вот тут возникла сложность, а как рисовать стрелки поверх панелек не перекрывая доступ к ним (яж хочу "интерактивность"). Ну и в общем основной вопрос в этом. Как реализовать такие стрелки?
Наиболее очевидным для меня было сделать контурную стрелку и вырезать панельку по ней, так я и сделал, но результат сильно разочаровал:
+ пример со стрелками вырезанными из панелек
Картинка с другого сайта.

Во первых ужасное "сглаживание" наклонных линий (есть ли способ уменьшить эти лесенки?).
Во вторых я никак не могу понять почему основания стрелок сужаются/расширяются? Что-то с округлением и непопаданием пикселей, вроде тригонометрия правильная? Почему криво обрезаются...
Из решений пока думаю сделать панельку прозрачной(теми или иными способами) и рисовать стрелки старым способом.

Я резонно предполагаю, что способ реализации выбранный мной ну очень спорный, потому открыт для любых адекватных предложений.
Отдельные вопросы:
1. Создания сотен панелей потенциально не опасно для работы программы? Что-нибудь может поломаться? В принципе что по памяти, что по отклику проблем никаких не замечено.
2. Имеет ли смысл включать канвас на панели вместо создания на ней Image, это даст какие-то ресурсные преимущества, ну или, возможно, это правильнее?
3. Как можно ускорить создание панелек, несколько сотен панелек создается несколько секунд, что не много, но не мгновенно.
4. Можно ли рисовать прям поверх всех панелей при этом не ограничивая взаимодействия.
5. Почему
CreatePolygonRgn (pt,NPoint,1); 
SetWindowRgn(Handle,CirRgn,true);
при использовании динамического массива просто уничтожает работу системы. Винда зависает почти в ноль даже на многоядерном процессоре, данные на входе проверял - правильны.
То есть такой код работает нормально:
    Var
  pt      :array[0..5]  of TPoint;
  ...
 begin
  CirRgn:= CreatePolygonRgn (pt,6,1);
  SetWindowRgn(Handle,CirRgn,true);
 end
А вот такой убивает винду (по крайней мере на Delphi7), почему?
    Var
  pt      :array  of TPoint;
  ...
 begin
  Setlength (pt,6)
  CirRgn:= CreatePolygonRgn (pt,6,1);
  SetWindowRgn(Handle,CirRgn,true);
 end


Если интересен код, вот, сильно не бейте, писалось просто что в голову придет и я пока просто учусь:
+ код
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, math;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

TArrow = array [0..6] of TPoint;

type
  TestPanel = class (TPanel)
  private
     Image:TImage;
     Numb:integer;
     procedure MovePanelMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
  public
     property Index:Integer read Numb write Numb;
  end;

TFA = class
 private
    TextLabel:array [1..5] of TLabel;
    Arrow:TestPanel;
    Hex:TestPanel;
    X,Y:Real;
    RDes:Integer;
    Numb:integer;
    Parent :  TWinControl;
    function BodyArrow(X1,Y1,X2,Y2: Integer; LW: Extended):TArrow;
 public
    DeltX,DelTY:Real;
    property PosX:real write X;
    property PosY:real write Y;
    procedure DrawArrow (DeltX,DeltY:Real; Wdt:integer);
 Published
    constructor  Create(AOwner: TWinControl; PosX, PosY : real; RadDes, Index  : Integer);
 end;

TRPoint = record
x,y:real;
end;

var
  Form1: TForm1;
  RPoint: array [1..163] of TRPoint;
  FA:array [1..163] of TFA;
  
implementation

{$R *.dfm}

constructor TFA.Create(AOwner: TWinControl; PosX, PosY : real; RadDes, Index : Integer); //ñîçäàþ ìíîãîóãîëüíèê ñ òåêòîì
var
  i       :integer;
  CirRgn  :HRGN;
  pt      :array[0..5]  of TPoint;
const
  NPoint=6;
begin
  X:=PosX;  Y:=PosY;
  RDes:=RadDes;
  Parent:=AOwner;
  Numb:=Index;

  Hex:=TestPanel.Create(AOwner);
  Hex.Index:=Numb;
  Hex.Parent:=AOwner;
  Hex.SendToBack;

 with  Hex do
   begin
      BevelInner:=bvNone;  BevelOuter:=bvNone;  BorderStyle:=bsNone; //ïàðàìåíòðû ïàíåëè
      Height:=RDes*2;    Width:=RDes*2;
      Top:=Round(Y);     Left:=Round(X);

      Image:=TImage.Create(Hex);
      Image.Parent:=Hex;
      Image.Align:=alClient;
      Image.OnMouseDown:=Hex.MovePanelMouseDown;

      for i:=1 to 5 do     //òåêñò
       begin
        TextLabel[i]:=Tlabel.Create(Hex);
        TextLabel[i].Parent:=Hex;
        TextLabel[i].Caption:=inttostr(i);
        TextLabel[i].Left:=RDes-Round(TextLabel[i].width/2);
        TextLabel[i].Top:=Round(i*(2*RDes-12)/(5)-6);
        TextLabel[i].Transparent:=True;
       end;

      for i:=0 to NPoint-1 do  //ôîðìà ìíîãîóãîëüíèêà
        begin
          pt[i].Y:=Round((Sin(2*i*pi/NPoint+pi/NPoint)+1)*RDes);
          pt[i].X:=Round((Cos(2*i*pi/NPoint+pi/NPoint)+1)*RDes);
        end;
      CirRgn:= CreatePolygonRgn (pt,NPoint,1);
      SetWindowRgn(Handle,CirRgn,true);
      Image.Canvas.Pen.Width:=4;

      Image.Canvas.Brush.Color:=RGB(random(255), random(255), random(255));
      Image.Canvas.Brush.Style:=bsSolid;
      Image.Canvas.Pen.Color:=clBlack;
      Image.Canvas.Polygon(pt);
   end;
end;


function TFA.BodyArrow(X1,Y1,X2,Y2: Integer; LW: Extended):TArrow; //ðèñóþ ñòðåëêó
  var
    Angle: Extended;
    A1,A2: Extended;
    Body:  TArrow;
    SinA,CosA,AbsA:Extended;
  const
    WidthLen=2.2;
    LineLen=4.74;
    ArrAngl=0.28322;
    HeadLenght=4.5;
begin
  Angle:=ArcTan2(Y1-Y2,X2-X1);
  AbsA:=Sqrt(Sqr(Y2-Y1)+Sqr(X2-X1));
  SinA:=(Y2-Y1)/AbsA;
  CosA:=(X2-X1)/AbsA;

  Angle:=Pi+Angle;
  A1:=Angle-ArrAngl; A2:=Angle+ArrAngl;
  Body[0]:=Point(Round(X1+WidthLen*SinA),Round(Y1-WidthLen*CosA));
  Body[1]:=Point(Round(X1-WidthLen*SinA),Round(Y1+WidthLen*CosA));
  Body[2]:=Point(Round(X2-WidthLen*SinA -LW*HeadLenght*CosA),Round(Y2+WidthLen*CosA-LW*HeadLenght*SinA));
  Body[3]:=Point(X2+Round(LineLen*LW*Cos(A2)),Y2-Round(LineLen*LW*Sin(A2)));
  Body[4]:=Point(X2,Y2);
  Body[5]:=Point(X2+Round(LineLen*LW*Cos(A1)),Y2-Round(LineLen*LW*Sin(A1)));
  Body[6]:=Point(Round(X2+WidthLen*SinA -LW*HeadLenght*CosA),Round(Y2-WidthLen*CosA-LW*HeadLenght*SinA));

  BodyArrow:=Body;
end;

procedure TFA.DrawArrow (DeltX,DeltY:Real; Wdt:integer);
var
  CirRgn:HRGN;
  RecPoint:TArrow;
  Line: array [1..2] of TPoint;
  i:Integer;
  SinA,CosA,AbsA,dX,dY:Real;
  TempInteger:Integer;
begin
 AbsA:=Sqrt(Sqr(DeltX)+Sqr(DeltY));
 SinA:=(DeltY)/AbsA;
 CosA:=(DeltX)/AbsA;
 dX:=(SinA*Wdt)/2;
 dY:=(CosA*Wdt)/2;

 Arrow:=TestPanel.Create(Parent);
 Arrow.Parent:=Parent;
 Arrow.Index:=0;

with  Arrow do
  begin
   BevelInner:=bvNone; BevelOuter:=bvNone;  BorderStyle:=bsNone;   //óáèðàåì ãðàíèöû

   if DeltX>=0 then  Left:=Round(X+RDes-abs(dX))  else  Left:=Round(X+RDes+DeltX-abs(dX)); //ðàçåìðû ïàíåëè
   if DeltY>=0 then  Top:= Round(Y+RDes-abs(dY))  else  Top:= Round(Y+RDes+DeltY-abs(dY));
   Width:=Round(Abs(DeltX)+2*abs(dX));       Height:=Round(Abs(DeltY)+2*abs(dY));

   Image:=TImage.Create(Arrow);      //ñîçäàåì ïàíåëü
   Image.Parent:=Arrow;
   Image.Align:=alClient;
   Image.Canvas.Brush.Color:=clRed;
   Image.Canvas.Pen.Width:=2;

   if (DeltX>=0) then begin  Line[1].X:=Round(DeltX+abs(dX)); Line[2].X:=Round(0+abs(dX) )      end
                else  begin  Line[1].X:=Round(0+abs(dX));     Line[2].X:=Round(-DeltX+abs(dX) ) end;

   if (DeltY>=0) then begin  Line[1].Y:=Round(DeltY+abs(dY)); Line[2].Y:=Round(0+abs(dY))   end
                 else begin  Line[1].Y:=Round(0+abs(dY));     Line[2].Y:=Round(-DeltY+abs(dY)) end;

   RecPoint:=    BodyArrow(Line[1].X,Line[1].Y,Line[2].X,Line[2].Y,3);

   CirRgn:= CreatePolygonRgn (RecPoint,7,1);
   Image.Canvas.Polygon(RecPoint);
   SetWindowRgn(Handle,CirRgn,true);

   Image.OnMouseDown:=Arrow.MovePanelMouseDown;
  end;
end;

procedure TestPanel.MovePanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  (Sender as TImage).Parent.Perform(WM_SYSCOMMAND, $F012, 0);
end;

procedure LoadData;
 var
  sl,dmsl:TStringList;
  i:integer;
begin
  sl:=TStringList.Create;
  sl.LoadFromFile('fa_locations.c1');
  dmsl:=TStringList.Create;
  dmsl.Delimiter:=' ';
  for i:=0 to 162 do
  begin
   dmsl.DelimitedText:=sl[i];
   RPoint[i+1].x:=StrToFloat (dmsl[1]);
   RPoint[i+1].y:=StrToFloat (dmsl[2]);
  end;
  dmsl.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
Panel1.Visible:=false;
 if FileExists('fa_locations.c1') then LoadData
    else for i:=1 to 163 do begin RPoint[i].x:=Random(3000)/1000-1.5; RPoint[i].y:=Random(3000)/1000-1.5; end;


 for i:=1 to 163 do if FA[i]=nil then  FA[i]:=TFA.Create(Panel1,RPoint[i].x*220+400,RPoint[i].y*220+350,30,i);
Panel1.Visible:=True;
Button2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
begin
Panel1.Visible:=false;
 for i:=1 to 163 do   FA[i].DrawArrow(Random(50)+50,Random(50)+50,10);
Panel1.Visible:=True;
end;

End.


Ну а теперь отдельно.
Если мои вопросы слишком глупы для данного форума, то, вроде, есть более лояльные к новичкам форумы, просто это мне показался наиболее живым из существующих, если считаете что не стоит тут задавать, то более не буду.
Если же мои вопрос слишком сложны и надо писать их в разделе "работа", то поясню, всё что я делаю, по сути делаю для "научного интереса", то есть мне за это никто не платит, я за это ничего не получу (кроме, возможно, благодарности). Можно сказать что я просто учусь и заодно что-то делаю облегчая жизнь себе и коллегам. Банально мне это интересно и нравится.
П.С. Мне на форуме советовали книгу по типам данных Delphi, теперь никак не могу найти где именно мне её посоветовали. Скачал несколько по алгоритмам, хорошие книги, но пока не совсем то, что мне надо. Чтож за книгу там мне посоветовали...

Сообщение было отредактировано: 2 сен 19, 21:08
28 авг 19, 17:20    [21959295]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Сомневаюсь, что кому-то нужно, но прицепил программку. Зато можно стрелочки порисовать :).

К сообщению приложен файл (Project1_2019-08-28.zip - 5Kb) cкачать
28 авг 19, 17:22    [21959298]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
s62
Member

Откуда: Жуковский
Сообщений: 1024
Андрей Игоревич
П.С. Мне на форуме советовали книгу по типам данных Delphi, теперь никак не могу найти где именно мне её посоветовали. Скачал несколько по алгоритмам, хорошие книги, но пока не совсем то, что мне надо. Чтож за книгу там мне посоветовали...

Я вам писал о вот этой книжке:
https://royallib.com/book/baknell_dgulian/fundamentalnie_algoritmi_i_strukturi_dannih_v_Delphi.html
Но может быть вы что-то другое имеете в виду.
28 авг 19, 18:12    [21959338]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
s62
Андрей Игоревич
П.С. Мне на форуме советовали книгу по типам данных Delphi, теперь никак не могу найти где именно мне её посоветовали. Скачал несколько по алгоритмам, хорошие книги, но пока не совсем то, что мне надо. Чтож за книгу там мне посоветовали...

Я вам писал о вот этой книжке:
https://royallib.com/book/baknell_dgulian/fundamentalnie_algoritmi_i_strukturi_dannih_v_Delphi.html
Но может быть вы что-то другое имеете в виду.

А, эту книгу я уже скачал. Хорошая, но некоторая сложность в том, что алгоритмы из книги я нигде пока не использую (ну из начала кнаги по крайней мере), а что не использовал, то почти сразу забываю (треклятая дырявая память), сейчас добью "Библию Делфи" (ничего нового особо не узнал, но некоторое систематизировал) и попробую эту ещё раз уже пытаясь куда-нибудь применив.
28 авг 19, 18:24    [21959345]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Док
Member

Откуда: Казань
Сообщений: 6489
Андрей Игоревич
Сделать это на первый взгляд оказалось не сложно (на картинки каждый шестигранник - компонент)...

Ну ты, брат, силен. Основную работу работать-то успеваешь? :)

зы. если честно, ЯНХНП. Но, если суть вопроса в корректной и оптимальной отрисовке, дождись, пока ответит Соколинский Борис , он в этом вопросе продвинут, КМК.
28 авг 19, 18:54    [21959365]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Василий 2
Member

Откуда:
Сообщений: 849
Попробуй вместо панелек отрисовку в Tshape с перекрытым Draw и Brush.Style=bsClear. Да, регионы очень тормознутые, тем более когда их сотни.
28 авг 19, 19:28    [21959381]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Док
Андрей Игоревич
Сделать это на первый взгляд оказалось не сложно (на картинки каждый шестигранник - компонент)...

Ну ты, брат, силен. Основную работу работать-то успеваешь? :)

зы. если честно, ЯНХНП. Но, если суть вопроса в корректной и оптимальной отрисовке, дождись, пока ответит Соколинский Борис , он в этом вопросе продвинут, КМК.

Лето, пара отпусков, всё начальство отдыхает, вот и ковыряюсь пока время есть. По факту я уже раза 3-4 почти всё переделывал, на это (и на поиск ошибок от выхода за пределы массива) уходить куда больше времени, чем на создание чего-то нового :).

Суть вопроса достаточно проста:
как нарисовать красивую стрелочку поверх всего(панелек, имеджей, ...) на форме при том чтоб стрелка не перекрывала доступ к компонентам под ней.

Остальное уже так, заранее ответил на возможные вопросы :) (по опыту). Нашел несколько готовых решений, но там везде идет перекрытие (стрелка на прозрачном фоне). Наверняка в сети "тыщу" раз это обсуждалось, но я не всегда умею грамотно спросить у гугла (обычно знаешь что спрашивать уже зная ответ).
Ну и просто может кто по опыту скажет, что я вообще не правильно всё делаю и надо делать не так (ну там не панельки использовать, не так компоненты рисловать, и т.п.).
28 авг 19, 19:40    [21959385]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
X-Cite
Member

Откуда: Минск
Сообщений: 1614
и на поиск ошибок от выхода за пределы массива


Программа сама найдет

Range checking
28 авг 19, 20:36    [21959404]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
X-Cite
и на поиск ошибок от выхода за пределы массива

Программа сама найдет
Range checking

Спасибо, попробую, нужная вещь. Вроде и знал о данной возможности, а вроде и ленился найти как включить. Ведь каждый раз думаешь "ну в чем же ошибка, ну в этот раз точно не динамический массив", а по факту постоянно из-за него :), как я не люблю динамические массивы, будь они неладны...

Василий 2
Попробуй вместо панелек отрисовку в Tshape с перекрытым Draw и Brush.Style=bsClear. Да, регионы очень тормознутые, тем более когда их сотни.

Попробую, пока что-то не разобрался как её на передний план вывести и будет ли прямоугольник компонента перекрывать доступ, но поковыряюсь.
28 авг 19, 21:03    [21959407]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
DimaBr
Member

Откуда:
Сообщений: 11356
Почему в пользу "интеракивности" был выбран TWinControl + SetWindowRgn, а не просто TGraphicsControl ?
28 авг 19, 22:20    [21959425]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
kealon(Ruslan)
Member

Откуда: Нижневартовск
Сообщений: 5437
Андрей Игоревич,

ЖСТКО
Такие вещи только вручную рисуют, через промежуточный буфер - двойная буферизация называется, в сети полно примеров
Ссли уж так охота всё отдельынми компонентами, то наследуйтесь от TGraphicsControl, он у вас хоть окна создавать не будет (дискрипторы окон лимитированный ресурс)

а CreatePolygonRgn у вас выпадает из-за того, что вы ему адрес не буфера передаёте, а условно "мусор", используйте с ним [0]
CreatePolygonRgn (pt[0],6,1);
29 авг 19, 00:15    [21959459]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
softwarer
Member

Откуда: 127.0.0.1
Сообщений: 59713
Блог
kealon(Ruslan)
(дискрипторы окон лимитированный ресурс)

Насколько я помню, со времён Windows 95 ситуация несколько изменилась.
29 авг 19, 00:49    [21959465]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
kealon(Ruslan)
Member

Откуда: Нижневартовск
Сообщений: 5437
softwarer
kealon(Ruslan)
(дискрипторы окон лимитированный ресурс)

Насколько я помню, со времён Windows 95 ситуация несколько изменилась.
если к делу подходят специалисты :-)
29 авг 19, 09:16    [21959537]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
DimaBr
Почему в пользу "интеракивности" был выбран TWinControl + SetWindowRgn, а не просто TGraphicsControl ?

Что на текущий момент знал, то и использовал. Сейчас, по мере наличия свободного времени, буду про предложенное вами читать и пробовать.
kealon(Ruslan)
Андрей Игоревич,
ЖСТКО
Такие вещи только вручную рисуют, через промежуточный буфер - двойная буферизация называется, в сети полно примеров
Ссли уж так охота всё отдельынми компонентами, то наследуйтесь от TGraphicsControl, он у вас хоть окна создавать не будет (дискрипторы окон лимитированный ресурс)
а CreatePolygonRgn у вас выпадает из-за того, что вы ему адрес не буфера передаёте, а условно "мусор", используйте с ним [0]
CreatePolygonRgn (pt[0],6,1);

Спасибо, попробую поискать примеры в сети "двойной буферизации".
На счет "лимитированного ресурса", вроде пару тысяч для теста создавал, ничего не падало (хотя программка и начала тормозить), но буду иметь в виду и попробую предложенные способы.
29 авг 19, 10:26    [21959598]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
asviridenkov
Member

Откуда:
Сообщений: 3955
Андрей Игоревич,

На стандартном канвасе красивой графики не получить. Нужно делать на GDI+, или еще лучше на Direct2D.
Никаких контролов, все рисовать самому, все объекты свои, каждый умеет отрисовываться и обрабатывать события.
При желании, за пол года вполне сможете сделать нормальную версию.
29 авг 19, 12:51    [21959763]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Kast2K
Member

Откуда: Санкт-Петербург
Сообщений: 487
Андрей Игоревич,

Попробуйсте с TpaintBox, но качественной графики от него не ждите.

Демка с просторов интернета.

К сообщению приложен файл (DrawShapeAndArrows.zip - 59Kb) cкачать
29 авг 19, 13:15    [21959792]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
stanilar
Member

Откуда: Спб
Сообщений: 850
Вопрос делится на два: сделать в дельфи и сделать хорошо и быстро.

Насчет первого вопроса... Ну, раз Вы начали сами программировать то, что хотите - то продолжайте, это полезно. Создать своего наследника панели это очень круто, на него можно кинуть фрейм - удобство дельфовой визуальной разработки засверкает новыми красками. Стрелочки можно нарисовать на холсте того компонента, на котором лежат Ваши наследники панели.

Правда знание особенностей дельфовой объектной обертки над WIN API вроде как мало востребовано. Думаю что даже меньше востребовано чем просто хорошее знание WIN API. IMHO хорошее знание WIN API лучше сочетается с билдером.

Насчет второго... Тут нужно подобрать хорошую технологию. Из известных мне - SVG. Он не только стрелочки сможет рисовать. Но для интерактивности потребуется работать с компонентом TWebBrowser или поискать полную реализацию под дельфан. А такого, скорее всего нет, потому что SVG по возможностям почти как HTML(тока css не нужен, таки картинка).
29 авг 19, 14:22    [21959865]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
asviridenkov
Member

Откуда:
Сообщений: 3955
stanilar
SVG по возможностям почти как HTML(тока css не нужен, таки картинка).


Еще как нужен.
29 авг 19, 14:29    [21959868]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
stanilar
Member

Откуда: Спб
Сообщений: 850
asviridenkov
Еще как нужен.


При использовании в рамках HTML - можно поставить корню ширину, высоту и позицию. А в остальном у него все свое, это ведь картинка. Зачем картинке css?
29 авг 19, 14:46    [21959891]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
asviridenkov
Member

Откуда:
Сообщений: 3955
stanilar
asviridenkov
Еще как нужен.


При использовании в рамках HTML - можно поставить корню ширину, высоту и позицию. А в остальном у него все свое, это ведь картинка. Зачем картинке css?


Это не картинка, это набор векторных элементов с CSS стилями.
29 авг 19, 15:02    [21959906]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
stanilar
Member

Откуда: Спб
Сообщений: 850
asviridenkov
Это не картинка, это набор векторных элементов с CSS стилями.


Вот постоянно сталкиваюсь с SVG. Даже либу для построения графиков написал. Но не понимаю тебя.

SVG, это аналог HTML. В нем есть место и для CSS, если кому хочется. Кому не хочется - тот обходится без CSS. Код с примером можешь привести, зачем нужен CSS в SVG?
29 авг 19, 15:11    [21959918]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
asviridenkov
Member

Откуда:
Сообщений: 3955
stanilar
asviridenkov
Это не картинка, это набор векторных элементов с CSS стилями.


Вот постоянно сталкиваюсь с SVG. Даже либу для построения графиков написал. Но не понимаю тебя.

SVG, это аналог HTML. В нем есть место и для CSS, если кому хочется. Кому не хочется - тот обходится без CSS. Код с примером можешь привести, зачем нужен CSS в SVG?


Для всего. Атрибут style у элементов SVG, это тоже CSS. А, например, интерактивность вроде

.vbar g:hover {fill-opacity: 0.7}

только через глобальный stylesheet делается.

Да, какие-то свойства в SVG можно задавать через атрибуты, но не все, не всегда, и вообще не лучший вариант.
29 авг 19, 15:18    [21959928]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
stanilar
Member

Откуда: Спб
Сообщений: 850
asviridenkov
.vbar g:hover {fill-opacity: 0.7}


<rect id="rect1" class="bar" x="20" y="60" width="80" height="120">
    <set attributeName="fill" to="#ec008c"
         begin="rect1.mouseover"
         end="rect1.mouseout"/>
    <set attributeName="opacity" to="0.4"
         begin="rect2.mouseover"
         end="rect2.mouseout"/>
    <set attributeName="opacity" to="0.4"
         begin="rect3.mouseover"
         end="rect3.mouseout"/>
</rect>


asviridenkov
Да, какие-то свойства в SVG можно задавать через атрибуты, но не все, не всегда, и вообще не лучший вариант.

IMHO самый лучший вариант. Такую SVG картинку всегда можно экспортировать/импортировать. А при программировании интерактивной картинки со стороны js - вообще только так. Как ты каллбек mouseleave/mouseenter из SVG в js пробросишь, если у тебя hover из css задается?
29 авг 19, 15:27    [21959940]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
asviridenkov
Member

Откуда:
Сообщений: 3955
stanilar,

В моем примере устанавливалось для всех элементов определенного класса, а здесь для конкретных.
29 авг 19, 16:12    [21959977]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
asviridenkov
Андрей Игоревич,
При желании, за пол года вполне сможете сделать нормальную версию.

Это очень жестоко (пол года)... Но по возможности попробую поизучать GDI+.
Kast2K
Андрей Игоревич,
Попробуйсте с TpaintBox, но качественной графики от него не ждите.
Демка с просторов интернета.

Пока поверхностно потыкал пример (но, кстати, на 7й не работал, только на 10), но там перекрытие прямоугольником компонентов за линией, с TPaintBox тоже, но надо повникать, как я понял он позже 7ки появился (нашел его только в 10ке).

stanilar
Правда знание особенностей дельфовой объектной обертки над WIN API вроде как мало востребовано. Думаю что даже меньше востребовано чем просто хорошее знание WIN API. IMHO хорошее знание WIN API лучше сочетается с билдером.

На текущий момент меня востребованность не очень волнует, приложение пишется "для себя". Более обидно будет, если Делфи окончательно прикроют (грустно изучать то, что уже не будет развиваться).
А вопрос, а как Чарт в 10й делфе рисует свои картинки? Ну просто для сравнения графики в нем в 7ке и 10ке:
+ для понимания разницы картинки надо смотреть без масштабирования браузером

Картинка с другого сайта.Картинка с другого сайта.

Ну и другие вещи (всякие скругленные бары и прочее) они рисует просто прекрасно.

asviridenkov
stanilar
пропущено...
Вот постоянно сталкиваюсь с SVG. Даже либу для построения графиков написал. Но не понимаю тебя.
SVG, это аналог HTML. В нем есть место и для CSS, если кому хочется. Кому не хочется - тот обходится без CSS. Код с примером можешь привести, зачем нужен CSS в SVG?

Для всего. Атрибут style у элементов SVG, это тоже CSS. А, например, интерактивность вроде
.vbar g:hover {fill-opacity: 0.7}
только через глобальный stylesheet делается.
Да, какие-то свойства в SVG можно задавать через атрибуты, но не все, не всегда, и вообще не лучший вариант.

Картинка с другого сайта.
29 авг 19, 16:33    [21959994]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
stanilar
Стрелочки можно нарисовать на холсте того компонента, на котором лежат Ваши наследники панели.

А как сделать, чтоб стрелочки были поверх этих самых наследников (в том числе и всяких лейблов, имеджей и прочего, что я могу напихать в свой компонент позже).
29 авг 19, 16:35    [21959997]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
stanilar
Member

Откуда: Спб
Сообщений: 850
asviridenkov,

В твоем случае один и тот же атрибут, для одного и того же элемента будет устанавливается не только из нескольких разных участков кода, но и из нескольких разных типов файлов (js, css, html).
29 авг 19, 16:47    [21960007]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
stanilar
Member

Откуда: Спб
Сообщений: 850
Андрей Игоревич
"для себя"

Думаю что "для себя", если ты не планируешь стать гуру программирования вин-апи, есть задачи и поинтересней и более востребованней.

Андрей Игоревич
Ну и другие вещи (всякие скругленные бары и прочее) они рисует просто прекрасно
у него свой алгоритм рисования. Разницу в картинках не вижу, но предполагаю что на ТееChart для 10-ки, по умолчанию, включено сглаживание для графиков.
29 авг 19, 16:58    [21960014]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
stanilar
Андрей Игоревич
"для себя"

Думаю что "для себя", если ты не планируешь стать гуру программирования вин-апи, есть задачи и поинтересней и более востребованней.
Яж прикладную задачу решить хочу, и хочу "чтоб было красиво (и удобно)" :), потому тыкаюсь в то, что удается найти или что вычитал. Но да, многие пути оказываются слишком сложными.
stanilar
Андрей Игоревич
Ну и другие вещи (всякие скругленные бары и прочее) они рисует просто прекрасно
у него свой алгоритм рисования. Разницу в картинках не вижу, но предполагаю что на ТееChart для 10-ки, по умолчанию, включено сглаживание для графиков.

А я как-то могу "включить" эту функцию сглаживания для своих рисований на канвасе?
П.С. На картинках очень большая разница, может у вас браузер сглаживает или масштабирует?
29 авг 19, 17:25    [21960027]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
asviridenkov
Member

Откуда:
Сообщений: 3955
Андрей Игоревич
А я как-то могу "включить" эту функцию сглаживания для своих рисований на канвасе?


Я уже писал, GDI+ или Direct2D
29 авг 19, 17:36    [21960036]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
asviridenkov
Андрей Игоревич
А я как-то могу "включить" эту функцию сглаживания для своих рисований на канвасе?

Я уже писал, GDI+ или Direct2D
asviridenkov
При желании, за пол года вполне сможете сделать нормальную версию.

Ладно, обойдусь пока без сглаживания... :)
29 авг 19, 18:06    [21960055]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
stanilar
Member

Откуда: Спб
Сообщений: 850
asviridenkov
Я уже писал, GDI+ или Direct2D


Вроде у вин-контролов есть процедура, в котором они сами себя нарисовать могут. Можно самому алгоритм сглаживания написать. И не обязательно за пол года. Задача то сглаживать стрелочки? Такую, может быть, можно и из учебника скопипастить.
29 авг 19, 19:13    [21960100]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Я вот совсем чуть поковырялся с наследниками TGraphicControl (ну для примера тот же Image или SpeedButton) и такой вопрос возник, как же его на передний план выносить выше панелей, это же по сути рисунки. В интернете предлагают способы которые опять перекрывает другие компоненты. Пока вот не могу придумать. Есть ли возможность создать какой-нибудь невидимый слой, которые не перекрывает компоненты?
29 авг 19, 21:25    [21960146]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
DimaBr
Member

Откуда:
Сообщений: 11356
Все ваши шестиугольники и стрелочки - TGraphicsControl, а ПОЛЕ на котором они в конечно итоге нарисованы - TWinControl.
29 авг 19, 21:30    [21960150]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
DimaBr
Все ваши шестиугольники и стрелочки - TGraphicsControl, а ПОЛЕ на котором они в конечно итоге нарисованы - TWinControl.

Я понимаю (это очевидно), но как я понял из написанного, мне предлагают отказаться от TWinControl использовав для рисования стрелок сразу TGraphicsControl на Форме/Большой Панели. Так как 3+ сотни TWinControl - это плохо.
Отказываться от панелей под шестигранники не хочется, они удобные. А вот как стрелочки поверх нарисовать без TWinControl под них пока не понял.
29 авг 19, 21:41    [21960155]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
DimaBr
Member

Откуда:
Сообщений: 11356
автор
Отказываться от панелей под шестигранники не хочется, они удобные.

Что именно удобного ?
автор
А вот как стрелочки поверх нарисовать без TWinControl под них пока не понял.

Графические Стрелочки могут быть нарисованы на Оконном контроле. Чтобы они были поверх шестиугольников, сами шестиугольники должны быть графическими.
29 авг 19, 21:52    [21960158]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
DimaBr
автор
Отказываться от панелей под шестигранники не хочется, они удобные.

Что именно удобного ?

Ну основное что на них будет несколько label и image (на котором буду рисовать другие картинки (не стрелочки, но вместе со стрелочками)), может потом ещё что-то буду добавлять из компонентов (там много всего разного в зависимости от загруженных данных). Которые я просто кинул на панель и дальше мне только саму панельку двигать и больше ни о чем не думать (в картинках примерах я показал что у меня всё двигается, перемещается и перетаскивается, маштабируется, сейчас сделано через взаимные связи координат).
На что ещё можно кинуть другие компоненты и при этом, что бы можно было обрезать компонент по контуру (шестиугольник)? Ещё на панель удобно перетаскивать мышкой чрез предельно простые две строчки кода.

DimaBr
автор
А вот как стрелочки поверх нарисовать без TWinControl под них пока не понял.

Графические Стрелочки могут быть нарисованы на Оконном контроле. Чтобы они были поверх шестиугольников, сами шестиугольники должны быть графическими.
И это мало чем будет отличаться от того, что рисую я сейчас, просто перехват координат на рисунке и события будет сам делфи делать.

Я хочу, что бы была возможность навести/кликнуть на любое число/рисунок и увидеть дополнительную информацию, по сути у меня получилось почти всё, кроме треклятых стрелочек :).
29 авг 19, 22:38    [21960178]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Я тут подумал, что может не очень точно выразился в часть "не блокирует взаимодействие", то место где сами стрелки находятся, там можно и блокировать взаимодействие(это не очень важно), просто все доступные способы рисования стрелки блокируют не только контур стрелки, но и весь прямоугольник в который она вписана.
В принципе я могу обрезать панель чуть шире стрелки и сделать её прозрачной, по крайней мере то ужасное обрезание лесенками не будет видно. Но это всё равно приведет у нескольким сотням ВиндКонтролов.
29 авг 19, 22:48    [21960180]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
DimaBr
Member

Откуда:
Сообщений: 11356
автор
Ну основное что на них будет несколько label и image (на котором буду рисовать другие картинки

Зачем кидать какие то дополнительные контролы ? Не проще ли просто вывести текст и картинку поверх шестиугольника ?

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

Разве нельзя обработать клик по шестиугольнику ?
29 авг 19, 22:54    [21960181]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
DimaBr
Member

Откуда:
Сообщений: 11356
Смотрите, какая есть заготовка !!!

К сообщению приложен файл. Размер - 10Kb
29 авг 19, 22:56    [21960183]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
DimaBr
автор
Ну основное что на них будет несколько label и image (на котором буду рисовать другие картинки

Зачем кидать какие то дополнительные контролы ? Не проще ли просто вывести текст и картинку поверх шестиугольника ?

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

Разве нельзя обработать клик по шестиугольнику ?

Ну я вначале это описал, всё можно, даже не просто можно, я как бы уже всё это сделал почти так (просто перехват координат и события реализовал сам, а не через компоненты).

Сложно объяснить не углубляясь в суть отображаемых данных (а это долго), но панель с контролами просто банально удобнее как с алгоритмичесткой точки зрения (есть один компонент, который полностью самодостаточен, рисование, перемещение, вывод данных, обработку событий, вывод хинтов и т.п. всё можно реализовать внутри него, а я просто присваиваю параметры и всё), так и с точки зрения кода. Ну банально, вот хочу я переместить один шестиугольник (смотри картинки "примеры" в первом комментарии), в случае с панелькой я просто перемешаю её и как бы всё, больше ничего не надо, а в случае с компонентами надо их как-то связать (компоненты одного шестиугольника), перемещать совместно.
Я попробую сделать как вы говорите, может там и не так всё сложно. Просто уж больно мне компонент- наследник панели понравился, ни тебе канвасы не нужны, ни какие-то дополнительные условия.
DimaBr
Смотрите, какая есть заготовка !!!

А что тут происходит?
29 авг 19, 23:18    [21960187]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
asviridenkov
Member

Откуда:
Сообщений: 3955
Андрей Игоревич
Сложно объяснить не углубляясь в суть отображаемых данных (а это долго), но панель с контролами просто банально удобнее как с алгоритмичесткой точки зрения


Пока не захотите все это зуммировать
29 авг 19, 23:28    [21960188]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
asviridenkov
Андрей Игоревич
Сложно объяснить не углубляясь в суть отображаемых данных (а это долго), но панель с контролами просто банально удобнее как с алгоритмичесткой точки зрения


Пока не захотите все это зуммировать

А в чем подводные камни? Я планировал отключать видимость панели на которой они расположены (и всех своих компонентов), далее менять размеры панелей, "перевырезать" форму и опять включать. Хотя лейблы надо будет смещать, но относительные координаты просто на коэффициент помножить, не сложно, вроде. Если панели созданы и невидимы SetWindowRgn, вроде, быстро работает.
29 авг 19, 23:34    [21960189]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
DimaBr
Member

Откуда:
Сообщений: 11356
+ на коленке

TMyShape = class(TPaintBox)
  protected
    procedure Paint; override;
  public
    Text1: string;
    Text2: string;
    Text3: string;
end;

procedure TMyShape.Paint;
var P : array [1..7] of TPoint;
    a,i,R: integer;
begin
  Canvas.Brush.Color := clRed;
  Canvas.Brush.Style := bsSolid;
  a := 0;
  R := Width div 2;
  for i:= 1 to 7 do begin
    P[i].x := R+Round(R*sin(a*pi/180));
    P[i].y := R+Round(R*cos(a*pi/180));
    a := a+60;
  end;
  Canvas.Polygon(P);
  Canvas.TextOut((Width-Canvas.TextWidth(Text1)) div 2,10,Text1);
  Canvas.TextOut((Width-Canvas.TextWidth(Text2)) div 2,22,Text2);
  Canvas.TextOut((Width-Canvas.TextWidth(Text3)) div 2,35,Text3);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
    S: TMyShape;
begin
  for i := 0 to 999 do begin
    S := TMyShape.Create(self);
    S.Parent := self;
    S.SetBounds(Random(Width-60),Random(Height-60),60,60);
    S.Text1 := '№ '+IntToStr(i);
    S.Text2 := FormatFloat('#0.00',Random*1000);
    S.Text3 := FormatFloat('#0.000',Random*1000);
  end;
end;

Картинка с другого сайта.
30 авг 19, 00:04    [21960193]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
DimaBr
Member

Откуда:
Сообщений: 11356
Картинка с другого сайта.
30 авг 19, 00:14    [21960199]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
DimaBr
+
Картинка с другого сайта.

Повторил, заменив текс на лейблы. В принципе рабочая схема. Но по факту - стрелки это рисунок который всё время надо перерисовывать. Ну и форма Пейнбокса таки квадрат в который что-то вписано, с соответсвующим перекрытием
Картинка с другого сайта.
30 авг 19, 11:41    [21960406]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Квейд
Member

Откуда: Kyiv, Ukraine
Сообщений: 5269
Андрей Игоревич
DimaBr
+
Картинка с другого сайта.

Но по факту - стрелки это рисунок который всё время надо перерисовывать.
потому что кадр нужно генерировать целиком, сразу со всеми элементами, и только после этого выводить на экран, например
Картинка с другого сайта.
30 авг 19, 12:07    [21960440]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
kealon(Ruslan)
Member

Откуда: Нижневартовск
Сообщений: 5437
Андрей Игоревич
Повторил, заменив текс на лейблы. В принципе рабочая схема. Но по факту - стрелки это рисунок который всё время надо перерисовывать. Ну и форма Пейнбокса таки квадрат в который что-то вписано, с соответсвующим перекрытием
Выставь просто DoubleBuffered = True у контейнера (в данном случае это TForm1) на котором находятся все компоненты. VCL сделает двойную буферизацию.
30 авг 19, 12:30    [21960471]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Квейд
Андрей Игоревич
пропущено...

Но по факту - стрелки это рисунок который всё время надо перерисовывать.
потому что кадр нужно генерировать целиком, сразу со всеми элементами, и только после этого выводить на экран, например
+
Картинка с другого сайта.

Понятно, просто тоже надо продумывать будет. А что у вас на гифке происходит?
kealon(Ruslan)
Андрей Игоревич
Повторил, заменив текс на лейблы. В принципе рабочая схема. Но по факту - стрелки это рисунок который всё время надо перерисовывать. Ну и форма Пейнбокса таки квадрат в который что-то вписано, с соответсвующим перекрытием.

Выставь просто DoubleBuffered = True у контейнера (в данном случае это TForm1) на котором находятся все компоненты. VCL сделает двойную буферизацию.

Спасибо, попробую, не успел ещё с ней разобраться.

Сообщение было отредактировано: 2 сен 19, 21:07
30 авг 19, 13:20    [21960515]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Квейд
Member

Откуда: Kyiv, Ukraine
Сообщений: 5269
Андрей Игоревич
Понятно, просто тоже надо продумывать будет. А что у вас на гифке происходит?


Это пример того, о чем я говорил. Кадр со всеми элементами (линиями и якорями, за которые линии "цепляются") прорисовывается в буфере, затем целиком выводится на экран. Получается плавная анимация. В вашей задаче нужно реализовать подобный механизм.

К сообщению приложен файл. Размер - 16Kb


Сообщение было отредактировано: 2 сен 19, 21:09
30 авг 19, 13:29    [21960526]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Вопрос в продолжении.
Как срабатывает событие Paint? Как оно влияет на обновление канваса?
Попробовал рисовать стрелку в событии Paint PintBox-а но на канвасе родителя, но получилось не очень. Канвас обновляется не весь сразу, а после отрисовки каждого ПаинБокса (при том сами пайнбоксы все сразу обновляются, а вот стрелки - нет). Как-то попросить/заставить его этого не делать можно? Двойная буферизация включена.
В жизни всё не так плохо, как на гифке, просто мерцает. Вторая часть гифки когда пошагово выполнял. Дабы не вносить лишние ошибки рисую линию простым MoveTo;

Картинка с другого сайта.

Сообщение было отредактировано: 2 сен 19, 21:10
30 авг 19, 16:17    [21960690]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Квейд
Member

Откуда: Kyiv, Ukraine
Сообщений: 5269
Андрей Игоревич
Вопрос в продолжении.
Как срабатывает событие Paint? Как оно влияет на обновление канваса?
Попробовал рисовать стрелку в событии Paint PintBox-а но на канвасе родителя, но получилось не очень. Канвас обновляется не весь сразу, а после отрисовки каждого ПаинБокса (при том сами пайнбоксы все сразу обновляются, а вот стрелки - нет). Как-то попросить/заставить его этого не делать можно? Двойная буферизация включена.
В жизни всё не так плохо, как на гифке, просто мерцает. Вторая часть гифки когда пошагово выполнял. Дабы не вносить лишние ошибки рисую линию простым MoveTo;
+
Картинка с другого сайта.
выложи исходник


Сообщение было отредактировано: 2 сен 19, 21:11
30 авг 19, 17:18    [21960737]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
kealon(Ruslan)
Member

Откуда: Нижневартовск
Сообщений: 5437
asviridenkov
kealon(Ruslan)
ну например объекты в "псевдокоде" надо как-то связать с действиями и поддерживать согласованность довольно трудно
сравни со стандартным редактором формы, почти на любой объект есть реальное поле в коде.
И это не просто фигуры рисования, это уже отдельные сущности


Когда число элементов заранее неизвестно, то а коде поля на объект очевидно не будет, т.к. они создаются рантайм.
А что касается обработки событий объектов одного типа, то тоже решается очень просто
<g onclick="form.GroupClick(this)"..
Собственно все. Опять же, на фоне сравнения десятка строчек для визуализации здесь, и тысяч строк при варианте в лоб, это несерьезно.
если добавить к этому коду его "бизнеслогику", в обоих вариантах выйдет прибизительно столько же

другое дело, что ему пока сложно "отделять мух от котлет" и у него всё в куче, но все на чём-то учатся, у него же программирование не основная деятельность - процесс будет идти дольше
30 авг 19, 17:21    [21960741]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Квейд
Андрей Игоревич
Вопрос в продолжении.
выложи исходник
Блин, на работе осталось, на эту папку забыл синхронизацию настроить.
Ну суть там в этом коде из примера выше от DimaBr.
В принципе у меня уже есть мысли как это обойти, но надо пробовать. Если рисовать стрелки почти в любом другом месте кода - то, вроде, рисуются нормально (например при перетаскивании). В общем надо ещё поковырятья, просто голова сегодня не работает :(.

+
procedure TMyShape.Paint;
var P : array [1..7] of TPoint;
    a,i,R: integer;
begin
  Canvas.Brush.Color := clRed;
  Canvas.Brush.Style := bsSolid;
  a := 0;
  R := Width div 2;
  for i:= 1 to 7 do begin
    P[i].x := R+Round(R*sin(a*pi/180));
    P[i].y := R+Round(R*cos(a*pi/180));
    a := a+60;
  end;
  Canvas.Polygon(P);
  Canvas.TextOut((Width-Canvas.TextWidth(Text1)) div 2,10,Text1);
  Canvas.TextOut((Width-Canvas.TextWidth(Text2)) div 2,22,Text2);
  Canvas.TextOut((Width-Canvas.TextWidth(Text3)) div 2,35,Text3);

//вот тут рисуется линия TDrawPanel - панель со включенным канвасом (на ней рисую);
 (Self.Parent as TDrawPanel).Canvas.Pen.Width:=3; 
 (Self.Parent as TDrawPanel).Canvas.Moveto (Round(Left+width/2)-80,Round(Top+height/2)+80);
 (Self.Parent as TDrawPanel).Canvas.Lineto (Round(Left+width/2),Round(Top+height/2)) ;

end;
30 авг 19, 18:16    [21960778]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
DimaBr
Member

Откуда:
Сообщений: 11356
Андрей Игоревич
//вот тут рисуется линия TDrawPanel - панель со включенным канвасом (на ней рисую);
 (Self.Parent as TDrawPanel).Canvas.Pen.Width:=3; 
 (Self.Parent as TDrawPanel).Canvas.Moveto (Round(Left+width/2)-80,Round(Top+height/2)+80);
 (Self.Parent as TDrawPanel).Canvas.Lineto (Round(Left+width/2),Round(Top+height/2)) ;

Зачем вы рисуете на Parent ?
30 авг 19, 21:41    [21960920]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
DimaBr
Андрей Игоревич
//вот тут рисуется линия TDrawPanel - панель со включенным канвасом (на ней рисую);
 (Self.Parent as TDrawPanel).Canvas.Pen.Width:=3; 
 (Self.Parent as TDrawPanel).Canvas.Moveto (Round(Left+width/2)-80,Round(Top+height/2)+80);
 (Self.Parent as TDrawPanel).Canvas.Lineto (Round(Left+width/2),Round(Top+height/2)) ;

Зачем вы рисуете на Parent ?

Тут можно понять вопрос в двух вариантах.
1. Почему на Parent, а не на Пеинтбоксе? - Потому что стрелки могут выходить сильно за пределы шестигранника и рисовать их на канвасе пеинтбокса неразумно, он тогда будет перекрывать доступ ко всему.
2. Почему написал Parent, а не конкретный компонент? - есть дальнейшие планы по реализации, и там хочется все "шестигранные компоненты" включить в компонент наследник панели с канвасом в виде MyDrawPanel.Item[xxx].(процедуры и параметры) . В принципе описать можно по разному, сути не меняет. На указанную проблему мерцания не влияет, можно и конкретный канвас указать, так же будет. Мне больше интересно как вообще событие Paint обновляет канвас, видимо из него рисовать на других канвасах вне ПейнБокса плохая идея, надо будет разобраться.
31 авг 19, 00:05    [21960985]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Гаджимурадов Рустам
Member

Откуда:
Сообщений: 60400
UP.

Товарищи, просьба срач не устраивать.
2 сен 19, 21:14    [21962150]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
mkr
Member

Откуда: Беларусь, Брест
Сообщений: 196
а если всё это рисовать в directX (2d) или opengl?!
3 сен 19, 14:12    [21962519]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
mkr
а если всё это рисовать в directX (2d) или opengl?!
Освоение возможностей данных библиотек я оставил на чуть попозже. Стоит ли сейчас туда лезть?

По поводу стрелок. Чего-то не соображу как их рисовать.
Дело в чем, событие Pain у TPainBox срабатывает в самом конце, после любого кода. То есть если я нарисуют стрелки на канвасе родителя в коде даже после создания TPainBox, пример для сути (не код, просто суть)
PainBox:=TPainBox.Create(Parent);
With Parent.Canvas do LineTo (X,Y);

То событие Paint всё равно нарисует PaintBox поверх линии.

Если же рисовать стрелку вызывая на канвасе родителя из события Paint, то могут происходить самые разные вакханалии, например обновление канваса родителя вызывает событие Paint у PaintBox-ов который вызывает канвас родителя который... (ну вы поняли, зациклится и будет мерцать вечтно). При двойной буферизации такого не происходит, но происходят другие неприятности (видимо, просто цикл обновлений канваса прерывается на случайном месте и стрелка то видна, то нет).
Если попробовать рисовать стрелки в событии OnMove тоже интересные эффекты рядом с ПаинБоксом (видимо канвас родителя перерисовывается не весь, а только рядом с перемещаемым ПаинБоксом).
В общем мои идеи рисования стрелок что-то не сработали. Вот блин сложная задача для меня :).
3 сен 19, 17:28    [21962737]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
s62
Member

Откуда: Жуковский
Сообщений: 1024
Андрей Игоревич,

кажется тут уже писали, есть другой вариант, идея которого в том, что не использовать какие-либо компоненты для изображения шестиугольников и стрелок, а рисовать всё прямо на одном PaintBox (или на Canvas какого-то другого компонента).
Написать функцию, которая рисует шестиугольник заданного размера и цвета в заданном месте, функцию, которая рисует стрелку в заданном направлении в заданном месте. Хранить данные о всех шестиугольниках и стрелках в массивах или каком-то другом контейнере.
Перемещение реализовать через обработку событий мыши. Мышка нажата - в массиве шестиугольников отыскивается тот, на котором она нажата. Когда отпускается - этот шестиугольник перерисовывается в новом месте.
Всё рисуется на скрытом Bitmap, а потом готовая, полностью нарисованная картинка копируется на PaintBox.

Direct2D добавляется в таком варианте просто, в справке описано.

Не знаю, может тут есть какие-то не видные мне недостатки и проблемы (например недостатки GDI), но по-моему это - самый легковесный способ рисования по сравнению с созданием десятков или сотен компонентов для шестиугольников.
3 сен 19, 18:09    [21962781]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
s62
Member

Откуда: Жуковский
Сообщений: 1024
s62,
>>>Когда отпускается - этот шестиугольник перерисовывается в новом месте.
Точнее, в таком варианте нужно видимо всю картинку перерисовать.
3 сен 19, 18:11    [21962784]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
asviridenkov
Member

Откуда:
Сообщений: 3955
s62,

Я это все написал еще на первой странице, но самурай не ищет прямых путей, хочет сам набить все шишки.
3 сен 19, 18:22    [21962791]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
s62
кажется тут уже писали, есть другой вариант, идея которого в том, что не использовать какие-либо компоненты для изображения шестиугольников и стрелок, а рисовать всё прямо на одном PaintBox (или на Canvas какого-то другого компонента).
Написать функцию, которая рисует шестиугольник заданного размера и цвета в заданном месте, функцию, которая рисует стрелку в заданном направлении в заданном месте. Хранить данные о всех шестиугольниках и стрелках в массивах или каком-то другом контейнере.
Перемещение реализовать через обработку событий мыши. Мышка нажата - в массиве шестиугольников отыскивается тот, на котором она нажата. Когда отпускается - этот шестиугольник перерисовывается в новом месте.
Всё рисуется на скрытом Bitmap, а потом готовая, полностью нарисованная картинка копируется на PaintBox.

Один в один всё уже реализовано в работающем коде именно так :), смотри первый пост, даже на битмапе уже рисую "ассоциирую". Мне то чего хотелось:
Я хотел сделать компонент который был полностью самодостаточен и существует отдельно от остального кода (многоугольник + стрелка + лейблы + рисунок типа стрелки). Создал в коде - там сразу всё по умолчанию уже хорошо. Далее меняя параметры получаю нужную мне картинку.
Ну и хотел реализовать события на клики по лейблам и высвечивающиеся подсказки. Ещё дополнительно компонент родитель в виде массивов компонентов типа описанного выше с доступом Родитель.Item[...].(Свойство или Метод)

Просто у меня в коде просто огромное количество разных данных в разных форматах, я их постоянно добавляю и редактирую, и рисовальщик в виде массива с которого рисуется вся картинка с прорвой параметров (цвет, 5 текстов (размер, стиль, позиция, цвет), толщина обводки, цвет обводки, координаты многоугольника, размер многоугольника, тип рисунка (стрелка, годограф), ещё куча всего) для всех элементов, который расположен в коде программы очень неудобен. Я решил его вынести в отдельный модуль и описать качественно для максимального удобства работы в дальнейшем (а это будет постоянно).
Единый рисунок можно (и уже сделано), но не очень удобно. Особенно в часть перехвата координат мыши.
Ну например, я вот сделал и описал код на событие "OnMove" для вывода подсказки при наведени на текст, а тут что-то надо в конструкторе менять, переделывать под новые реалии - и всё уползает, опять всё переделывать, а там куча взаимосвязей (координаты, размер, масштаб, координаты текста), это сложно и неудобно (постоянно всё ломается), куда менее удобно чем небольшие сегментированные компоненты за работоспособностью которых следить куда проще.

Наверно тут мудрёно написано и оно вам не особо надо, просто хз как объяснить :). Ну для примера, вы же не рисуете на форме все компоненты рисунками (сами, а не готовые из делфи), а потом не начинаете писать тучу кода для того, что бы реализовать все возможные взаимодействия (через перехват координат или ещё как). Вы пользуетесь готовыми решениями (даже если по сути это тоже рисунок), для которых всё уже написано и сделано, и в которых каждый компонент "вещь в себе".
Вот и для меня этот рисунок из многоугольников по сути целая интерактивная панель, работать с которой (в части кода) гораздо удобнее если каждый элемент - это компонент. Но это не отменяет возможности работы с ней, как с рисунком.
3 сен 19, 20:03    [21962838]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
asviridenkov
Member

Откуда:
Сообщений: 3955
Андрей Игоревич,

Никто не говорит отказываться от объектной модели, просто не делайте эти объекты компонентами дельфи.
Опишите свой класс с методами отрисовки, отработки событий и.т.д, а далее делайте класс контейнер который будет обрабатывать массив объектов этих классов, вызывая отрисовку и передавая события.
3 сен 19, 20:46    [21962856]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
DimaBr
Member

Откуда:
Сообщений: 11356
+
TDrawObject = class
  private
    fCanvas: TCanvas; // канвас, на котором будем рисовать (или на панели или на движущемся PaintBox)
    fBounds: TRect;
  public
    procedure Draw(R: TRect); virtual;abstract;
    property Bounds: TRect read fBounds write fBounds;
end;

TArrow = class(TDrawObject)
  private
    fPenSize: integer;
  public
    procedure Draw(R: TRect);override;
    property PenSize: integer read fPenSize write fPenSize;
end;

THexagon = class(TDrawObject)
  private
    fArrow: TArrow; // стрелка к фигуре
    fText1: string;
    fText2: string;
  public
    procedure Draw(R: TRect);override;
    property Text1: string read fText1 write fText1;
    property Text2: string read fText2 write fText2;
end;

TDrawPanel = class(TPanel)
  private
    fHexList: TList;  // список всех фигур
    fMoveHex, fMoveArrow: TPaintBox; // эти Боксы для передвижения
    fHex: THexagon; // указатель на ту фигуру которую двигаем
    xHex,yHex,xArrow,yArrow: integer;
    procedure DoPaintHex(Sender: TObject);
    procedure DoPaintArrow(Sender: TObject);
  public
    procedure Paint;override;
    constructor Create(AOwner: TComponent);override;
    destructor Destroy; override;
    function FindHexagon(X,Y: integer): THexagon;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
end;

// отрисовка панели
procedure TDrawPanel.Paint;
var i: integer;
begin
  inherited;
// рисуем все фигуры
  for i := 0 to fHexList.Count-1 do THexagon(fHexList[i]).Draw(THexagon(fHexList[i]).Bounds);
// а затем рисуем все стрелки
  for i := 0 to fHexList.Count-1 do THexagon(fHexList[i]).fArrow.Draw(THexagon(fHexList[i]).fArrow.Bounds);
end;


Картинка с другого сайта.

Сообщение было отредактировано: 3 сен 19, 21:20
3 сен 19, 21:18    [21962869]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
DimaBr
+
TDrawObject = class
  private
    fCanvas: TCanvas; // канвас, на котором будем рисовать (или на панели или на движущемся PaintBox)
    fBounds: TRect;
  public
    procedure Draw(R: TRect); virtual;abstract;
    property Bounds: TRect read fBounds write fBounds;
end;

TArrow = class(TDrawObject)
  private
    fPenSize: integer;
  public
    procedure Draw(R: TRect);override;
    property PenSize: integer read fPenSize write fPenSize;
end;

THexagon = class(TDrawObject)
  private
    fArrow: TArrow; // стрелка к фигуре
    fText1: string;
    fText2: string;
  public
    procedure Draw(R: TRect);override;
    property Text1: string read fText1 write fText1;
    property Text2: string read fText2 write fText2;
end;

TDrawPanel = class(TPanel)
  private
    fHexList: TList;  // список всех фигур
    fMoveHex, fMoveArrow: TPaintBox; // эти Боксы для передвижения
    fHex: THexagon; // указатель на ту фигуру которую двигаем
    xHex,yHex,xArrow,yArrow: integer;
    procedure DoPaintHex(Sender: TObject);
    procedure DoPaintArrow(Sender: TObject);
  public
    procedure Paint;override;
    constructor Create(AOwner: TComponent);override;
    destructor Destroy; override;
    function FindHexagon(X,Y: integer): THexagon;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
end;

// отрисовка панели
procedure TDrawPanel.Paint;
var i: integer;
begin
  inherited;
// рисуем все фигуры
  for i := 0 to fHexList.Count-1 do THexagon(fHexList[i]).Draw(THexagon(fHexList[i]).Bounds);
// а затем рисуем все стрелки
  for i := 0 to fHexList.Count-1 do THexagon(fHexList[i]).fArrow.Draw(THexagon(fHexList[i]).fArrow.Bounds);
end;


+
Картинка с другого сайта.

В принципе рабоче, хотя уже почти то же самое, что и было изначально :). Ладно, видимо только так можно.
3 сен 19, 21:36    [21962877]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Наконец появилось свободное время поковыряться. В принципе всё что хотел изначально - сделал. Не так просто в коде как с панельками, но пойдет. Не уверен, конечно, в своих решения, но, вроде, работает :). От лейблов пришлось отказаться, всё-таки 500 штук сильно долго рисуются (0.2-0.3 секунды).
Единственно Хинты не совсем идеально работают. Вывод Хинта привязал к MouseMove (если попал в многоугольник то..., если в шестиграннике попал на текст, то..). Но, видимо, так как всё один компонент - само не перерисовывалось (хотя в статусбаре при присвоении менялось сразу), пришлось выводить через Application.ActivateHint(), но он мгновенно рисуется при наведении. В принципе и так неплохо, может даже и лучше.

В принципе по алгоритмам вопросов много (часто кажется, что как-то неправильно сделал), но, наверное, наглеть не стоит с вопросами. Всем просто огромнейшее спасибо.
Картинка с другого сайта.
13 сен 19, 16:26    [21970531]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
mkr
Member

Откуда: Беларусь, Брест
Сообщений: 196
Андрей Игоревич,
визуально - круто.
бросайте исходники демки на github, может кто и глянет.
16 сен 19, 10:10    [21971374]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
Такой вопрос возник. Есть панель, на основании делаю наследника с нужными мне особенностями, пусть будет ChangingPanel (панель с возможностью изменения размеров + рамка + иконка указателя) и на основании неё уже делаю наследника с нужным содержимым панели - пусть будет LegendPanel.
Сложность в чём, я хотел бы рисовать рамку в ChangingPanel (дабы в наследниках уже не думать об этом), а в наследнике рисовать уже то, что мне нужно.
Делал так:
В ChangingPanel и LegendPanel:
 procedure Paint; override;

В ChangingPanel
procedure LegendPanel.Paint;
Begin
 //рисую рамку
end;

в LegendPanel уже
procedure LegendPanel.Paint;
Begin
  inherited;
  //рисую всякое
end;


но Inherited вызывает Paint изначальной Панели, а не ChangingPanel. Почему?

(по факту рисую посложнее, на панели - paitbox с отступами от границ для рамки и везде использую буферный канвас который в конце процедуры копирую).

Для наглядности, рисую легенду.

Ну и в принципе, есть ли более простые способы реализовать показанное на гифке, сейчас я рамку вообще в ручную рису (прямоугольник + 4 прямоугольника по углам, перемещение через ReleaseCapture; perform(WM_SysCommand, $F0.., 0) ну и тому подобное ), может уже всё давно готовое есть и я кривой велосипед изобретаю?

Картинка с другого сайта.
17 окт 19, 22:18    [21996961]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
А, и ещё хотел спросить, можно ли сделать, что бы процедура/функция или свойство было доступно только для потомка (не глубже), а уже для основной программы всё было недоступно, кажется где-то я что-то такое видел.
И можно ли вообще сделать так же, но для родителя? Чтоб потомок имел доступ к свойству родителя (пусть через parent.property), и никто более. Просто ну очень сложно мне продумать логику так, чтоб всё в private было и писать для каждой фигни property тоже тяжко. А всё public как-то неправильно.
17 окт 19, 22:25    [21996962]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
ёёёёё
Member

Откуда:
Сообщений: 1526
Автар, http://docwiki.embarcadero.com/RADStudio/Rio/en/Methods_(Delphi)#Final_Methods
17 окт 19, 22:28    [21996963]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 2219
Андрей Игоревич, ты это собираешься продавать программистам? Если нет - не парься над тем что неважно. Главное чтоб тебе было всё ясно-понятно и легко было поддерживать. Культура программирования хорошо оттачивается в командах, но это отдельная песня. Лучше найми дизайнера, а то в цветовой каше глаза сломаешь, хрен прочтешь половину текста
18 окт 19, 14:09    [21997443]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
alekcvp
Member

Откуда:
Сообщений: 1680
Андрей Игоревич
А, и ещё хотел спросить, можно ли сделать, что бы процедура/функция или свойство было доступно только для потомка (не глубже), а уже для основной программы всё было недоступно, кажется где-то я что-то такое видел.

strict protected?
18 окт 19, 16:36    [21997587]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
ёёёёё
Member

Откуда:
Сообщений: 1526
alekcvp
Андрей Игоревич
А, и ещё хотел спросить, можно ли сделать, что бы процедура/функция или свойство было доступно только для потомка (не глубже), а уже для основной программы всё было недоступно, кажется где-то я что-то такое видел.

strict protected?

Из другой оперы, немного.
18 окт 19, 17:27    [21997625]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
ёёёёё
Автар, http://docwiki.embarcadero.com/RADStudio/Rio/en/Methods_(Delphi)#Final_Methods

Слегка не понял. Да и на 7ке, вроде, не работает, как я понимаю. Но поизучаю поподробнее.

white_nigger
Андрей Игоревич, ты это собираешься продавать программистам? Если нет - не парься над тем что неважно. Главное чтоб тебе было всё ясно-понятно и легко было поддерживать. Культура программирования хорошо оттачивается в командах, но это отдельная песня. Лучше найми дизайнера, а то в цветовой каше глаза сломаешь, хрен прочтешь половину текста


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

white_nigger
Лучше найми дизайнера
ха-ха :(

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

alekcvp
Андрей Игоревич
А, и ещё хотел спросить, можно ли сделать, что бы процедура/функция или свойство было доступно только для потомка (не глубже), а уже для основной программы всё было недоступно, кажется где-то я что-то такое видел.

strict protected?

У меня и так каждый компонент в отдельном модуле, думаю это избыточно.
18 окт 19, 18:17    [21997682]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
ёёёёё
Member

Откуда:
Сообщений: 1526
Андрей Игоревич
ёёёёё
Автар, http://docwiki.embarcadero.com/RADStudio/Rio/en/Methods_(Delphi)#Final_Methods

Слегка не понял. Да и на 7ке, вроде, не работает, как я понимаю. Но поизучаю поподробнее.
...

"Запечатывание" виртуального метода, запрещающее перекрытие в наследнике.
Да, в 7-ке не работает.
18 окт 19, 18:19    [21997685]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
ёёёёё
Member

Откуда:
Сообщений: 1526
Андрей Игоревич
А, и ещё хотел спросить, можно ли сделать, что бы процедура/функция или свойство было доступно только для потомка (не глубже), а уже для основной программы всё было недоступно, кажется где-то я что-то такое видел...

Может быть, тебе protected члены нужны? http://www.delphibasics.ru/Protected.php
protected члены класса доступны в наследниках, но из других объектов - недоступны. Ну, кроме тех, которые в том же модуле (юните) находятся.
18 окт 19, 18:24    [21997688]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
alekcvp
Member

Откуда:
Сообщений: 1680
ёёёёё
alekcvp
strict protected?

Из другой оперы, немного.

ёёёёё
Может быть, тебе protected члены нужны? http://www.delphibasics.ru/Protected.php

WAT? O_o
18 окт 19, 18:39    [21997698]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
ёёёёё
Андрей Игоревич
А, и ещё хотел спросить, можно ли сделать, что бы процедура/функция или свойство было доступно только для потомка (не глубже), а уже для основной программы всё было недоступно, кажется где-то я что-то такое видел...

Может быть, тебе protected члены нужны? http://www.delphibasics.ru/Protected.php
protected члены класса доступны в наследниках, но из других объектов - недоступны. Ну, кроме тех, которые в том же модуле (юните) находятся.

Я вот всегда туплю в определении "наследник".

TClassB = class (TClassA)
   ClassD: TClassD;
End;

Вопрос - наследник/потомок это ClassB от ClassA или ClassD потомок от ClassB? Или тут более хитрая терминология. Просто в интернете и то и то видел как называют потомком.
В первом случае protected доступны, во втором нет.
18 окт 19, 18:55    [21997713]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
ёёёёё
Member

Откуда:
Сообщений: 1526
Андрей Игоревич
ёёёёё
пропущено...

Может быть, тебе protected члены нужны? http://www.delphibasics.ru/Protected.php
protected члены класса доступны в наследниках, но из других объектов - недоступны. Ну, кроме тех, которые в том же модуле (юните) находятся.

Я вот всегда туплю в определении "наследник".

TClassB = class (TClassA)
   ClassD: TClassD;
End;

Вопрос - наследник/потомок это ClassB от ClassA или ClassD потомок от ClassB? Или тут более хитрая терминология. Просто в интернете и то и то видел как называют потомком.
В первом случае protected доступны, во втором нет.


Класс TClassA - родитель класса TClassВ.
Класс TClassB - наследник класса TClassА.
Класс TClassB связан с классом TClassА отношением "наследование".

Объекта класса TClassD агрегирован в класс TClassB.
18 окт 19, 19:01    [21997715]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 244
ёёёёё
класса TClassD агрегирован в класс TClassB.

Жуть, первый раз вижу такой термин применительно к Delphi.
В общем я писал про доступность из агрегированных классов к процедурам ээ...ээ.. агрегатора?
И наоборот.

Хотя основной мой вопрос был, почему Inherites проскакивало через несколько наследников(тут всё корректно) сразу к Panel, может ли быть это связано с owner, который я не переприсваивал у потомков (обходясь parent).
18 окт 19, 19:12    [21997723]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
ёёёёё
Member

Откуда:
Сообщений: 1526
Андрей Игоревич
...почему Inherites проскакивало через несколько наследников...

Не было такого, "мамой клянусь".
18 окт 19, 19:23    [21997733]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 2219
В общем случае мне больше нравятся термины: "унаследован от", "предок", "наследник"
19 окт 19, 22:27    [21998107]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 2219
Андрей Игоревич
Ну так, в рамках развития потихоньку приучаю себя к культуре :), когда программа разрастается до очень больших размеров это очень помогает. Ну и очень помогает, когда свой код читаешь через некоторое время.
Это все жалкое подобие развитию при работе в команде - регулярное code review с обсуждением спорных мест и решений, плюс сразу можно оценить качество кода и стоимость поддержки. Если твой код будет прозрачен для других программистов - значит движение идет в правильном направлении.
19 окт 19, 22:37    [21998109]     Ответить | Цитировать Сообщить модератору
 Re: Создание компонента сложной формы (аккуратной контурной стрелки).  [new]
alekcvp
Member

Откуда:
Сообщений: 1680
Андрей Игоревич
Хотя основной мой вопрос был, почему Inherites проскакивало через несколько наследников(тут всё корректно) сразу к Panel

Единственное, что мне приходит в голову - это то, что где-то в этой цепочке у переопределения методов было пропущено слово override (при этом должно быть предупреждение от компилятора), в результате inherites обращался к последнему переопределённому методу, а не к этим.
20 окт 19, 13:18    [21998248]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: 1 2 3 4      [все]
Все форумы / Delphi Ответить