Forms - Aussehen selbst/frei gestalten

Naja das ich sagen kann die frm soll zum beispiel so aussehen:

_________________________________
     |                                |
    --                                --
    |                                   |
    |                                   |
    |                                   |
    --                                --
     |                                |
     ----------------------------------

Nur mal so als beispiel...

ich weiß ein hässliches ascii bild

[ Dieser Beitrag wurde am 03.11.2002 um 20:36 Uhr von Jansen editiert. ]

och verdammt, kann kein ascii bild malen

aber ne form die Oval ist möchte ich machen, und halt wie man das realisieren könnte

Jansen

kann kein ascii bild malen

Geht schon, mussu nur die Code-Tags benutzen.

Zu deiner Frage: du könntest dir zB. bei www.torry.net eine entsprechende Komponente herunterladen, oder du machst dich zum Thema Regions schlau (WinAPI).

hm danke ich guck mal

AndreasW

Hi,
Demo:

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
POINT pts [2];
pts[0].x= 50;
pts[0].y=50;
pts[1].x=100;
pts[1].y=100;
pts[2].x=25;
pts[2].y=100;
// Elipse
HRGN EHandle=CreateEllipticRgn(10,10,300,100);
//poligon
HRGN PHandle=CreatePolygonRgn(pts,3,WINDING);

HDC hdc=GetDC(Form1->Handle);
HBRUSH hbr1=CreateSolidBrush(RGB(255,0,0));
HBRUSH hbr2=CreateSolidBrush(RGB(0,255,0));

FillRgn(hdc,EHandle,hbr1);
FillRgn(hdc,PHandle,hbr2);
ReleaseDC(Form1->Handle,hdc);
}
//---------------------------------------------------------------------------

AndreasW

Hi,

oder vielleicht sowas:

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
POINT pts [2];
pts[0].x= 50;
pts[0].y=50;
pts[1].x=100;
pts[1].y=100;
pts[2].x=25;
pts[2].y=100;
// Elipse
HRGN EHandle=CreateEllipticRgn(10,10,300,100);
//poligon
HRGN PHandle=CreatePolygonRgn(pts,3,WINDING);
HDC hdc=GetDC(Form1->Handle);
HBRUSH hbr1=CreateSolidBrush(RGB(255,0,0));
HBRUSH hbr2=CreateSolidBrush(RGB(0,255,0));
HBRUSH hbr3=CreateSolidBrush(RGB(0,0,255));

FillRgn(hdc,EHandle,hbr1);
FillRgn(hdc,PHandle,hbr2);

FrameRgn(hdc,PHandle,hbr3,5,5); // ein Rand drumerhum zeichen
ReleaseDC(Form1->Handle,hdc);
}
//---------------------------------------------------------------------------

AndreasW

hm,

oder sowas:

POINT pts [2];
pts[0].x= 50;
pts[0].y=50;
pts[1].x=100;
pts[1].y=100;
pts[2].x=25;
pts[2].y=100;
// Elipse
HRGN EHandle=CreateEllipticRgn(10,10,300,100);
//poligon
HRGN PHandle=CreatePolygonRgn(pts,3,WINDING);
HDC hdc=GetDC(Form1->Handle);
HBRUSH hbr1=CreateSolidBrush(RGB(255,0,0));
HBRUSH hbr2=CreateSolidBrush(RGB(0,255,0));
HBRUSH hbr3=CreateSolidBrush(RGB(0,0,255));

CombineRgn(EHandle,EHandle,PHandle,RGN_OR);
FillRgn(hdc,EHandle,hbr1);
FrameRgn(hdc,EHandle,hbr3,5,5);
ReleaseDC(Form1->Handle,hdc);

AndreasW

hm, oder möchtest du dem Formular die Form zuweisen ?

Form1->Color=clBlue;
POINT pts [2];
pts[0].x= 50;
pts[0].y=50;
pts[1].x=100;
pts[1].y=100;
pts[2].x=25;
pts[2].y=100;
// Elipse
HRGN EHandle=CreateEllipticRgn(10,10,300,100);
//poligon
HRGN PHandle=CreatePolygonRgn(pts,3,WINDING);
HDC hdc=GetDC(Form1->Handle);

CombineRgn(EHandle,EHandle,PHandle,RGN_OR);
SetWindowRgn(Form1->Handle,EHandle,true);
ReleaseDC(Form1->Handle,hdc);

Hallo,

ja wollte es der Form zuweisen...

Sitz nur grad am Falschen Computer, probiers heut mittag mal aus
Danke vielmals

klappt Prima,

danke