, ekstra knap formatering funktioner i win95.,, bidragyder: pa van lonkhuyzen,,,, (****************************************************************} {delphi 2.0, kun}, (addbtn95 stammer tradiobutton95 og tcheckbox95 fra} {tradiobutton tcheckbox,, og at give dem}, (yderligere formatering funktionalitet i} (windows 95), tilføjet eller ændret egenskaber (:), (tilpasning: hvordan teksten ved den knap er tilpasset}, (alignmentbtn:, hvor knap er placeret} {likepushbutton,- kontrol, ligner en trykknap?}, (verticalalignment: hvor teksten og knap er placeret), (wordwrap: pakke tekst, hvis kasse er at indsnævre}, (****************************************************************} {over 1},,,, (ophavsret (c) 1996 - van lonkhuyzen} {e - mail: [email protected]},,,, ****************************************************************} {,,, enhed addbtn95;,,, grænseflade, anvender, vinduer, stdctrls, klasser, kontrol,,,,,,,,, tvalignment = (vatop, vabottom, vacenter);,, tcheckbox95 = klasse (tcheckbox), private, falignment: talignment;,, falignmentbtn: tleftright;,, flikepushbutton: boolean,,, fverticalalignment: tvalignment;,, fwordwrap: boolean,,, beskyttet, procedure createparams (var - params: tcreateparams); gearvalg;,, procedure setlikepushbutton (alikepushbutton: boolean);,, procedure setwordwrap (awordwrap: boolean);,, procedure setalignment (aalignment: talignment),,, procedure setalignmentbtn (aalignmentbtn: tleftright);,, procedure setverticalalignment (averticalalignment: tvalignment), offentlig, {offentlige erklæringer), offentliggjort, ejendom tilpasning: talignment læse falignment skrive setalignment;,, ejendom alignmentbtn: tleftright læse falignmentbtn skrive setalignmentbtn;,, ejendom likepushbutton: boolean læse flikepushbutton skrive setlikepushbutton;,, ejendom verticalalignment: tvalignment læse fverticalalignment skrive setverticalalignment;,, ejendom wordwrap: boolean læse fwordwrap skrive setwordwrap,,,,,,, tradiobutton95 = klasse (tradiobutton), private, falignment: talignment;,, falignmentbtn: tleftright;,, flikepushbutton: boolean,,, fverticalalignment: tvalignment;,, fwordwrap: boolean,,, beskyttet, procedure createparams (var - params: tcreateparams); gearvalg;,, procedure setlikepushbutton (alikepushbutton: boolean);,, procedure setwordwrap (awordwrap: boolean);,, procedure setalignment (aalignment: talignment);,, procedure setalignmentbtn (aalignmentbtn: tleftright),,, procedure setverticalalignment (averticalalignment: tvalignment), offentlig, {offentlige erklæringer), offentliggjort, ejendom tilpasning: talignment læse falignment skrive setalignment;,, ejendom alignmentbtn: tleftright læse falignmentbtn skrive setalignmentbtn;,, ejendom likepushbutton: boolean læse flikepushbutton skrive setlikepushbutton;,, ejendom verticalalignment: tvalignment læse fverticalalignment skrive setverticalalignment;,, ejendom wordwrap: boolean læse fwordwrap skrive setwordwrap,,,,,,,,,, proceduren register, gennemførelse, procedure tradiobutton95. createparams (var - params: tcreateparams), begynder, har createparams (params);,, params. stil: = params.style og ikke (bs_left eller bs_right eller bs_center, eller,bs_lefttext eller bs_rightbutton eller, bs_top eller bs_bottom eller bs_vcenter), sag fverticalalignment af, vatop: params. stil: = params.style eller bs_top;,, vabottom: params. stil: = params.style eller bs_bottom,,,,, params. stil: = params.style eller bs_vcenter,,,,,, hvis falignmentbtn = tarightjustify så, params. stil: = params.style eller bs_rightbutton;,, sag falignment af, taleftjustify: params. stil: = params.style eller bs_left;,, tarightjustify: params. stil: = params.style eller bs_right;,,, andre params. stil: = params.style eller bs_center;,,,,, hvis flikepushbutton så, params. stil: = params.style eller bs_pushlike;,, hvis fwordwrap så, params. stil: = params.style eller bs_multiline,,,,,,,,,,,, procedure tradiobutton95. setalignment (aalignment: talignment), begynder, hvis (aalignment < > falignment), begynder, falignment: = aalignment;,, recreatewnd;,,,,,,,,,, procedure tradiobutton95. setalignmentbtn (aalignmentbtn: tleftright), begynder, hvis (aalignmentbtn < > falignmentbtn), begynder, falignmentbtn: = aalignmentbtn;,, recreatewnd,,,,,,,,,, - procedure tradiobutton95. setlikepushbutton (alikepushbutton: boolean), begynder, hvis (alikepushbutton < > flikepushbutton), begynder, flikepushbutton: = alikepushbutton;,, recreatewnd,,,,,,,,,, tradiobutto proceduren95. setwordwrap (awordwrap: boolean), begynder, hvis (awordwrap < > fwordwrap), begynder, fwordwrap: = awordwrap;,, recreatewnd,,,,,,,,,,, procedure tradiobutton95. setverticalalignment (averticalalignment: tvalignment),,, begynde, hvis (averticalalignment < > fverticalalignment), begynder, fverticalalignment: = averticalalignment;,, recreatewnd,,,,,,,,,, procedure tcheckbox95. createparams (var - params: tcreateparams), begynder, har createparams (params),,, params. stil: = params.style og ikke (bs_left eller bs_right eller bs_center eller, bs_lefttext eller bs_rightbutton eller, bs_top eller bs_bottom eller bs_vcentef), sag fverticalalignment af, vatop: params. stil: = params.style eller bs_top;,, vabottom: params. stil: = params.style eller bs_bottom,,,,, params. stil: = params.style eller bs_vcenter,,,,,,, hvis falignmentbtn = tarightjustify så, params. stil.: = params.style eller bs_rightbutton;,, sag falignment af, taleftjustify: params. stil: = params.style eller bs_left;,, tarightjustify: params. stil: = params.style eller bs_right;,, andre params. stil: = params.style eller bs_center,,,,,,, hvis flikepushbutton så, params. stil: = params.style eller bs_pushlike;,, hvis fwordwrap så, params. stil: = params.style eller bs_multiline,,,,,,,,,,,, procedure tcheckbox95. setalignment (aalignment: talignment), begynder.hvis (aalignment < > falignment), begynder, falignment: = aalignment;,, recreatewnd,,,,,,,,,,, procedure tcheckbox95. setalignmentbtn (aalignmentbtn: tleftright), begynder, hvis (aalignmentbtn < > falignmentbtn) så, begynder, falignmentbtn: = aalignmentbtn;,, recreatewnd,,,,,,,,,, procedure tcheckbox95. setlikepushbutton (alikepushbutton: boolean), begynder, hvis (alikepushbutton < > flikepushbutton), begynder, flikepushbutton: = alikepushbutton;,, recreatewnd,,,,,,,,,, procedure tcheckbox95. setwordwrap (awordwrap: boolean), begynder, hvis (awordwrap < > fwordwrap), begynder, fwordwrap: = awordwrap,,,,, recreatewnd;,,,,,,,, procedure tcheckbox95. setverticalalignment (averticalalignment: tvalignment), begynder, hvis (averticalalignment < > fverticalalignment), begynder, fverticalalignment: = averticalalignment;,, recreatewnd,,,,,,,,,, procedure register;,, begynder, registercomponents ('win95, [tcheckbox95, tradiobutton95]);,,,,,,,,,.,,