Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];

Вниз

Уважаемые Доны подкажите пожалуйста как можно сделать   Найти похожие ветки 

 
Новичок1 ©   (2005-09-16 11:09) [0]

поле формы овального размера или круглого?


 
TUser ©   (2005-09-16 11:14) [1]

CreateEllipticRgn
SetWindowRgn


 
kblc ©   (2005-09-16 11:19) [2]

Самый простой:
Бросаешь на форму TShape, делаешь её любой формы,
Свойства формы
 TransparentColor:=TRUE;
 TransparentColorValue:=clBtnFace;


 
Новичок1 ©   (2005-09-16 11:22) [3]

Это нужно прописать в процедуре procedure TForm1.FormCreate(Sender: TObject);?


 
TUser ©   (2005-09-16 11:36) [4]

> Самый простой:

Самое просто - вынуть из JEDI соотв. компонент. И он это сделает через регионы. Работать будет помедленнее, чем руками [1], но пользователь этого не заметит.


 
Новичок1 ©   (2005-09-16 11:37) [5]

Не могу найти где находится Tshare на какой закладке?


 
kblc ©   (2005-09-16 11:43) [6]

Закладка: Additional
там Shape (ExtCtrls)


 
Новичок1 ©   (2005-09-16 12:01) [7]

Все сделал , овал получил , но он находится внутри формы , а сама форма прямоугольная
Установки сделал
TransparentColor:=TRUE;
TransparentColorValue:=clBtnFace;
Может в свойстве color еще поправит.


 
Zeqfreed ©   (2005-09-16 12:35) [8]

Новичок1 ©   (16.09.05 12:01) [7]
В [1] всё сказано. Или у тебя "стандартный" вариант - справки нет/по английски не читаем-с?


 
ocean ©   (2005-09-16 12:51) [9]

В дополнение к абсолютно верному [1] дам примерчик. Он создает прозрачную форму, но при замене CreateRectRgn на CreateEllipticRgn или какой-то другой форма будет какая надо:

unit unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;
type
 TForm1 = class(TForm)
 Button1: TButton;
 Button2: TButton;
   // это просто кнопка на форме - для демонстрации
 protected
   procedure RebuildWindowRgn;
   procedure Resize; override;
 public
   constructor Create(AOwner: TComponent); override;
 end;
var
 Form1 : TForm1;
implementation
// ресурс этой формы
{$R *.DFM}

{ Прозрачная форма }
constructor TForm1.Create(AOwner: TComponent);
begin
 inherited;
 // убираем сколлбары, чтобы не мешались
 // при изменении размеров формы
 HorzScrollBar.Visible:= False;
 VertScrollBar.Visible:= False;
 // строим новый регион
 RebuildWindowRgn;
end;

procedure TForm1.Resize;
begin
 inherited;
 // строим новый регион
 RebuildWindowRgn;
end;

procedure TForm1.RebuildWindowRgn;
var
 FullRgn, Rgn: THandle;
 ClientX, ClientY, I: Integer;
begin
 // определяем относительные координаты клиенской части
 ClientX:= (Width - ClientWidth) div 2;
 ClientY:= Height - ClientHeight - ClientX;
 // создаем регион для всей формы
 FullRgn:= CreateRectRgn(0, 0, Width, Height);
 // создаем регион для клиентской части формы
 // и вычитаем его из FullRgn
 Rgn:= CreateRectRgn(ClientX, ClientY, ClientX + ClientWidth, ClientY +
ClientHeight);
 CombineRgn(FullRgn, FullRgn, Rgn, rgn_Diff);
 // теперь добавляем к FullRgn регионы каждого контрольного элемента
 for I:= 0 to ControlCount -1 do
   with Controls[I] do begin
     Rgn:= CreateRectRgn(ClientX + Left, ClientY + Top, ClientX + Left +
Width, ClientY + Top + Height);
     CombineRgn(FullRgn, FullRgn, Rgn, rgn_Or);
   end;
 // устанавливаем новый регион окна
 SetWindowRgn(Handle, FullRgn, True);
end;
end.


 
Новичок1 ©   (2005-09-16 12:57) [10]

Сенькс, получилось!


 
Defunct ©   (2005-09-16 13:08) [11]

Новичок1 ©   (16.09.05 12:57) [10]

Рады за Вас, уважаемый Дон! ;>



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.015 c
11-1107935104
ser_ker
2005-02-09 10:45
2005.10.09
Работа с БД через ODBC


14-1127041601
Verner
2005-09-18 15:06
2005.10.09
Вопрос к знатокам математики


14-1126961781
astronom
2005-09-17 16:56
2005.10.09
Преобразование набора фотографий в 3Д модель.


1-1127137241
all
2005-09-19 17:40
2005.10.09
подскажите как узнать список папок


1-1126706465
Mefodiy
2005-09-14 18:01
2005.10.09
Поиск слов в Word из Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский