Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Графики и прозрачность [D7, Win95/98, WinXP]

LLL © (2003-12-26 00:39:00)
Несколько вопросов.
Первый - если есть готовый компонент или прога вывода графиков, то буду благодарен.
Второй - Если ставить свойство Transparent в TImage true, то в ХР не работает (остаются белые поля, которые перекрывают друг друга), а в 98 - работает.
Как изменить "порядок" элемента на странице? ТОесть что будет сверху и перекрывать то, что за ним...
Третье - как из 5 компонентов TImage (размер одинаковый) наложить рисунки и сохранить в файл?

Всем спасибо

LLL (2004-01-07 05:44:00) [1]
Ну кто-нибудь!

LLL (2003-12-30 01:30:00) [2]
А всё-таки неясным остаётся то, что в ХР прозрачность не работает, а в той же проге под 98 - работает...

LLL (2003-12-29 02:09:00) [3]
Тогда прога с исходниками... Так точнее?

Думкин (2003-12-28 06:47:00) [4]

> [10] LLL (27.12.03 16:44)

А я и не смеюсь. Но так и есть, еще можно MathCad, Mapple,etc.
Я не вижу противоречия с :

> > Первый - если есть готовый компонент или прогавывода
> графиков, то буду благодарен.

LLL (2003-12-27 16:44:00) [5]
to Думкин
Не смешно

to ЮЮ
Thanks

Думкин (2003-12-27 08:17:00) [6]

> Графики и прозрачность
> LLL (26.12.03 00:39)
> Первый - если есть готовый компонент или прога вывода графиков,
> то буду благодарен.

Excel, - не за что.

ЮЮ (2003-12-27 08:12:00) [7]
>но менять - кто кого перекрывает
BringToFront, SendToBack

LLL (2003-12-26 22:09:00) [8]

> А зачем там парсер?

Чтобы по формуле рассчитывать позицию y(x)

> использовать Visible кнопок

Я имею ввиду, чтобы были видны обе (частичное перекрывание), но менять - кто кого перекрывает...

> Если ты сам рисуешь на канве то сам и заботься о прозрачности
> CopyStyle, Bruch.Style...

Я рисую попиксельно.

> Да еще у Bitmap есть
> Transparent, TransParentColor см Help

Чё за TBitmap? Там Transparent есть, а TransParentColor - нету

Babay (2003-12-26 10:14:00) [9]
Да еще у Bitmap есть
Transparent, TransParentColor см Help

Babay (2003-12-26 10:14:00) [10]
Да еще у Bitmap есть
Transparent, TransParentColor см Help

Babay (2003-12-26 09:54:00) [11]
-> Есди перекрыть две кнопки например, то на форме они всегда будут отображаться так, как созданы... можно это изменить?(динамически)
использовать Visible кнопок

-> при включении прозрачности и выводе рисунка в TImage остаются белые непрозрачные

Если ты сам рисуешь на канве то сам и заботься о прозрачности
CopyStyle, Bruch.Style...

TUser (2003-12-26 08:54:00) [12]
1. TChart строит вполне нормальные графики. А зачем там парсер?
Или вот форуме реклама висит - компонент TEasyGraph
http://delphi.mastak.ru/cgi-bin/news.pl?showone=1065773141

LLL (2003-12-26 08:49:00) [13]

> 1) Готовый компонет в Д это TChart (Additional), ChartFX,
> VTChart (ActiveX).

А разве там можно нормальные графики строить. Тем более парсера там нету

> 2) Незаню ничего не перекрывается все показывает нормально.

Я имею ввиду, что при включении прозрачности и выводе рисунка в TImage остаются белые непрозрачные поля.
А насчёт перекрывания. Есди перекрыть две кнопки например, то на форме они всегда будут отображаться так, как созданы... можно это изменить?(динамически)

Babay (2003-12-26 05:04:00) [14]
1) Готовый компонет в Д это TChart (Additional), ChartFX, VTChart (ActiveX).

2) Незаню ничего не перекрывается все показывает нормально.

3,4) ставим на форму 5 имажей всем транспорент в труе 1-й ставим отдельно, остальные 4 частично накладываем друг на друга, закидываем в них картинки с одинаковым цветом который будет прозрачным. (Напрмер картинки для бутонов которые в стандартной поставке)

procedure TForm1.btnCopyImageClick(Sender: TObject);
begin
// Накладываем все имеджи в первый
Image1.Canvas.Draw(0,0,Image1.Picture.Graphic);
Image1.Canvas.Draw(0,0,Image2.Picture.Graphic);
Image1.Canvas.Draw(0,0,Image3.Picture.Graphic);
Image1.Canvas.Draw(0,0,Image4.Picture.Graphic);
Image1.Canvas.Draw(0,0,Image5.Picture.Graphic);
// проверка результата выводим прямо на форму для проверки
Canvas.Draw(0,0,Image1.Picture.Graphic);
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
Image1.Picture.SaveToFile('c:\m.bmp');
end;

procedure TForm1.btnPositionClick(Sender: TObject);
begin
Image5.BringToFront;// это будет самая нижняя
Image4.BringToFront;
Image3.BringToFront;
Image2.BringToFront;// это будет самая верхняя
// Image1 не брал
// см. так же SendToBack
end;

ну наверно вот так...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »