вопрос о модуле 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 пикселя в форме нарисовать по координатам и все мне, этого будет по горло хватать :)
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
|