|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
различные графические фигуры посредством компоненты класса TShape
На форме с помощью кнопочного меню рисовать
...не совсем понимаю, что такое кнопочное меню...я зделал просто кнопки по нажатию которых меняется форма Shape, но она не меняется...может есть у кого простой код изменяющий форму...а то в гугле всё изменения цвета, ширины и т.д. |
#2
|
||||
|
||||
TShape.Shape
Type TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle); Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Цитата:
Код:
procedure TForm3.Button2Click(Sender: TObject); begin TShape.Shape := stRectangle; end; |
#4
|
||||
|
||||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Shape1: TShape; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Shape:=stEllipse; end; end. Пишу программы за еду. __________________ |
#5
|
|||
|
|||
СПАСИБО! БЛИН...всё так легко было...только мучался(((
|