Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.27;
Скачать: CL | DM;

Вниз

нужно сделать регион из слова, кто знает как   Найти похожие ветки 

 
Sanad   (2003-11-05 09:31) [0]

нужно сделать регион из слова, кто знает как


 
Жук ©   (2003-11-05 10:11) [1]

С этим к Vuk"у (c) ЮЗ
:-)))


 
wicked ©   (2003-11-05 10:38) [2]

TBitmap + DrawText + BitmapToRegion (найти в интернете)...


 
reticon ©   (2003-11-05 11:22) [3]

...

var
Bitmap1: TBitmap;

...

procedure CropWindow(Handle: HWnd; Bitmap:TBitmap);
var
hrgn, hrgn1 : integer;
hdc : integer;
x, y : integer;
Color : TColor;
begin
Color := Bitmap.Canvas.Pixels[ 0, 0 ];
hdc := GetDC( Handle );
hrgn := CreateRectRgn( 0, 0, Bitmap.Width, Bitmap.Height );
for x := 1 to Bitmap.Width do
for y := 1 to Bitmap.Height do
if Bitmap.Canvas.Pixels[ x - 1, y - 1 ] = Color then
begin
hrgn1 := CreateRectRgn( x - 1, y - 1, x, y);
CombineRgn( hrgn, hrgn, hrgn1, RGN_DIFF );
DeleteObject( hrgn1 );
end;
SetWindowRgn( Handle, hrgn, true );
ReleaseDC( Handle, hdc);
end;

procedure UncropWindow(Handle: HWnd; Bitmap:TBitmap);
var
hrgn : integer;
hdc : integer;
begin
hdc := GetDC( Handle );
hrgn := CreateRectRgn( 0, 0, Bitmap.Width , Bitmap.Height );
SetWindowRgn( Handle, hrgn, true );
ReleaseDC( Handle, hdc );
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Bitmap1.Width:=Label1.Width;
Bitmap1.Height:=Label1.Height;
UnCropWindow(Label1.Handle, Bitmap1);
Bitmap1.Canvas.TextOut(0, 0, Label1.Caption);
CropWindow(Label1.Handle, Bitmap1);
end;


 
reticon ©   (2003-11-05 11:22) [4]

...

var
Bitmap1: TBitmap;

...

procedure CropWindow(Handle: HWnd; Bitmap:TBitmap);
var
hrgn, hrgn1 : integer;
hdc : integer;
x, y : integer;
Color : TColor;
begin
Color := Bitmap.Canvas.Pixels[ 0, 0 ];
hdc := GetDC( Handle );
hrgn := CreateRectRgn( 0, 0, Bitmap.Width, Bitmap.Height );
for x := 1 to Bitmap.Width do
for y := 1 to Bitmap.Height do
if Bitmap.Canvas.Pixels[ x - 1, y - 1 ] = Color then
begin
hrgn1 := CreateRectRgn( x - 1, y - 1, x, y);
CombineRgn( hrgn, hrgn, hrgn1, RGN_DIFF );
DeleteObject( hrgn1 );
end;
SetWindowRgn( Handle, hrgn, true );
ReleaseDC( Handle, hdc);
end;

procedure UncropWindow(Handle: HWnd; Bitmap:TBitmap);
var
hrgn : integer;
hdc : integer;
begin
hdc := GetDC( Handle );
hrgn := CreateRectRgn( 0, 0, Bitmap.Width , Bitmap.Height );
SetWindowRgn( Handle, hrgn, true );
ReleaseDC( Handle, hdc );
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Bitmap1.Width:=Label1.Width;
Bitmap1.Height:=Label1.Height;
UnCropWindow(Label1.Handle, Bitmap1);
Bitmap1.Canvas.TextOut(0, 0, Label1.Caption);
CropWindow(Label1.Handle, Bitmap1);
end;



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

Текущий архив: 2003.11.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
6-90049
Novinkij
2003-10-01 08:25
2003.11.27
каккое соединение ?


1-89865
Pirate
2003-11-16 09:24
2003.11.27
Client-Server, Socket, Port etc.


1-89860
Сергей Петров
2003-11-16 04:55
2003.11.27
Как открыть файл, зарегистрированный в системе (mp3,m3u,avi,...)


1-89909
UDS
2003-11-13 21:08
2003.11.27
Вызов процедуры из другого окна.


8-90012
zoner2
2003-07-31 22:32
2003.11.27
3D