Показать сообщение отдельно
Старый 31.12.2007, 00:56   #1
Пользователь
 
Аватар для skymanrus
 
Регистрация: 28.12.2007
Сообщений: 54
Сказал Спасибо: 0
Имеет 40 спасибок в 10 сообщенях
skymanrus пока неопределено
Смех вопрос о модуле Graphics!!!

вопрос следующий:
я написал скрипт бота который бегает в кружке и мочит всех мобов в этом круге и подберает дроп при этом не бегает за обычными нпц типа гуардов и не цепляется к игрокам

вот хочется ещё видеть всех мобов которые добавленны в базу данных чтоб они отображались наглядно в форме
по типу старого доброго волкера

не подскажете как создать форму и нарисовать в ней точку или загрузить в форму картинку??

как создать я понял
f := TForm.Create(nil);
f.Caption := 'Test it!';
f.BorderStyle := bsDialog;
f.Position := poScreenCenter;

я чесно пытался там мудрить как то но у меня то ошибку выдаёт то вообще ничего не происходит :(
как Из модуля Graphics чет вытащить и нарисовать с помощью координат точку в форме или картинку туда грузануть?
подскажите плиз!

Добавлено спустя 8 часов 27 минут 21 секунду:
люди ну подскажите плиз !!
я весь инет облазил в поисках примеров
ничего нету!

в документации написанно только

Из модуля Graphics:

TFont
TPen
TBrush
TCanvas
procedure TCanvas.Draw(X, Y: Integer; Graphic: TGraphic)
procedure TCanvas.Ellipse(X1, Y1, X2, Y2: Integer)
procedure TCanvas.LineTo(X, Y: Integer)
procedure TCanvas.MoveTo(X, Y: Integer)
procedure TCanvas.Rectangle(X1, Y1, X2, Y2: Integer)
procedure TCanvas.RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer)
procedure TCanvas.StretchDraw(X1, Y1, X2, Y2: Integer; Graphic: TGraphic)
function TCanvas.TextHeight(const Text: string): Integer
procedure TCanvas.TextOut(X, Y: Integer; const Text: string)
function TCanvas.TextWidth(const Text: string): Integer
property TCanvas.Pixels

TGraphic
procedure TGraphic.LoadFromFile(const Filename: string)
procedure TGraphic.SaveToFile(const Filename: string)
property TGraphic.Height
property TGraphic.Width

TMetafile
TMetafileCanvas
TBitmap
property TBitmap.Canvas

type TFontStyles
type TFontPitch
type TPenStyle
type TPenMode
type TBrushStyle

и НИ ОДНОГО ПРИМЕРА ИСПОЛЬЗОВАНИЯ ЭТОГО МОДУЛЯ НЕТУ !!!
ну покажите хоть 1 примерчик !!! как квадратик размеравми 2 на 2 пикселя в форме нарисовать по координатам и все мне, этого будет по горло хватать :)
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
skymanrus вне форума   Ответить с цитированием