Delphi

Executor

MAD[GNU] писал(а):Чем отличается virtual от dinamic?

Хелпы читать нынче не модно?

Virtual Versus Dynamic

Virtual and dynamic methods are semantically equivalent. They differ only in the implementation of method-call dispatching at runtime. Virtual methods optimize for speed, while dynamic methods optimize for code size.

In general, virtual methods are the most efficient way to implement polymorphic behavior. Dynamic methods are useful when a base class declares many overridable methods which are inherited by many descendant classes in an application, but only occasionally overridden.

Note: Only use dynamic methods if there is a clear, observable benefit. Generally, use virtual methods.

MAD[GNU]

У меня из всего только первая строчка написана.

MAD[GNU]

Пставил Архитектора (Delphi 2005). Ну ничего, с пивом покатит... ВОт только проблемка: теперь он все сорсы не видит, если раньше можно было вызвать CTRL-шелчком сорс-код какой-то функции процедуры перем и т.д. то теперь он говорит, мол: нифига не нашел windows.pas (пример). Как это лечится? РОаньше была строчка, вроде: Path to Sourse, в Delphi 2005 ее нету

_predator_

BATMEN писал(а):подскажите кто-нибудб, как в Delphi вставить картинку на форму. Например у меня имеется bmp рисунок, мне надо чтобы он был на форме.

используй компонент image(additional) св-во PICTURE

BATMEN

_predator_ писал(а):
BATMEN писал(а):подскажите кто-нибудб, как в Delphi вставить картинку на форму. Например у меня имеется bmp рисунок, мне надо чтобы он был на форме.
используй компонент image(additional) св-во PICTURE

а, спасибо, правда я уже разобрался. Вроде щас уже соображать там начинаю.

Pink

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if (Sender as TCheckBox).Checked = True then
begin
(Sender as TEdit).Text:= '';
(Sender as TEdit).Enabled:= True;
(Sender as TEdit).Color:= clWindow;
end
else
begin
(Sender as TEdit).Text:= '-----------------';
(Sender as TEdit).Enabled:= False;
(Sender as TEdit).Color:= clBtnFace;
end;
end;

У меня на форме 5 TCheckBox и 5 TEdit, написал процедуру для CheckBox1 и в свойсвах для каждых остальных указал процедуру первого. Теперь как сделать, чтобы для CheckBox выполнялся код выделенный красным для каждого Edit?

XaKer

Wolverine писал(а):Блин, да я это ещё в пелёнках умел, купи литературу по делфе, если такие простые вещи не знаешь, пока сам не поймёш ни чё не получиться

Чо ты так обижаешь новичка? Я тоже так же учился! Хотя у меня была литература! Кстати усли надо то у меня есть в электронном виде парочка классных книжек по Delphi если надо то попросите!

XaKer

Вы чо какойто проект пишете? Чо за прого или игруха?

BATMEN

Я вот как фигней страдаю. Если кто глядеть будет, то отпишитесь здесь если не затруднит:

1. Запускается ли вообще программа, и если не запускается то какая ошибка.
2. Какая видеокарта и драйвер .
3. Сколько fps.

Pink

Pink писал(а):procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if (Sender as TCheckBox).Checked = True then
begin
(Sender as TEdit).Text:= '';
(Sender as TEdit).Enabled:= True;
(Sender as TEdit).Color:= clWindow;
end
else
begin
(Sender as TEdit).Text:= '-----------------';
(Sender as TEdit).Enabled:= False;
(Sender as TEdit).Color:= clBtnFace;
end;
end;

У меня на форме 5 TCheckBox и 5 TEdit, написал процедуру для CheckBox1 и в свойсвах для каждых остальных указал процедуру первого. Теперь как сделать, чтобы для CheckBox выполнялся код выделенный красным для каждого Edit?

Хорошо, тогда как мне написать одну процедуру ==>
--------------------------------------------------------------
procedure TForm1.CheckBoxClick(Sender: TObject);
begin
if CheckBox.Checked = True then
begin
Edit.Text:= '';
Edit.Enabled:= True;
Edit.Color:= clWindow;
end
else
begin
Edit.Text:= '-----------------';
Edit.Enabled:= False;
Edit.Color:= clBtnFace;
end;
end;
--------------------------------------------------------------
которая бы относилась как к CheckBox2 так и к CheckBox5; чтобы не писать их для каждого CheckBox?

BATMEN писал(а):Я вот как фигней страдаю. Если кто глядеть будет, то отпишитесь здесь если не затруднит

Это ты что мутишь?
Эт на чем OpenGL или DirectX, чет я не понял.
Ты што графику на делфях мутишь, вродеж это не на делфях..???

фпс >500, конечно по-разному, 5900/81.98

BATMEN

Это я свою квартиру делаю, щас пока времени свободного нет. (OpenGL Delphi).

Серый

Люди а не подскажете ли как определить координаты курсора ???
Вот положение чтобы изменить его я знаю а вот это я не знаю

NatriXX

Серый писал(а):Люди а не подскажете ли как определить координаты курсора ???
Вот положение чтобы изменить его я знаю а вот это я не знаю

Кхегм... На асме знаю - дома хде-то валяются процедурки... А на Делфях не помню... Блын, если надо, есть полгига учебников и факоф по Делфи...

BATMEN

mouse.CursorPos (типа TPoint);

Pink

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:= 0 to Memo2.Lines.Count - 1 do
Memo1.Lines:= Memo2.Lines;
end;

Почему Memo2 заполняется не полностью, а только первая строчка!?

Э, во первых, у тебя тут заполняется не Memo2, а Memo1.
Во-вторых, ИМХО, т.к. в начале Memo1 пустая, то по индексу к ней обращаться нельзя.
Сделай Memo1.Lines.Add(Memo2.Lines);

И вообще попробуй без цикла
Memo1.Lines:=Memo2.Lines

Pink

Blak-n-Wait писал(а):Э, во первых, у тебя тут заполняется не Memo2, а Memo1.

Оу, ошибся; спасибо!

MAD[GNU]

Blak-n-Wait писал(а):И вообще попробуй без цикла
Memo1.Lines:=Memo2.Lines

ПО-моему так вообще лучше не делать.... ИМХО даже если и не вылетит ошибка readonly (что очень вероятно), то две азных Memo будут ссылаться на один экземпляр TLines, и получится потеря памяти, та, которая до присвоения была в Memo1.Lines

Pink

Почему-то на форму не выводится точка:

...
Form1.Canvas.Pen.Width:= 3;
Form1.Canvas.Pixels[100,100];
...

BATMEN

canvas.pixels[i,j]:=200; 200 - это цвет пиксела.

Pink

BATMEN писал(а):canvas.pixels[i,j]:=200; 200 - это цвет пиксела.

Дело в том, что точка не выводится на форму.

BATMEN

Все выводится, просто она маленькая. Вот так видно :

for i:=100 to 110 do
for j:=100 to 110 do
canvas.Pixels[i,j]:= (j*i) mod $100 ;

Pink

BATMEN писал(а):Все выводится, просто она маленькая. Вот так видно :

for i:=100 to 110 do
for j:=100 to 110 do
canvas.Pixels[i,j]:= (j*i) mod $100 ;

Точно, я только сейчас заметил, что она действительно выводится, ты прав очень мелкаяю Спасибо!

Pink

Как записать такую формулу в программировании:
--| e^1.1+cos(5) |-- (e - экспонента)
пробовал так - exp(ln(1.1 + cos(5))), что-то не то ...