Равен решетка на формата
Здравейте експерти!
Искам да се направи мрежа от формата (бара, по какво конци), нещо като в Form Designer на Delphi в един момент, но е по-добре на окото. Тя би трябвало да се направи на тази форма / тава / още тогава, също и отнемат дизайнер на неговите компоненти (аз просто TGraphicControl наследници). Как и къде искате да се направи мрежа, и (това е вярно, е друг въпрос), как да се направи такъв компонент, така че след това го плъзнете мишката?
Как и къде да се направи мрежата
Paint третира наследник TGraphicControl, и не забравяйте свързване на подравняване. (Половин час, не повече)
как да се направи компонент, за да го плъзнете мишката
всеки наследник от TControl.
как да се направи компонент, за да го плъзнете мишката
всеки наследник от TControl.
че трябва да се работи? какво послание? и как?
obscherekomenduemoe mousedown, releasecapture, self.perform (нещо там) е работил по tbutton, но не и наследник TGraphicControl
Тъмно Hunter (01/20/04 20:17) [2]
че трябва да се работи? какво послание? и как?
DragDrop чувал за такъв механизъм?
Продължавайки темата:
Влезте във форма, наследник й TCustomPanel този размер на окото на панела е много по-голям от размера на формата. превъртане се появяват, и това е чудесно.
Но: окото панел е съставен само сложи компонент конец престава да бъде изготвен първоначално невидима част от мрежата в панела, само на левия горен ъгъл
800 600 (в моя случай такова разрешение). На други места по обичайния сив панел :(
как да се направи мрежа на целия панел?
Препишете за вашия панел OnPaint събитие - което ще се направи мрежа (от другата страна на панела).
Пиша манипулатор OnPaint:
Brush.Color: = FGridBackColor;
Brush.Style: = bsSolid;
Правоъгълник (Rect);
ако след това FShowGrid започне
Brush.Color: = FGridForeColor;
Brush.Style: = bsCross;
Правоъгълник (Rect);
край
решетка е съставено изцяло.
Щандове върху него във видимата област първоначално постави например TLabel (той TGraphicControl наследник), или ми компонент (също от TGraphicControl) решетка е съставен само върху тази част от лявата горната част, с размерите на екрана.
размери панел остават същите като те са били (4000 * 3000).
Това е бъг в windose или никого. )
Coop сграда за неруски предложения
А къде е мрежата - Виждам само две правоъгълник и неполярни.
ми мисли:
Първият попълнете твърдо, цвят FGridBackColor фон (моя защитен член Панел клас);
второ, при условие, че е необходимо да се направи нетната - цветния модел засенчване bsCross FGridForeColor (подобно);
Край;
Обяснявайки мнението си за ситуацията, моля
Аз не знам, че имате, но аз се опитвам да се създаде компонент
употреби
Windows, съобщения, SysUtils, Уроци, органи за управление, ExtCtrls Graphics;
Процедура GrPanel.Paint;
започвам
Наследен Paint;
С Canvas Do
започвам
Brush.Style: = bsSolid;
Brush.Color: = clBtnFace;
FillRect (ClientRect);
Brush.Style: = bsCross;
Brush.Color: = clRed;
Правоъгълник (ClientRect);
Край;
Край;
Процедура регистър;
започвам
RegisterComponents ( "Стандарт", [GrPanel]);
Край;
Сложих го във форма и в ScrollBox и се добавя към етикета на бутон панел - докато превъртате през целия нормален мрежа е видима за целия панел.
Свързани статии