123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117911891199120912191229123912491259126912791289129913091319132913391349135913691379138913991409141914291439144914591469147914891499150915191529153915491559156915791589159916091619162916391649165916691679168916991709171917291739174917591769177917891799180918191829183918491859186918791889189919091919192919391949195919691979198919992009201920292039204920592069207920892099210921192129213921492159216921792189219922092219222922392249225922692279228922992309231923292339234923592369237923892399240924192429243924492459246924792489249925092519252925392549255925692579258925992609261926292639264926592669267926892699270927192729273927492759276927792789279928092819282928392849285928692879288928992909291929292939294929592969297929892999300930193029303930493059306930793089309931093119312931393149315931693179318931993209321932293239324932593269327932893299330933193329333933493359336933793389339934093419342934393449345934693479348934993509351935293539354935593569357935893599360936193629363936493659366936793689369937093719372937393749375937693779378937993809381938293839384938593869387938893899390939193929393939493959396939793989399940094019402940394049405940694079408940994109411941294139414941594169417941894199420942194229423942494259426942794289429943094319432943394349435943694379438943994409441944294439444944594469447944894499450945194529453945494559456945794589459946094619462946394649465946694679468946994709471947294739474947594769477947894799480948194829483948494859486948794889489949094919492949394949495949694979498949995009501950295039504950595069507950895099510951195129513951495159516951795189519952095219522952395249525952695279528952995309531953295339534953595369537953895399540954195429543954495459546954795489549955095519552955395549555955695579558955995609561956295639564956595669567956895699570957195729573957495759576957795789579958095819582958395849585958695879588958995909591959295939594959595969597959895999600960196029603960496059606960796089609961096119612961396149615961696179618961996209621962296239624962596269627962896299630963196329633963496359636963796389639964096419642964396449645964696479648964996509651965296539654965596569657965896599660966196629663966496659666966796689669967096719672967396749675967696779678967996809681968296839684968596869687968896899690969196929693969496959696969796989699970097019702970397049705970697079708970997109711971297139714971597169717971897199720972197229723972497259726972797289729973097319732973397349735973697379738973997409741974297439744974597469747974897499750975197529753975497559756975797589759976097619762976397649765976697679768976997709771977297739774977597769777977897799780978197829783978497859786978797889789979097919792979397949795979697979798979998009801980298039804980598069807980898099810981198129813981498159816981798189819982098219822982398249825982698279828982998309831983298339834983598369837983898399840984198429843984498459846984798489849985098519852985398549855985698579858985998609861986298639864986598669867986898699870987198729873987498759876987798789879988098819882988398849885988698879888988998909891989298939894989598969897989898999900990199029903990499059906990799089909991099119912991399149915991699179918991999209921992299239924992599269927992899299930993199329933993499359936993799389939994099419942994399449945994699479948994999509951995299539954995599569957995899599960996199629963996499659966996799689969997099719972997399749975997699779978997999809981998299839984998599869987998899899990999199929993999499959996999799989999100001000110002100031000410005100061000710008100091001010011100121001310014100151001610017100181001910020100211002210023100241002510026100271002810029100301003110032100331003410035100361003710038100391004010041100421004310044100451004610047100481004910050100511005210053100541005510056100571005810059100601006110062100631006410065100661006710068100691007010071100721007310074100751007610077100781007910080100811008210083100841008510086100871008810089100901009110092100931009410095100961009710098100991010010101101021010310104101051010610107101081010910110101111011210113101141011510116101171011810119101201012110122101231012410125101261012710128101291013010131101321013310134101351013610137101381013910140101411014210143101441014510146101471014810149101501015110152101531015410155101561015710158101591016010161101621016310164101651016610167101681016910170101711017210173101741017510176101771017810179101801018110182101831018410185101861018710188101891019010191101921019310194101951019610197101981019910200102011020210203102041020510206102071020810209102101021110212102131021410215102161021710218102191022010221102221022310224102251022610227102281022910230102311023210233102341023510236102371023810239102401024110242102431024410245102461024710248102491025010251102521025310254102551025610257102581025910260102611026210263102641026510266102671026810269102701027110272102731027410275102761027710278102791028010281102821028310284102851028610287102881028910290102911029210293102941029510296102971029810299103001030110302103031030410305103061030710308103091031010311103121031310314103151031610317103181031910320103211032210323103241032510326103271032810329103301033110332103331033410335103361033710338103391034010341103421034310344103451034610347103481034910350103511035210353103541035510356103571035810359103601036110362103631036410365103661036710368103691037010371103721037310374103751037610377103781037910380103811038210383103841038510386103871038810389103901039110392103931039410395103961039710398103991040010401104021040310404104051040610407104081040910410104111041210413104141041510416104171041810419104201042110422104231042410425104261042710428104291043010431104321043310434104351043610437104381043910440104411044210443104441044510446104471044810449104501045110452104531045410455104561045710458104591046010461104621046310464104651046610467104681046910470104711047210473104741047510476104771047810479104801048110482104831048410485104861048710488104891049010491104921049310494104951049610497104981049910500105011050210503105041050510506105071050810509105101051110512105131051410515105161051710518105191052010521105221052310524105251052610527105281052910530105311053210533105341053510536105371053810539105401054110542105431054410545105461054710548105491055010551105521055310554105551055610557105581055910560105611056210563105641056510566105671056810569105701057110572105731057410575105761057710578105791058010581105821058310584105851058610587105881058910590105911059210593105941059510596105971059810599106001060110602106031060410605106061060710608106091061010611106121061310614106151061610617106181061910620106211062210623106241062510626106271062810629106301063110632106331063410635106361063710638106391064010641106421064310644106451064610647106481064910650106511065210653106541065510656106571065810659106601066110662106631066410665106661066710668106691067010671106721067310674106751067610677106781067910680106811068210683106841068510686106871068810689106901069110692106931069410695106961069710698106991070010701107021070310704107051070610707107081070910710107111071210713107141071510716107171071810719107201072110722107231072410725107261072710728107291073010731107321073310734107351073610737107381073910740107411074210743107441074510746107471074810749107501075110752107531075410755107561075710758107591076010761107621076310764107651076610767107681076910770107711077210773107741077510776107771077810779107801078110782107831078410785107861078710788107891079010791107921079310794107951079610797107981079910800108011080210803108041080510806108071080810809108101081110812108131081410815108161081710818108191082010821108221082310824108251082610827108281082910830108311083210833108341083510836108371083810839108401084110842108431084410845108461084710848108491085010851108521085310854108551085610857108581085910860108611086210863108641086510866108671086810869108701087110872108731087410875108761087710878108791088010881108821088310884108851088610887108881088910890108911089210893108941089510896108971089810899109001090110902109031090410905109061090710908109091091010911109121091310914109151091610917109181091910920109211092210923109241092510926109271092810929109301093110932109331093410935109361093710938109391094010941109421094310944109451094610947109481094910950109511095210953109541095510956109571095810959109601096110962109631096410965109661096710968109691097010971109721097310974109751097610977109781097910980109811098210983109841098510986109871098810989109901099110992109931099410995109961099710998109991100011001110021100311004110051100611007110081100911010110111101211013110141101511016110171101811019110201102111022110231102411025110261102711028110291103011031110321103311034110351103611037110381103911040110411104211043110441104511046110471104811049110501105111052110531105411055110561105711058110591106011061110621106311064110651106611067110681106911070110711107211073110741107511076110771107811079110801108111082110831108411085110861108711088110891109011091110921109311094110951109611097110981109911100111011110211103111041110511106111071110811109111101111111112111131111411115111161111711118111191112011121111221112311124111251112611127111281112911130111311113211133111341113511136111371113811139111401114111142111431114411145111461114711148111491115011151111521115311154111551115611157111581115911160111611116211163111641116511166111671116811169111701117111172111731117411175111761117711178111791118011181111821118311184111851118611187111881118911190111911119211193111941119511196111971119811199112001120111202112031120411205112061120711208112091121011211112121121311214112151121611217112181121911220112211122211223112241122511226112271122811229112301123111232112331123411235112361123711238112391124011241112421124311244112451124611247112481124911250112511125211253112541125511256112571125811259112601126111262112631126411265112661126711268112691127011271112721127311274112751127611277112781127911280112811128211283112841128511286112871128811289112901129111292112931129411295112961129711298112991130011301113021130311304113051130611307113081130911310113111131211313113141131511316113171131811319113201132111322113231132411325113261132711328113291133011331113321133311334113351133611337113381133911340113411134211343113441134511346113471134811349113501135111352113531135411355113561135711358113591136011361113621136311364113651136611367113681136911370113711137211373113741137511376113771137811379113801138111382113831138411385113861138711388113891139011391113921139311394113951139611397113981139911400114011140211403114041140511406114071140811409114101141111412114131141411415114161141711418114191142011421114221142311424114251142611427114281142911430114311143211433114341143511436114371143811439114401144111442114431144411445114461144711448114491145011451114521145311454114551145611457114581145911460114611146211463114641146511466114671146811469114701147111472114731147411475114761147711478114791148011481114821148311484114851148611487114881148911490114911149211493114941149511496114971149811499115001150111502115031150411505115061150711508115091151011511115121151311514115151151611517115181151911520115211152211523115241152511526115271152811529115301153111532115331153411535115361153711538115391154011541115421154311544115451154611547115481154911550115511155211553115541155511556115571155811559115601156111562115631156411565115661156711568115691157011571115721157311574115751157611577115781157911580115811158211583115841158511586115871158811589115901159111592115931159411595115961159711598115991160011601116021160311604116051160611607116081160911610116111161211613116141161511616116171161811619116201162111622116231162411625116261162711628116291163011631116321163311634116351163611637116381163911640116411164211643116441164511646116471164811649116501165111652116531165411655116561165711658116591166011661116621166311664116651166611667116681166911670116711167211673116741167511676116771167811679116801168111682116831168411685116861168711688116891169011691116921169311694116951169611697116981169911700117011170211703117041170511706117071170811709117101171111712117131171411715117161171711718117191172011721117221172311724117251172611727117281172911730117311173211733117341173511736117371173811739117401174111742117431174411745117461174711748117491175011751117521175311754117551175611757117581175911760117611176211763117641176511766117671176811769117701177111772117731177411775117761177711778117791178011781117821178311784117851178611787117881178911790117911179211793117941179511796117971179811799118001180111802118031180411805118061180711808118091181011811118121181311814118151181611817118181181911820118211182211823118241182511826118271182811829118301183111832118331183411835118361183711838118391184011841118421184311844118451184611847118481184911850118511185211853118541185511856118571185811859118601186111862118631186411865118661186711868118691187011871118721187311874118751187611877118781187911880118811188211883118841188511886118871188811889118901189111892118931189411895118961189711898118991190011901119021190311904119051190611907119081190911910119111191211913119141191511916119171191811919119201192111922119231192411925119261192711928119291193011931119321193311934119351193611937119381193911940119411194211943119441194511946119471194811949119501195111952119531195411955119561195711958119591196011961119621196311964119651196611967119681196911970119711197211973119741197511976119771197811979119801198111982119831198411985119861198711988119891199011991119921199311994119951199611997119981199912000120011200212003120041200512006120071200812009120101201112012120131201412015120161201712018120191202012021120221202312024120251202612027120281202912030120311203212033120341203512036120371203812039120401204112042120431204412045120461204712048120491205012051120521205312054120551205612057120581205912060120611206212063120641206512066120671206812069120701207112072120731207412075120761207712078120791208012081120821208312084120851208612087120881208912090120911209212093120941209512096120971209812099121001210112102121031210412105121061210712108121091211012111121121211312114121151211612117121181211912120121211212212123121241212512126121271212812129121301213112132121331213412135121361213712138121391214012141121421214312144121451214612147121481214912150121511215212153121541215512156121571215812159121601216112162121631216412165121661216712168121691217012171121721217312174121751217612177121781217912180121811218212183121841218512186121871218812189121901219112192121931219412195121961219712198121991220012201122021220312204122051220612207122081220912210122111221212213122141221512216122171221812219122201222112222122231222412225122261222712228122291223012231122321223312234122351223612237122381223912240122411224212243122441224512246122471224812249122501225112252122531225412255122561225712258122591226012261122621226312264122651226612267122681226912270122711227212273122741227512276122771227812279122801228112282122831228412285122861228712288122891229012291122921229312294122951229612297122981229912300123011230212303123041230512306123071230812309123101231112312123131231412315123161231712318123191232012321123221232312324123251232612327123281232912330 |
- Unit CommCtrl;
- {
- $Id$
- This file is part of the Free Pascal run time library.
- Copyright (c) 1999-2004 by Marco van de Voort
- member of the Free Pascal development team.
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- Original copyright statement follows.
- **************************************************************************
- * *
- * commctrl.h - - Interface for the Windows Common Controls *
- * *
- * Version 1.2 *
- * *
- * Copyright (c) Microsoft Corporation. All rights reserved. *
- * *
- **************************************************************************
- Note: This is an initial translation, and probably _full_ of bugs, this
- is because my conversion tool was flawed, and a lot of postediting
- was needed, which is bound to introduce bugs and inconsequencies
- This is an huge unit, and its maintenance and compability is not
- a top-priority.
- I prefer patches as bugfix over bugreports, and
- preferably patches with lots of fixes at once.
- If you can't make a patch, at least research the bug thoroughly,
- and provide as much info as possible (which windows version,
- the C prototype from the sdk, etc)
- Help the FPC team, and try to do as much as possible yourself.
- }
- Interface
- {$Mode ObjFPC}
- Uses Windows,ActiveX;
- // --------------------
- TYPE CINT = Longint;
- CUINT= CARDINAL;
- DWORD_PTR = ^DWORD;
- PDWORD_PTR = ^DWORD_PTR;
- ULONG_PTR = ^ULONG;
- INT_PTR = ^CINT;
- UINT_PTR = ^UINT;
- // --------------------
- CONST CommCtrlDLL = 'commctrl.dll';
- // Some reasonal defaults.
- // for XP only set NT to $%0501 and IE to $0600
- //
- // The NT conditional is only used for XP/no XP.
- {$DEFINE WIN32_IE=$0500}
- {$DEFINE IE3PLUS}
- {$DEFINE IE4PLUS}
- {$define IE5plus}
- {$DEFINE WIN32XP}
- {$DEFINE WIN32_WINNT=0} // NO XP
- {$DEFINE __IStream_INTERFACE_DEFINED__} // lpstream defined in activex afaik.
- // Sanity check in source. Not translated:
- //if (WIN32_IE < $0400) && defined(WIN32_WINNT) && (WIN32_WINNT >= $0500)}
- // #error _WIN32_IE setting conflicts with _WIN32_WINNT setting
- //
- // Users of this header may define any number of these constants to avoid
- // the definitions of each functional group.
- //
- // NOTOOLBAR Customizable bitmap-button toolbar control.
- // NOUPDOWN Up and Down arrow increment/decrement control.
- // NOSTATUSBAR Status bar control.
- // NOMENUHELP APIs to help manage menus, especially with a status bar.
- // NOTRACKBAR Customizable column-width tracking control.
- // NODRAGLIST APIs to make a listbox source and sink drag&drop actions.
- // NOPROGRESS Progress gas gauge.
- // NOHOTKEY HotKey control
- // NOHEADER Header bar control.
- // NOIMAGEAPIS ImageList apis.
- // NOLISTVIEW ListView control.
- // NOTREEVIEW TreeView control.
- // NOTABCONTROL Tab control.
- // NOANIMATE Animate control.
- // NOBUTTON Button control.
- // NOSTATIC Static control.
- // NOEDIT Edit control.
- // NOLISTBOX Listbox control.
- // NOCOMBOBOX Combobox control.
- // NOSCROLLBAR Scrollbar control.
- //
- //=============================================================================
- // include <prsht.h>
- Procedure InitCommonControls; external commctrldll name 'InitCommonControls';
- {$ifdef ie3plus}
- TYPE
- tagINITCOMMONCONTROLSEX = Record
- dwSize : DWORD; // size of this structure
- dwICC : DWORD; // flags indicating which classes to be initialized
- END;
- _INITCOMMONCONTROLSEX = tagINITCOMMONCONTROLSEX;
- LPINITCOMMONCONTROLSEX = ^tagINITCOMMONCONTROLSEX;
- TINITCOMMONCONTROLSEX = tagINITCOMMONCONTROLSEX;
- PINITCOMMONCONTROLSEX = ^tagINITCOMMONCONTROLSEX;
- CONST
- ICC_LISTVIEW_CLASSES = $00000001; // listview, header
- ICC_TREEVIEW_CLASSES = $00000002; // treeview, tooltips
- ICC_BAR_CLASSES = $00000004; // toolbar, statusbar, trackbar, tooltips
- ICC_TAB_CLASSES = $00000008; // tab, tooltips
- ICC_UPDOWN_CLASS = $00000010; // updown
- ICC_PROGRESS_CLASS = $00000020; // progress
- ICC_HOTKEY_CLASS = $00000040; // hotkey
- ICC_ANIMATE_CLASS = $00000080; // animate
- ICC_WIN95_CLASSES = $000000FF;
- ICC_DATE_CLASSES = $00000100; // month picker, date picker, time picker, updown
- ICC_USEREX_CLASSES = $00000200; // comboex
- ICC_COOL_CLASSES = $00000400; // rebar (coolbar) control
- {$ifdef ie4plus}
- ICC_INTERNET_CLASSES = $00000800;
- ICC_PAGESCROLLER_CLASS = $00001000; // page scroller
- ICC_NATIVEFNTCTL_CLASS = $00002000; // native font control
- {$ENDIF}
- {$ifdef WIN32XP}
- ICC_STANDARD_CLASSES = $00004000;
- ICC_LINK_CLASS = $00008000;
- {$ENDIF}
- function InitCommonControlsEx(var rec : TINITCOMMONCONTROLSEX):BOOL; external commctrldll name 'InitCommonControlsEx';
- {$ENDIF} // _WIN32_IE >= 0x0300
- CONST
- ODT_HEADER = 100;
- ODT_TAB = 101;
- ODT_LISTVIEW = 102;
- //====== WM_NOTIFY codes (NMHDR.code values) ==================================
- CONST
- NM_FIRST = (0- 0); // generic to all controls
- NM_LAST = (0- 99);
- LVN_FIRST = (0-100); // listview
- LVN_LAST = (0-199);
- // Property sheet reserved (0U-200U) - (0U-299U) - see prsht.h
- HDN_FIRST = (0-300); // header
- HDN_LAST = (0-399);
- TVN_FIRST = (0-400); // treeview
- TVN_LAST = (0-499);
- TTN_FIRST = (0-520); // tooltips
- TTN_LAST = (0-549);
- TCN_FIRST = (0-550); // tab control
- TCN_LAST = (0-580);
- // Shell reserved (0U-580U) - (0U-589U)
- CDN_FIRST = (0-601); // common dialog (new)
- CDN_LAST = (0-699);
- TBN_FIRST = (0-700); // toolbar
- TBN_LAST = (0-720);
- UDN_FIRST = (0-721); // updown
- UDN_LAST = (0-740);
- {$ifdef ie3plus}
- MCN_FIRST = (0-750); // monthcal
- MCN_LAST = (0-759);
- DTN_FIRST = (0-760); // datetimepick
- DTN_LAST = (0-799);
- CBEN_FIRST = (0-800); // combo box ex
- CBEN_LAST = (0-830);
- RBN_FIRST = (0-831); // rebar
- RBN_LAST = (0-859);
- {$ENDIF}
- {$ifdef ie4plus}
- IPN_FIRST = (0-860); // internet address
- IPN_LAST = (0-879); // internet address
- SBN_FIRST = (0-880); // status bar
- SBN_LAST = (0-899);
- PGN_FIRST = (0-900); // Pager Control
- PGN_LAST = (0-950);
- {$ENDIF}
- {$ifdef ie5plus}
- {$IFNDEF WMN_FIRST}
- WMN_FIRST = (0-1000);
- WMN_LAST = (0-1200);
- {$ENDIF}
- {$ENDIF}
- {$ifdef Win32XP}
- BCN_FIRST = (0-1250);
- BCN_LAST = (0-1350);
- {$ENDIF}
- MSGF_COMMCTRL_BEGINDRAG = $4200;
- MSGF_COMMCTRL_SIZEHEADER = $4201;
- MSGF_COMMCTRL_DRAGSELECT = $4202;
- MSGF_COMMCTRL_TOOLBARCUST = $4203;
- //====== Ranges for control message IDs =======================================
- LVM_FIRST = $1000; // ListView messages
- TV_FIRST = $1100; // TreeView messages
- HDM_FIRST = $1200; // Header messages
- TCM_FIRST = $1300; // Tab control messages
- {$ifdef ie4plus}
- PGM_FIRST = $1400; // Pager control messages
- {$ifdef win32xp}
- ECM_FIRST = $1500; // Edit control messages
- BCM_FIRST = $1600; // Button control messages
- CBM_FIRST = $1700; // Combobox control messages
- {$ENDIF}
- CCM_FIRST = $2000; // Common control shared messages
- CCM_LAST = (CCM_FIRST + $200);
- CCM_SETBKCOLOR = (CCM_FIRST + 1); // lParam is bkColor
- TYPE
- tagCOLORSCHEME = Record
- dwSize : DWORD;
- clrBtnHighlight : COLORREF; // highlight color
- clrBtnShadow : COLORREF; // shadow color
- END;
- COLORSCHEME = tagCOLORSCHEME;
- LPCOLORSCHEME = ^tagCOLORSCHEME;
- TCOLORSCHEME = tagCOLORSCHEME;
- PCOLORSCHEME = ^tagCOLORSCHEME;
- CONST
- CCM_SETCOLORSCHEME = (CCM_FIRST + 2); // lParam is color scheme
- CCM_GETCOLORSCHEME = (CCM_FIRST + 3); // fills in COLORSCHEME pointed to by lParam
- CCM_GETDROPTARGET = (CCM_FIRST + 4);
- CCM_SETUNICODEFORMAT = (CCM_FIRST + 5);
- CCM_GETUNICODEFORMAT = (CCM_FIRST + 6);
- {$ifdef ie5plus}
- {$ifdef win32xp}
- COMCTL32_VERSION = 6;
- {$ELSE}
- COMCTL32_VERSION = 5;
- {$ENDIF}
- CCM_SETVERSION = (CCM_FIRST + $7);
- CCM_GETVERSION = (CCM_FIRST + $8);
- CCM_SETNOTIFYWINDOW = (CCM_FIRST + $9); // wParam == hwndParent.
- {$ifdef win32xp}
- CCM_SETWINDOWTHEME = (CCM_FIRST + $b);
- CCM_DPISCALE = (CCM_FIRST + $c); // wParam == Awareness
- {$ENDIF}
- {$ENDIF} // (_WIN32_IE >= 0x0500)
- {$ENDIF} // (_WIN32_IE >= 0x0400)
- {$ifdef ie4plus}
- // for tooltips
- INFOTIPSIZE = 1024;
- {$ENDIF}
- //====== WM_NOTIFY Macros =====================================================
- // Macro 8
- Procedure HANDLE_WM_NOTIFY( hwnd : hwnd; wParam : cint;var lParam : NMHDR ;fn :Pointer);
- // Macro 9
- Function FORWARD_WM_NOTIFY( hwnd : hwnd; idFrom : cint;var pnmhdr : NMHDR ; fn :pointer ):LRESULT;
- //====== Generic WM_NOTIFY notification codes =================================
- CONST
- NM_OUTOFMEMORY = (NM_FIRST-1);
- NM_CLICK = (NM_FIRST-2); // uses NMCLICK struct
- NM_DBLCLK = (NM_FIRST-3);
- NM_RETURN = (NM_FIRST-4);
- NM_RCLICK = (NM_FIRST-5); // uses NMCLICK struct
- NM_RDBLCLK = (NM_FIRST-6);
- NM_SETFOCUS = (NM_FIRST-7);
- NM_KILLFOCUS = (NM_FIRST-8);
- {$ifdef ie3plus}
- NM_CUSTOMDRAW = (NM_FIRST-12);
- NM_HOVER = (NM_FIRST-13);
- {$ENDIF}
- {$ifdef ie4plus}
- NM_NCHITTEST = (NM_FIRST-14); // uses NMMOUSE struct
- NM_KEYDOWN = (NM_FIRST-15); // uses NMKEY struct
- NM_RELEASEDCAPTURE = (NM_FIRST-16);
- NM_SETCURSOR = (NM_FIRST-17); // uses NMMOUSE struct
- NM_CHAR = (NM_FIRST-18); // uses NMCHAR struct
- {$ENDIF}
- {$ifdef ie401plus}
- NM_TOOLTIPSCREATED = (NM_FIRST-19); // notify of when the tooltips window is create
- {$ENDIF}
- {$ifdef ie5plus}
- NM_LDOWN = (NM_FIRST-20);
- NM_RDOWN = (NM_FIRST-21);
- NM_THEMECHANGED = (NM_FIRST-22);
- {$ENDIF}
- {$IFNDEF CCSIZEOF_STRUCT}
- // Macro 10
- // #define CCSIZEOF_STRUCT(structname, member) (((int)((LPBYTE)(&((structname*)0)->member) - ((LPBYTE)((structname*)0)))) + sizeof(((structname*)0)->member))
- {$ENDIF}
- //====== Generic WM_NOTIFY notification structures ============================
- {$ifdef ie401plus}
- TYPE
- tagNMTOOLTIPSCREATED = Record
- hdr : NMHDR;
- hwndToolTips : HWND;
- END;
- NMTOOLTIPSCREATED = tagNMTOOLTIPSCREATED;
- LPNMTOOLTIPSCREATED = ^tagNMTOOLTIPSCREATED;
- TNMTOOLTIPSCREATED = tagNMTOOLTIPSCREATED;
- PNMTOOLTIPSCREATED = ^tagNMTOOLTIPSCREATED;
- {$ENDIF}
- {$ifdef ie4plus}
- Type
- tagNMMOUSE = Record
- hdr : NMHDR;
- dwItemSpec : DWORD_PTR;
- dwItemData : DWORD_PTR;
- pt : POINT;
- dwHitInfo : LPARAM; // any specifics about where on the item or control the mouse is
- END;
- NMMOUSE = tagNMMOUSE;
- LPNMMOUSE = ^tagNMMOUSE;
- TNMMOUSE = tagNMMOUSE;
- PNMMOUSE = ^tagNMMOUSE;
- NMCLICK = NMMOUSE;
- LPNMCLICK = LPNMMOUSE;
- // Generic structure to request an object of a specific type.
- tagNMOBJECTNOTIFY = Record
- hdr : NMHDR;
- iItem : cint;
- {$IFDEF __IID_DEFINED__}
- piid : PIID;
- {$ELSE}
- piid : Pointer;
- {$ENDIF}
- pObject : Pointer;
- hResult : HRESULT;
- dwFlags : DWORD; // control specific flags (hints as to where in iItem it hit)
- END;
- NMOBJECTNOTIFY = tagNMOBJECTNOTIFY;
- LPNMOBJECTNOTIFY = ^tagNMOBJECTNOTIFY;
- TNMOBJECTNOTIFY = tagNMOBJECTNOTIFY;
- PNMOBJECTNOTIFY = ^tagNMOBJECTNOTIFY;
- // Generic structure for a key
- tagNMKEY = Record
- hdr : NMHDR;
- nVKey : UINT;
- uFlags : UINT;
- END;
- NMKEY = tagNMKEY;
- LPNMKEY = ^tagNMKEY;
- TNMKEY = tagNMKEY;
- PNMKEY = ^tagNMKEY;
- // Generic structure for a character
- tagNMCHAR = Record
- hdr : NMHDR;
- ch : UINT;
- dwItemPrev : DWORD; // Item previously selected
- dwItemNext : DWORD; // Item to be selected
- END;
- NMCHAR = tagNMCHAR;
- LPNMCHAR = ^tagNMCHAR;
- TNMCHAR = tagNMCHAR;
- PNMCHAR = ^tagNMCHAR;
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$ifdef ie3plus}
- //==================== CUSTOM DRAW ==========================================
- // custom draw return flags
- // values under 0x00010000 are reserved for global custom draw values.
- // above that are for specific controls
- CONST
- CDRF_DODEFAULT = $00000000;
- CDRF_NEWFONT = $00000002;
- CDRF_SKIPDEFAULT = $00000004;
- CDRF_NOTIFYPOSTPAINT = $00000010;
- CDRF_NOTIFYITEMDRAW = $00000020;
- {$ifdef ie4plus}
- CDRF_NOTIFYSUBITEMDRAW = $00000020; // flags are the same, we can distinguish by context
- {$ENDIF}
- CDRF_NOTIFYPOSTERASE = $00000040;
- // drawstage flags
- // values under 0x00010000 are reserved for global custom draw values.
- // above that are for specific controls
- CDDS_PREPAINT = $00000001;
- CDDS_POSTPAINT = $00000002;
- CDDS_PREERASE = $00000003;
- CDDS_POSTERASE = $00000004;
- // the 0x000010000 bit means it's individual item specific
- CDDS_ITEM = $00010000;
- CDDS_ITEMPREPAINT = (CDDS_ITEM OR CDDS_PREPAINT);
- CDDS_ITEMPOSTPAINT = (CDDS_ITEM OR CDDS_POSTPAINT);
- CDDS_ITEMPREERASE = (CDDS_ITEM OR CDDS_PREERASE);
- CDDS_ITEMPOSTERASE = (CDDS_ITEM OR CDDS_POSTERASE);
- {$ifdef ie4plus}
- CDDS_SUBITEM = $00020000;
- {$ENDIF}
- // itemState flags
- CDIS_SELECTED = $0001;
- CDIS_GRAYED = $0002;
- CDIS_DISABLED = $0004;
- CDIS_CHECKED = $0008;
- CDIS_FOCUS = $0010;
- CDIS_DEFAULT = $0020;
- CDIS_HOT = $0040;
- CDIS_MARKED = $0080;
- CDIS_INDETERMINATE = $0100;
- {$ifdef win32xp}
- CDIS_SHOWKEYBOARDCUES = $0200;
- {$ENDIF}
- TYPE
- tagNMCUSTOMDRAWINFO = Record
- hdr : NMHDR;
- dwDrawStage : DWORD;
- hdc : HDC;
- rc : RECT;
- dwItemSpec : DWORD_PTR; // this is control specific, but it's how to specify an item. valid only with CDDS_ITEM bit set
- uItemState : UINT;
- lItemlParam : LPARAM;
- END;
- NMCUSTOMDRAW = tagNMCUSTOMDRAWINFO;
- LPNMCUSTOMDRAW = ^tagNMCUSTOMDRAWINFO;
- TNMCUSTOMDRAWINFO = tagNMCUSTOMDRAWINFO;
- PNMCUSTOMDRAWINFO = ^tagNMCUSTOMDRAWINFO;
- tagNMTTCUSTOMDRAW = Record
- nmcd : NMCUSTOMDRAW;
- uDrawFlags : UINT;
- END;
- NMTTCUSTOMDRAW = tagNMTTCUSTOMDRAW;
- LPNMTTCUSTOMDRAW = ^tagNMTTCUSTOMDRAW;
- TNMTTCUSTOMDRAW = tagNMTTCUSTOMDRAW;
- PNMTTCUSTOMDRAW = ^tagNMTTCUSTOMDRAW;
- {$ENDIF} // _WIN32_IE >= 0x0300
- //====== IMAGE APIS ===========================================================
- {$IFNDEF NOIMAGEAPIS}
- CONST
- CLR_NONE = DWORD($FFFFFFFF);
- CLR_DEFAULT = DWORD($FF000000);
- {$IFNDEF IMAGELISTDRAWPARAMS}
- {$ifdef ie3plus}
- TYPE
- _IMAGELISTDRAWPARAMS = Record
- cbSize : DWORD;
- himl : HIMAGELIST;
- i : cint;
- hdcDst : HDC;
- x : cint;
- y : cint;
- cx : cint;
- cy : cint;
- xBitmap : cint; // x offest from the upperleft of bitmap
- yBitmap : cint; // y offset from the upperleft of bitmap
- rgbBk : COLORREF;
- rgbFg : COLORREF;
- fStyle : UINT;
- dwRop : DWORD;
- {$ifdef win32xp}
- fState : DWORD;
- Frame : DWORD;
- crEffect : COLORREF;
- {$ENDIF}
- END;
- IMAGELISTDRAWPARAMS = _IMAGELISTDRAWPARAMS;
- LPIMAGELISTDRAWPARAMS = ^_IMAGELISTDRAWPARAMS;
- TIMAGELISTDRAWPARAMS = _IMAGELISTDRAWPARAMS;
- PIMAGELISTDRAWPARAMS = ^_IMAGELISTDRAWPARAMS;
- // #define IMAGELISTDRAWPARAMS_V3_SIZE CCSIZEOF_STRUCT(IMAGELISTDRAWPARAMS, dwRop)
- {$ENDIF} // _WIN32_IE >= 0x0300
- {$ENDIF}
- CONST
- ILC_MASK = $00000001;
- ILC_COLOR = $00000000;
- ILC_COLORDDB = $000000FE;
- ILC_COLOR4 = $00000004;
- ILC_COLOR8 = $00000008;
- ILC_COLOR16 = $00000010;
- ILC_COLOR24 = $00000018;
- ILC_COLOR32 = $00000020;
- ILC_PALETTE = $00000800; // (not implemented)
- {$ifdef win32xp}
- ILC_MIRROR = $00002000; // Mirror the icons contained, if the process is mirrored
- ILC_PERITEMMIRROR = $00008000; // Causes the mirroring code to mirror each item when inserting a set of images, verses the whole strip
- {$ENDIF}
- function ImageList_Create(cx:cint;cy:cint;flags:UINT;cInitial:cint;cGrow:cint):HIMAGELIST; external commctrldll name 'ImageList_Create';
- function ImageList_Destroy(himl:HIMAGELIST):BOOL; external commctrldll name 'ImageList_Destroy';
- function ImageList_GetImageCount(himl:HIMAGELIST):cint; external commctrldll name 'ImageList_GetImageCount';
- {$ifdef ie3plus}
- function ImageList_SetImageCount(himl:HIMAGELIST;uNewCount:UINT):BOOL; external commctrldll name 'ImageList_SetImageCount';
- {$ENDIF}
- function ImageList_Add(himl:HIMAGELIST;hbmImage:HBITMAP;hbmMask:HBITMAP):cint; external commctrldll name 'ImageList_Add';
- function ImageList_ReplaceIcon(himl:HIMAGELIST;i:cint;hicon:HICON):cint; external commctrldll name 'ImageList_ReplaceIcon';
- function ImageList_SetBkColor(himl:HIMAGELIST;clrBk:COLORREF):COLORREF; external commctrldll name 'ImageList_SetBkColor';
- function ImageList_GetBkColor(himl:HIMAGELIST):COLORREF; external commctrldll name 'ImageList_GetBkColor';
- function ImageList_SetOverlayImage(himl:HIMAGELIST;iImage:cint;iOverlay:cint):BOOL; external commctrldll name 'ImageList_SetOverlayImage';
- // Macro 11
- Function ImageList_AddIcon(Himl:HIMAGELIST;hicon:HICON):cint;
- CONST
- ILD_NORMAL = $00000000;
- ILD_TRANSPARENT = $00000001;
- ILD_MASK = $00000010;
- ILD_IMAGE = $00000020;
- {$ifdef ie3plus}
- ILD_ROP = $00000040;
- {$ENDIF}
- ILD_BLEND25 = $00000002;
- ILD_BLEND50 = $00000004;
- ILD_OVERLAYMASK = $00000F00;
- // Macro 12
- // #define INDEXTOOVERLAYMASK(i) ((i) << 8)
- CONST
- ILD_PRESERVEALPHA = $00001000; // This preserves the alpha channel in dest
- ILD_SCALE = $00002000; // Causes the image to be scaled to cx, cy instead of clipped
- ILD_DPISCALE = $00004000;
- ILD_SELECTED = ILD_BLEND50;
- ILD_FOCUS = ILD_BLEND25;
- ILD_BLEND = ILD_BLEND50;
- CLR_HILIGHT = CLR_DEFAULT;
- ILS_NORMAL = $00000000;
- ILS_GLOW = $00000001;
- ILS_SHADOW = $00000002;
- ILS_SATURATE = $00000004;
- ILS_ALPHA = $00000008;
- function ImageList_Draw(himl:HIMAGELIST;i:cint;hdcDst:HDC;x:cint;y:cint;fStyle:UINT):BOOL; external commctrldll name 'ImageList_Draw';
- {$IFDEF _WIN32}
- function ImageList_Replace(himl:HIMAGELIST;i:cint;hbmImage:HBITMAP;hbmMask:HBITMAP):BOOL; external commctrldll name 'ImageList_Replace';
- function ImageList_AddMasked(himl:HIMAGELIST;hbmImage:HBITMAP;crMask:COLORREF):cint; external commctrldll name 'ImageList_AddMasked';
- function ImageList_DrawEx(himl:HIMAGELIST;i:cint;hdcDst:HDC;x:cint;y:cint;dx:cint;dy:cint;rgbBk:COLORREF;rgbFg:COLORREF;fStyle:UINT):BOOL; external commctrldll name 'ImageList_DrawEx';
- {$ifdef ie3plus}
- function ImageList_DrawIndirect(pimldp:PIMAGELISTDRAWPARAMS):BOOL; external commctrldll name 'ImageList_DrawIndirect';
- {$ENDIF}
- function ImageList_Remove(himl:HIMAGELIST;i:cint):BOOL; external commctrldll name 'ImageList_Remove';
- function ImageList_GetIcon(himl:HIMAGELIST;i:cint;flags:UINT):HICON; external commctrldll name 'ImageList_GetIcon';
- function ImageList_LoadImageA(hi:HINSTANCE;lpbmp:LPCSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; external commctrldll name 'ImageList_LoadImageA';
- function ImageList_LoadImageW(hi:HINSTANCE;lpbmp:LPCWSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; external commctrldll name 'ImageList_LoadImageW';
- {$IFDEF UNICODE}
- function ImageList_LoadImageW(hi:HINSTANCE;lpbmp:LPCWSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; external commctrldll name 'ImageList_LoadImageW';
- {$ELSE}
- function ImageList_LoadImageA(hi:HINSTANCE;lpbmp:LPCSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; external commctrldll name 'ImageList_LoadImageA';
- {$ENDIF}
- {$ifdef ie3plus}
- CONST
- ILCF_MOVE = ($00000000);
- ILCF_SWAP = ($00000001);
- function ImageList_Copy(himlDst:HIMAGELIST;iDst:cint;himlSrc:HIMAGELIST;iSrc:cint;uFlags:UINT):BOOL; external commctrldll name 'ImageList_Copy';
- {$ENDIF}
- function ImageList_BeginDrag(himlTrack:HIMAGELIST;iTrack:cint;dxHotspot:cint;dyHotspot:cint):BOOL; external commctrldll name 'ImageList_BeginDrag';
- Procedure ImageList_EndDrag; external commctrldll name 'ImageList_EndDrag';
- function ImageList_DragEnter(hwndLock:HWND;x:cint;y:cint):BOOL; external commctrldll name 'ImageList_DragEnter';
- function ImageList_DragLeave(hwndLock:HWND):BOOL; external commctrldll name 'ImageList_DragLeave';
- function ImageList_DragMove(x:cint;y:cint):BOOL; external commctrldll name 'ImageList_DragMove';
- function ImageList_SetDragCursorImage(himlDrag:HIMAGELIST;iDrag:cint;dxHotspot:cint;dyHotspot:cint):BOOL; external commctrldll name 'ImageList_SetDragCursorImage';
- function ImageList_DragShowNolock(fShow:BOOL):BOOL; external commctrldll name 'ImageList_DragShowNolock';
- function ImageList_GetDragImage(ppt:PPOINT;pptHotspot:PPOINT):HIMAGELIST; external commctrldll name 'ImageList_GetDragImage';
- // Macro 13
- Procedure ImageList_RemoveAll(himl:HIMAGELIST);
- // Macro 14
- Procedure ImageList_ExtractIcon(hi:longint; {dummy?} himl:HIMAGELIST;i:cint);
- // Macro 15
- Procedure ImageList_LoadBitmap(hi:HInstance;lpbmp:LPCTSTR;cx:cint;cGrow:cint;crMask:COLORREF);
- {$IFDEF __IStream_INTERFACE_DEFINED__}
- function ImageList_Read(pstm:LPSTREAM):HIMAGELIST; external commctrldll name 'ImageList_Read';
- function ImageList_Write(himl:HIMAGELIST;pstm:LPSTREAM):BOOL; external commctrldll name 'ImageList_Write';
- {$ifdef Win32XP}
- CONST
- ILP_NORMAL = 0; // Writes or reads the stream using new sematics for this version of comctl32
- ILP_DOWNLEVEL = 1; // Write or reads the stream using downlevel sematics.
- function ImageList_ReadEx(dwFlags:DWORD;pstm:LPSTREAM;riid:REFIID;ppv:PPVOID):HRESULT; external commctrldll name 'ImageList_ReadEx';
- function ImageList_WriteEx(himl:HIMAGELIST;dwFlags:DWORD;pstm:LPSTREAM):HRESULT; external commctrldll name 'ImageList_WriteEx';
- {$ENDIF}
- {$ENDIF}
- {$IFNDEF IMAGEINFO}
- TYPE
- _IMAGEINFO = Record
- hbmImage : HBITMAP;
- hbmMask : HBITMAP;
- Unused1 : cint;
- Unused2 : cint;
- rcImage : RECT;
- END;
- IMAGEINFO = _IMAGEINFO;
- LPIMAGEINFO = ^_IMAGEINFO;
- TIMAGEINFO = _IMAGEINFO;
- PIMAGEINFO = ^_IMAGEINFO;
- {$ENDIF}
- function ImageList_GetIconSize(himl:HIMAGELIST;cx:Pint;cy:Pint):BOOL; external commctrldll name 'ImageList_GetIconSize';
- function ImageList_SetIconSize(himl:HIMAGELIST;cx:cint;cy:cint):BOOL; external commctrldll name 'ImageList_SetIconSize';
- function ImageList_GetImageInfo(himl:HIMAGELIST;i:cint;pImageInfo:PIMAGEINFO):BOOL; external commctrldll name 'ImageList_GetImageInfo';
- function ImageList_Merge(himl1:HIMAGELIST;i1:cint;himl2:HIMAGELIST;i2:cint;dx:cint;dy:cint):HIMAGELIST; external commctrldll name 'ImageList_Merge';
- {$ifdef ie4plus}
- function ImageList_Duplicate(himl:HIMAGELIST):HIMAGELIST; external commctrldll name 'ImageList_Duplicate';
- {$ENDIF}
- {$ENDIF}
- {$ENDIF}
- //====== HEADER CONTROL =======================================================
- {$IFNDEF NOHEADER}
- {$IFDEF _WIN32}
- CONST
- WC_HEADERA = 'SysHeader32';
- WC_HEADERW = {L}'SysHeader32';
- TYPE
- {$IFDEF UNICODE}
- WC_HEADER = WC_HEADERW;
- {$ELSE}
- WC_HEADER = WC_HEADERA;
- {$ENDIF}
- {$ELSE}
- CONST
- WC_HEADER = 'SysHeader';
- {$ENDIF}
- // begin_r_commctrl
- HDS_HORZ = $0000;
- HDS_BUTTONS = $0002;
- {$ifdef ie3plus}
- HDS_HOTTRACK = $0004;
- {$ENDIF}
- HDS_HIDDEN = $0008;
- {$ifdef ie3plus}
- HDS_DRAGDROP = $0040;
- HDS_FULLDRAG = $0080;
- {$ENDIF}
- {$ifdef ie5plus}
- HDS_FILTERBAR = $0100;
- {$ENDIF}
- {$ifdef win32xp}
- HDS_FLAT = $0200;
- {$ENDIF}
- // end_r_commctrl
- {$ifdef ie5plus}
- HDFT_ISSTRING = $0000; // HD_ITEM.pvFilter points to a HD_TEXTFILTER
- HDFT_ISNUMBER = $0001; // HD_ITEM.pvFilter points to a INT
- HDFT_HASNOVALUE = $8000; // clear the filter, by setting this bit
- TYPE
- _HD_TEXTFILTERA = Record
- pszText : LPSTR; // [in] pointer to the buffer containing the filter (ANSI)
- cchTextMax : cint; // [in] max size of buffer/edit control buffer
- END;
- HD_TEXTFILTERA = _HD_TEXTFILTERA;
- LPHD_TEXTFILTERA = ^_HD_TEXTFILTERA;
- THD_TEXTFILTERA = _HD_TEXTFILTERA;
- PHD_TEXTFILTERA = ^_HD_TEXTFILTERA;
- _HD_TEXTFILTERW = Record
- pszText : LPWSTR; // [in] pointer to the buffer contiaining the filter (UNICODE)
- cchTextMax : cint; // [in] max size of buffer/edit control buffer
- END;
- HD_TEXTFILTERW = _HD_TEXTFILTERW;
- LPHD_TEXTFILTERW = ^_HD_TEXTFILTERW;
- THD_TEXTFILTERW = _HD_TEXTFILTERW;
- PHD_TEXTFILTERW = ^_HD_TEXTFILTERW;
- {$IFDEF UNICODE}
- HD_TEXTFILTER = HD_TEXTFILTERW;
- HDTEXTFILTER = HD_TEXTFILTERW;
- LPHD_TEXTFILTER = LPHD_TEXTFILTERW;
- LPHDTEXTFILTER = LPHD_TEXTFILTERW;
- {$ELSE}
- HD_TEXTFILTER = HD_TEXTFILTERA;
- HDTEXTFILTER = HD_TEXTFILTERA;
- LPHD_TEXTFILTER = LPHD_TEXTFILTERA;
- LPHDTEXTFILTER = LPHD_TEXTFILTERA;
- {$ENDIF}
- {$ENDIF} // _WIN32_IE >= 0x0500
- TYPE
- _HD_ITEMA = Record
- mask : UINT;
- cxy : cint;
- pszText : LPSTR;
- hbm : HBITMAP;
- cchTextMax : cint;
- fmt : cint;
- lParam : LPARAM;
- {$ifdef ie3plus}
- iImage : cint; // index of bitmap in ImageList
- iOrder : cint; // where to draw this item
- {$ENDIF}
- {$ifdef ie5plus}
- _type : UINT; // [in] filter type (defined what pvFilter is a pointer to)
- pvFilter : Pointer; // [in] fillter data see above
- {$ENDIF}
- END;
- HDITEMA = _HD_ITEMA;
- pHDITEMA = ^_HD_ITEMA;
- LPHDITEMA = ^_HD_ITEMA;
- THD_ITEMA = _HD_ITEMA;
- PHD_ITEMA = ^_HD_ITEMA;
- // #define HDITEMA_V1_SIZE CCSIZEOF_STRUCT(HDITEMA, lParam)
- // #define HDITEMW_V1_SIZE CCSIZEOF_STRUCT(HDITEMW, lParam)
- _HD_ITEMW = Record
- mask : UINT;
- cxy : cint;
- pszText : LPWSTR;
- hbm : HBITMAP;
- cchTextMax : cint;
- fmt : cint;
- lParam : LPARAM;
- {$ifdef ie3plus}
- iImage : cint; // index of bitmap in ImageList
- iOrder : cint;
- {$ENDIF}
- {$ifdef ie5plus}
- _type : UINT; // [in] filter type (defined what pvFilter is a pointer to)
- pvFilter : Pointer; // [in] fillter data see above
- {$ENDIF}
- END;
- HDITEMW = _HD_ITEMW;
- pHDITEMW = ^_HD_ITEMW;
- LPHDITEMW = ^_HD_ITEMW;
- THD_ITEMW = _HD_ITEMW;
- PHD_ITEMW = ^_HD_ITEMW;
- TYPE
- {$IFDEF UNICODE}
- HDITEM = HDITEMW;
- LPHDITEM = LPHDITEMW;
- // HDITEM_V1_SIZE = HDITEMW_V1_SIZE;
- {$ELSE}
- HDITEM = HDITEMA;
- LPHDITEM = LPHDITEMA;
- // HDITEM_V1_SIZE = HDITEMA_V1_SIZE;
- {$ENDIF}
- HD_ITEM = HDITEM;
- CONST
- HDI_WIDTH = $0001;
- HDI_HEIGHT = HDI_WIDTH;
- HDI_TEXT = $0002;
- HDI_FORMAT = $0004;
- HDI_LPARAM = $0008;
- HDI_BITMAP = $0010;
- {$ifdef ie3plus}
- HDI_IMAGE = $0020;
- HDI_DI_SETITEM = $0040;
- HDI_ORDER = $0080;
- {$ENDIF}
- {$ifdef ie5plus}
- HDI_FILTER = $0100;
- {$ENDIF}
- HDF_LEFT = $0000;
- HDF_RIGHT = $0001;
- HDF_CENTER = $0002;
- HDF_JUSTIFYMASK = $0003;
- HDF_RTLREADING = $0004;
- HDF_OWNERDRAW = $8000;
- HDF_STRING = $4000;
- HDF_BITMAP = $2000;
- {$ifdef ie3plus}
- HDF_BITMAP_ON_RIGHT = $1000;
- HDF_IMAGE = $0800;
- {$ENDIF}
- {$ifdef win32xp}
- HDF_SORTUP = $0400;
- HDF_SORTDOWN = $0200;
- {$ENDIF}
- HDM_GETITEMCOUNT = (HDM_FIRST + 0);
- // Macro 16
- Function Header_GetItemCount( hwndHD : hwnd):cint;
- CONST
- HDM_INSERTITEMA = (HDM_FIRST + 1);
- HDM_INSERTITEMW = (HDM_FIRST + 10);
- {$IFDEF UNICODE}
- HDM_INSERTITEM = HDM_INSERTITEMW;
- {$ELSE}
- HDM_INSERTITEM = HDM_INSERTITEMA;
- {$ENDIF}
- // Macro 17
- Function Header_InsertItem( hwndHD : hwnd; i : cint;const phdi : HD_ITEM ):cint;
- CONST
- HDM_DELETEITEM = (HDM_FIRST + 2);
- // Macro 18
- Function Header_DeleteItem( hwndHD : hwnd; i : cint):BOOL;
- CONST
- HDM_GETITEMA = (HDM_FIRST + 3);
- HDM_GETITEMW = (HDM_FIRST + 11);
- {$IFDEF UNICODE}
- HDM_GETITEM = HDM_GETITEMW;
- {$ELSE}
- HDM_GETITEM = HDM_GETITEMA;
- {$ENDIF}
- // Macro 19
- Function Header_GetItem( hwndHD : hwnd; i : cint;var phdi : HD_ITEM ):BOOL;
- CONST
- HDM_SETITEMA = (HDM_FIRST + 4);
- HDM_SETITEMW = (HDM_FIRST + 12);
- {$IFDEF UNICODE}
- HDM_SETITEM = HDM_SETITEMW;
- {$ELSE}
- HDM_SETITEM = HDM_SETITEMA;
- {$ENDIF}
- // Macro 20
- Function Header_SetItem( hwndHD : hwnd; i : cint;const phdi : HD_ITEM ):BOOL;
- TYPE
- _HD_LAYOUT = Record
- prc : PRECT;
- pwpos : PWINDOWPOS;
- END;
- HDLAYOUT = _HD_LAYOUT;
- LPHDLAYOUT = ^_HD_LAYOUT;
- THD_LAYOUT = _HD_LAYOUT;
- PHD_LAYOUT = ^_HD_LAYOUT;
- CONST
- HDM_LAYOUT = (HDM_FIRST + 5);
- {$ifdef ie3plus}
- TYPE
- HD_LAYOUT = HDLAYOUT;
- {$ELSE}
- // HDLAYOUT = HD_LAYOUT;
- {$ENDIF}
- // Macro 21
- Function Header_Layout( hwndHD : hwnd;var playout : HD_LAYOUT ):BOOL;
- CONST
- HHT_NOWHERE = $0001;
- HHT_ONHEADER = $0002;
- HHT_ONDIVIDER = $0004;
- HHT_ONDIVOPEN = $0008;
- {$ifdef ie5plus}
- HHT_ONFILTER = $0010;
- HHT_ONFILTERBUTTON = $0020;
- {$ENDIF}
- HHT_ABOVE = $0100;
- HHT_BELOW = $0200;
- HHT_TORIGHT = $0400;
- HHT_TOLEFT = $0800;
- TYPE
- _HD_HITTESTINFO = Record
- pt : POINT;
- flags : UINT;
- iItem : cint;
- END;
- HDHITTESTINFO = _HD_HITTESTINFO;
- HD_HITTESTINFO = _HD_HITTESTINFO;
- LPHDHITTESTINFO = ^_HD_HITTESTINFO;
- THD_HITTESTINFO = _HD_HITTESTINFO;
- PHD_HITTESTINFO = ^_HD_HITTESTINFO;
- CONST
- HDM_HITTEST = (HDM_FIRST + 6);
- {$ifdef ie3plus}
- HDM_GETITEMRECT = (HDM_FIRST + 7);
- // Macro 22
- Function Header_GetItemRect( hwnd : hwnd; iItem : WPARAM; lprc : LPARAM):BOOL;
- CONST
- HDM_SETIMAGELIST = (HDM_FIRST + 8);
- // Macro 23
- Function Header_SetImageList( hwnd : hwnd; himl : LPARAM):HIMAGELIST;
- CONST
- HDM_GETIMAGELIST = (HDM_FIRST + 9);
- // Macro 24
- Function Header_GetImageList( hwnd : hwnd):HIMAGELIST;
- CONST
- HDM_ORDERTOINDEX = (HDM_FIRST + 15);
- // Macro 25
- Function Header_OrderToIndex( hwnd : hwnd; i : WPARAM):cint;
- CONST
- HDM_CREATEDRAGIMAGE = (HDM_FIRST + 16); // wparam = which item (by index)
- // Macro 26
- Function Header_CreateDragImage( hwnd : hwnd; i : WPARAM):HIMAGELIST;
- CONST
- HDM_GETORDERARRAY = (HDM_FIRST + 17);
- // Macro 27
- Function Header_GetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : LPARAM):BOOL;
- CONST
- HDM_SETORDERARRAY = (HDM_FIRST + 18);
- // Macro 28
- Function Header_SetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : LPARAM):BOOL;
- // lparam = int array of size HDM_GETITEMCOUNT
- // the array specifies the order that all items should be displayed.
- // e.g. { 2, 0, 1}
- // says the index 2 item should be shown in the 0ths position
- // index 0 should be shown in the 1st position
- // index 1 should be shown in the 2nd position
- CONST
- HDM_SETHOTDIVIDER = (HDM_FIRST + 19);
- // Macro 29
- Function Header_SetHotDivider( hwnd : hwnd; fPos : WPARAM; dw : LPARAM):cint;
- // convenience message for external dragdrop
- // wParam = BOOL specifying whether the lParam is a dwPos of the cursor
- // position or the index of which divider to hotlight
- // lParam = depends on wParam (-1 and wParm = FALSE turns off hotlight)
- {$ENDIF} // _WIN32_IE >= 0x0300
- {$ifdef ie5plus}
- CONST
- HDM_SETBITMAPMARGIN = (HDM_FIRST + 20);
- // Macro 30
- Function Header_SetBitmapMargin( hwnd : hwnd; iWidth : WPARAM):cint;
- CONST
- HDM_GETBITMAPMARGIN = (HDM_FIRST + 21);
- // Macro 31
- Function Header_GetBitmapMargin( hwnd : hwnd):cint;
- {$ENDIF}
- {$ifdef ie4plus}
- CONST
- HDM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- // Macro 32
- Function Header_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
- CONST
- HDM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- // Macro 33
- Function Header_GetUnicodeFormat( hwnd : hwnd):BOOL;
- {$ENDIF}
- {$ifdef ie5plus}
- CONST
- HDM_SETFILTERCHANGETIMEOUT = (HDM_FIRST+22);
- // Macro 34
- Function Header_SetFilterChangeTimeout( hwnd : hwnd; i : LPARAM):cint;
- CONST
- HDM_EDITFILTER = (HDM_FIRST+23);
- // Macro 35
- Function Header_EditFilter( hwnd : hwnd; i : WPARAM; fDiscardChanges :cint ):cint;
- // Clear filter takes -1 as a column value to indicate that all
- // the filter should be cleared. When this happens you will
- // only receive a single filter changed notification.
- CONST
- HDM_CLEARFILTER = (HDM_FIRST+24);
- // Macro 36
- Function Header_ClearFilter( hwnd : hwnd; i : WPARAM):cint;
- // Macro 37
- Function Header_ClearAllFilters( hwnd : hwnd):cint;
- {$ENDIF}
- CONST
- HDN_ITEMCHANGINGA = (HDN_FIRST-0);
- HDN_ITEMCHANGINGW = (HDN_FIRST-20);
- HDN_ITEMCHANGEDA = (HDN_FIRST-1);
- HDN_ITEMCHANGEDW = (HDN_FIRST-21);
- HDN_ITEMCLICKA = (HDN_FIRST-2);
- HDN_ITEMCLICKW = (HDN_FIRST-22);
- HDN_ITEMDBLCLICKA = (HDN_FIRST-3);
- HDN_ITEMDBLCLICKW = (HDN_FIRST-23);
- HDN_DIVIDERDBLCLICKA = (HDN_FIRST-5);
- HDN_DIVIDERDBLCLICKW = (HDN_FIRST-25);
- HDN_BEGINTRACKA = (HDN_FIRST-6);
- HDN_BEGINTRACKW = (HDN_FIRST-26);
- HDN_ENDTRACKA = (HDN_FIRST-7);
- HDN_ENDTRACKW = (HDN_FIRST-27);
- HDN_TRACKA = (HDN_FIRST-8);
- HDN_TRACKW = (HDN_FIRST-28);
- {$ifdef ie3plus}
- HDN_GETDISPINFOA = (HDN_FIRST-9);
- HDN_GETDISPINFOW = (HDN_FIRST-29);
- HDN_BEGINDRAG = (HDN_FIRST-10);
- HDN_ENDDRAG = (HDN_FIRST-11);
- {$ENDIF}
- {$ifdef ie5plus}
- HDN_FILTERCHANGE = (HDN_FIRST-12);
- HDN_FILTERBTNCLICK = (HDN_FIRST-13);
- {$ENDIF}
- {$IFDEF UNICODE}
- HDN_ITEMCHANGING = HDN_ITEMCHANGINGW;
- HDN_ITEMCHANGED = HDN_ITEMCHANGEDW;
- HDN_ITEMCLICK = HDN_ITEMCLICKW;
- HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKW;
- HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKW;
- HDN_BEGINTRACK = HDN_BEGINTRACKW;
- HDN_ENDTRACK = HDN_ENDTRACKW;
- HDN_TRACK = HDN_TRACKW;
- {$ifdef ie3plus}
- HDN_GETDISPINFO = HDN_GETDISPINFOW;
- {$ENDIF}
- {$ELSE}
- HDN_ITEMCHANGING = HDN_ITEMCHANGINGA;
- HDN_ITEMCHANGED = HDN_ITEMCHANGEDA;
- HDN_ITEMCLICK = HDN_ITEMCLICKA;
- HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKA;
- HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKA;
- HDN_BEGINTRACK = HDN_BEGINTRACKA;
- HDN_ENDTRACK = HDN_ENDTRACKA;
- HDN_TRACK = HDN_TRACKA;
- {$ifdef ie3plus}
- HDN_GETDISPINFO = HDN_GETDISPINFOA;
- {$ENDIF}
- {$ENDIF}
- TYPE
- tagNMHEADERA = Record
- hdr : NMHDR;
- iItem : cint;
- iButton : cint;
- pitem : PHDITEMA;
- END;
- NMHEADERA = tagNMHEADERA;
- LPNMHEADERA = ^tagNMHEADERA;
- TNMHEADERA = tagNMHEADERA;
- PNMHEADERA = ^tagNMHEADERA;
- tagNMHEADERW = Record
- hdr : NMHDR;
- iItem : cint;
- iButton : cint;
- pitem : PHDITEMW;
- END;
- NMHEADERW = tagNMHEADERW;
- LPNMHEADERW = ^tagNMHEADERW;
- TNMHEADERW = tagNMHEADERW;
- PNMHEADERW = ^tagNMHEADERW;
- {$IFDEF UNICODE}
- NMHEADER = NMHEADERW;
- LPNMHEADER = LPNMHEADERW;
- {$ELSE}
- NMHEADER = NMHEADERA;
- LPNMHEADER = LPNMHEADERA;
- {$ENDIF}
- {$ifdef ie3plus}
- HD_NOTIFYA = NMHEADERA;
- HD_NOTIFYW = NMHEADERW;
- {$ELSE}
- // tagNMHEADERA = _HD_NOTIFY;
- // NMHEADERA = HD_NOTIFYA;
- // tagHMHEADERW = _HD_NOTIFYW;
- // NMHEADERW = HD_NOTIFYW;
- {$ENDIF}
- HD_NOTIFY = NMHEADER;
- tagNMHDDISPINFOW = Record
- hdr : NMHDR;
- iItem : cint;
- mask : UINT;
- pszText : LPWSTR;
- cchTextMax : cint;
- iImage : cint;
- lParam : LPARAM;
- END;
- NMHDDISPINFOW = tagNMHDDISPINFOW;
- LPNMHDDISPINFOW = ^tagNMHDDISPINFOW;
- TNMHDDISPINFOW = tagNMHDDISPINFOW;
- PNMHDDISPINFOW = ^tagNMHDDISPINFOW;
- tagNMHDDISPINFOA = Record
- hdr : NMHDR;
- iItem : cint;
- mask : UINT;
- pszText : LPSTR;
- cchTextMax : cint;
- iImage : cint;
- lParam : LPARAM;
- END;
- NMHDDISPINFOA = tagNMHDDISPINFOA;
- LPNMHDDISPINFOA = ^tagNMHDDISPINFOA;
- TNMHDDISPINFOA = tagNMHDDISPINFOA;
- PNMHDDISPINFOA = ^tagNMHDDISPINFOA;
- {$IFDEF UNICODE}
- NMHDDISPINFO = NMHDDISPINFOW;
- LPNMHDDISPINFO = LPNMHDDISPINFOW;
- {$ELSE}
- NMHDDISPINFO = NMHDDISPINFOA;
- LPNMHDDISPINFO = LPNMHDDISPINFOA;
- {$ENDIF}
- {$ifdef ie5plus}
- tagNMHDFILTERBTNCLICK = Record
- hdr : NMHDR;
- iItem : cint;
- rc : RECT;
- END;
- NMHDFILTERBTNCLICK = tagNMHDFILTERBTNCLICK;
- LPNMHDFILTERBTNCLICK = ^tagNMHDFILTERBTNCLICK;
- TNMHDFILTERBTNCLICK = tagNMHDFILTERBTNCLICK;
- PNMHDFILTERBTNCLICK = ^tagNMHDFILTERBTNCLICK;
- {$ENDIF}
- {$ENDIF} // NOHEADER
- //====== TOOLBAR CONTROL ======================================================
- {$IFNDEF NOTOOLBAR}
- {$IFDEF _WIN32}
- CONST
- TOOLBARCLASSNAMEW = {L}'ToolbarWindow32';
- TOOLBARCLASSNAMEA = 'ToolbarWindow32';
- TYPE
- {$IFDEF UNICODE}
- TOOLBARCLASSNAME = TOOLBARCLASSNAMEW;
- {$ELSE}
- TOOLBARCLASSNAME = TOOLBARCLASSNAMEA;
- {$ENDIF}
- {$ELSE}
- CONST
- TOOLBARCLASSNAME = 'ToolbarWindow';
- {$ENDIF}
- TYPE
- _TBBUTTON = Record
- iBitmap : cint;
- idCommand : cint;
- fsState : BYTE;
- fsStyle : BYTE;
- {$IFDEF _WIN64}
- bReserved : ARRAY[0..5] OF BYTE; // padding for alignment
- {$ELSE}
- {$IFDEF _WIN32}
- bReserved : ARRAY[0..1] OF BYTE; // padding for alignment
- {$ENDIF}
- {$ENDIF}
- dwData : DWORD_PTR;
- iString : INT_PTR;
- END;
- TBBUTTON = _TBBUTTON;
- PTBBUTTON = {NEAR} ^_TBBUTTON; // ???
- LPTBBUTTON = ^_TBBUTTON;
- TTBBUTTON = _TBBUTTON;
- // PTBBUTTON = ^_TBBUTTON;
- LPCTBBUTTON = {const} ^TBBUTTON;
- _COLORMAP = Record
- xfrom : COLORREF;
- xto : COLORREF;
- END;
- COLORMAP = _COLORMAP;
- LPCOLORMAP = ^_COLORMAP;
- TCOLORMAP = _COLORMAP;
- PCOLORMAP = ^_COLORMAP;
- function CreateToolbarEx(hwnd:HWND;ws:DWORD;wID:UINT;nBitmaps:cint;
- hBMInst:HINST;
- wBMID:UINT_PTR;lpButtons:LPCTBBUTTON;iNumButtons:cint;dxButton:cint;
- dyButton:cint;dxBitmap:cint;dyBitmap:cint;uStructSize:UINT):HWND; external commctrldll name 'CreateToolbarEx';
- function CreateMappedBitmap(hInstance:HINST;idBitmap:INT_PTR;wFlags:UINT;lpColorMap:LPCOLORMAP;iNumMaps:cint):HBITMAP; external commctrldll name 'CreateMappedBitmap';
- CONST
- CMB_MASKED = $02;
- TBSTATE_CHECKED = $01;
- TBSTATE_PRESSED = $02;
- TBSTATE_ENABLED = $04;
- TBSTATE_HIDDEN = $08;
- TBSTATE_INDETERMINATE = $10;
- TBSTATE_WRAP = $20;
- {$ifdef ie3plus}
- TBSTATE_ELLIPSES = $40;
- {$ENDIF}
- {$ifdef ie4plus}
- TBSTATE_MARKED = $80;
- {$ENDIF}
- TBSTYLE_BUTTON = $0000; // obsolete; use BTNS_BUTTON instead
- TBSTYLE_SEP = $0001; // obsolete; use BTNS_SEP instead
- TBSTYLE_CHECK = $0002; // obsolete; use BTNS_CHECK instead
- TBSTYLE_GROUP = $0004; // obsolete; use BTNS_GROUP instead
- TBSTYLE_CHECKGROUP = (TBSTYLE_GROUP OR TBSTYLE_CHECK);// obsolete; use BTNS_CHECKGROUP instead
- {$ifdef ie3plus}
- TBSTYLE_DROPDOWN = $0008; // obsolete; use BTNS_DROPDOWN instead
- {$ENDIF}
- {$ifdef ie4plus}
- TBSTYLE_AUTOSIZE = $0010; // obsolete; use BTNS_AUTOSIZE instead
- TBSTYLE_NOPREFIX = $0020; // obsolete; use BTNS_NOPREFIX instead
- {$ENDIF}
- TBSTYLE_TOOLTIPS = $0100;
- TBSTYLE_WRAPABLE = $0200;
- TBSTYLE_ALTDRAG = $0400;
- {$ifdef ie3plus}
- TBSTYLE_FLAT = $0800;
- TBSTYLE_LIST = $1000;
- TBSTYLE_CUSTOMERASE = $2000;
- {$ENDIF}
- {$ifdef ie4plus}
- TBSTYLE_REGISTERDROP = $4000;
- TBSTYLE_TRANSPARENT = $8000;
- TBSTYLE_EX_DRAWDDARROWS = $00000001;
- {$ENDIF}
- {$ifdef ie5plus}
- BTNS_BUTTON = TBSTYLE_BUTTON; // 0x0000
- BTNS_SEP = TBSTYLE_SEP; // 0x0001
- BTNS_CHECK = TBSTYLE_CHECK; // 0x0002
- BTNS_GROUP = TBSTYLE_GROUP; // 0x0004
- BTNS_CHECKGROUP = TBSTYLE_CHECKGROUP; // (TBSTYLE_GROUP | TBSTYLE_CHECK)
- BTNS_DROPDOWN = TBSTYLE_DROPDOWN; // 0x0008
- BTNS_AUTOSIZE = TBSTYLE_AUTOSIZE; // 0x0010; automatically calculate the cx of the button
- BTNS_NOPREFIX = TBSTYLE_NOPREFIX; // 0x0020; this button should not have accel prefix
- {$ifdef ie501plus}
- BTNS_SHOWTEXT = $0040; // ignored unless TBSTYLE_EX_MIXEDBUTTONS is set
- {$ENDIF} // 0x0501
- BTNS_WHOLEDROPDOWN = $0080; // draw drop-down arrow, but without split arrow section
- {$ENDIF}
- {$ifdef ie501plus}
- TBSTYLE_EX_MIXEDBUTTONS = $00000008;
- TBSTYLE_EX_HIDECLIPPEDBUTTONS = $00000010; // don't show partially obscured buttons
- {$ENDIF} // 0x0501
- {$ifdef win32xp}
- TBSTYLE_EX_DOUBLEBUFFER = $00000080; // Double Buffer the toolbar
- {$ENDIF}
- {$ifdef ie4plus}
- // Custom Draw Structure
- TYPE
- _NMTBCUSTOMDRAW = Record
- nmcd : NMCUSTOMDRAW;
- hbrMonoDither : HBRUSH;
- hbrLines : HBRUSH; // For drawing lines on buttons
- hpenLines : HPEN; // For drawing lines on buttons
- clrText : COLORREF; // Color of text
- clrMark : COLORREF; // Color of text bk when marked. (only if TBSTATE_MARKED)
- clrTextHighlight : COLORREF; // Color of text when highlighted
- clrBtnFace : COLORREF; // Background of the button
- clrBtnHighlight : COLORREF; // 3D highlight
- clrHighlightHotTrack : COLORREF; // In conjunction with fHighlightHotTrack
- rcText : RECT; // Rect for text
- nStringBkMode : cint;
- nHLStringBkMode : cint;
- {$ifdef win32xp}
- iListGap : cint;
- {$ENDIF}
- END;
- NMTBCUSTOMDRAW = _NMTBCUSTOMDRAW;
- LPNMTBCUSTOMDRAW = ^_NMTBCUSTOMDRAW;
- TNMTBCUSTOMDRAW = _NMTBCUSTOMDRAW;
- PNMTBCUSTOMDRAW = ^_NMTBCUSTOMDRAW;
- // Toolbar custom draw return flags
- CONST
- TBCDRF_NOEDGES = $00010000; // Don't draw button edges
- TBCDRF_HILITEHOTTRACK = $00020000; // Use color of the button bk when hottracked
- TBCDRF_NOOFFSET = $00040000; // Don't offset button if pressed
- TBCDRF_NOMARK = $00080000; // Don't draw default highlight of image/text for TBSTATE_MARKED
- TBCDRF_NOETCHEDEFFECT = $00100000; // Don't draw etched effect for disabled items
- {$ENDIF}
- {$ifdef ie5plus}
- TBCDRF_BLENDICON = $00200000; // Use ILD_BLEND50 on the icon image
- TBCDRF_NOBACKGROUND = $00400000; // Use ILD_BLEND50 on the icon image
- {$ENDIF}
- CONST
- TB_ENABLEBUTTON = (WM_USER + 1);
- TB_CHECKBUTTON = (WM_USER + 2);
- TB_PRESSBUTTON = (WM_USER + 3);
- TB_HIDEBUTTON = (WM_USER + 4);
- TB_INDETERMINATE = (WM_USER + 5);
- {$ifdef ie4plus}
- TB_MARKBUTTON = (WM_USER + 6);
- {$ENDIF}
- TB_ISBUTTONENABLED = (WM_USER + 9);
- TB_ISBUTTONCHECKED = (WM_USER + 10);
- TB_ISBUTTONPRESSED = (WM_USER + 11);
- TB_ISBUTTONHIDDEN = (WM_USER + 12);
- TB_ISBUTTONINDETERMINATE = (WM_USER + 13);
- {$ifdef ie4plus}
- TB_ISBUTTONHIGHLIGHTED = (WM_USER + 14);
- {$ENDIF}
- TB_SETSTATE = (WM_USER + 17);
- TB_GETSTATE = (WM_USER + 18);
- TB_ADDBITMAP = (WM_USER + 19);
- {$IFDEF _WIN32}
- TYPE
- tagTBADDBITMAP = Record
- hInst : HINSTANCE;
- nID : UINT_PTR;
- END;
- TBADDBITMAP = tagTBADDBITMAP;
- LPTBADDBITMAP = ^tagTBADDBITMAP;
- TTBADDBITMAP = tagTBADDBITMAP;
- PTBADDBITMAP = ^tagTBADDBITMAP;
- CONST
- HINST_COMMCTRL = ((HINSTANCE)-1);
- IDB_STD_SMALL_COLOR = 0;
- IDB_STD_LARGE_COLOR = 1;
- IDB_VIEW_SMALL_COLOR = 4;
- IDB_VIEW_LARGE_COLOR = 5;
- {$ifdef ie3plus}
- IDB_HIST_SMALL_COLOR = 8;
- IDB_HIST_LARGE_COLOR = 9;
- {$ENDIF}
- // icon indexes for standard bitmap
- STD_CUT = 0;
- STD_COPY = 1;
- STD_PASTE = 2;
- STD_UNDO = 3;
- STD_REDOW = 4;
- STD_DELETE = 5;
- STD_FILENEW = 6;
- STD_FILEOPEN = 7;
- STD_FILESAVE = 8;
- STD_PRINTPRE = 9;
- STD_PROPERTIES = 10;
- STD_HELP = 11;
- STD_FIND = 12;
- STD_REPLACE = 13;
- STD_PRINT = 14;
- // icon indexes for standard view bitmap
- VIEW_LARGEICONS = 0;
- VIEW_SMALLICONS = 1;
- VIEW_LIST = 2;
- VIEW_DETAILS = 3;
- VIEW_SORTNAME = 4;
- VIEW_SORTSIZE = 5;
- VIEW_SORTDATE = 6;
- VIEW_SORTTYPE = 7;
- VIEW_PARENTFOLDER = 8;
- VIEW_NETCONNECT = 9;
- VIEW_NETDISCONNECT = 10;
- VIEW_NEWFOLDER = 11;
- {$ifdef ie4plus}
- VIEW_VIEWMENU = 12;
- {$ENDIF}
- {$ifdef ie3plus}
- HIST_BACK = 0;
- HIST_FORWARD = 1;
- HIST_FAVORITES = 2;
- HIST_ADDTOFAVORITES = 3;
- HIST_VIEWTREE = 4;
- {$ENDIF}
- {$ENDIF}
- {$ifdef ie4plus}
- TB_ADDBUTTONSA = (WM_USER + 20);
- TB_INSERTBUTTONA = (WM_USER + 21);
- {$ELSE}
- TB_ADDBUTTONS = (WM_USER + 20);
- TB_INSERTBUTTON = (WM_USER + 21);
- {$ENDIF}
- TB_DELETEBUTTON = (WM_USER + 22);
- TB_GETBUTTON = (WM_USER + 23);
- TB_BUTTONCOUNT = (WM_USER + 24);
- TB_COMMANDTOINDEX = (WM_USER + 25);
- {$IFDEF _WIN32}
- TYPE
- tagTBSAVEPARAMSA = Record
- hkr : HKEY;
- pszSubKey : LPCSTR;
- pszValueName : LPCSTR;
- END;
- TBSAVEPARAMSA = tagTBSAVEPARAMSA;
- LPTBSAVEPARAMSA = ^tagTBSAVEPARAMSA;
- TTBSAVEPARAMSA = tagTBSAVEPARAMSA;
- PTBSAVEPARAMSA = ^tagTBSAVEPARAMSA;
- tagTBSAVEPARAMSW = Record
- hkr : HKEY;
- pszSubKey : LPCWSTR;
- pszValueName : LPCWSTR;
- END;
- TBSAVEPARAMSW = tagTBSAVEPARAMSW;
- LPTBSAVEPARAMW = ^tagTBSAVEPARAMSW;
- TTBSAVEPARAMSW = tagTBSAVEPARAMSW;
- PTBSAVEPARAMSW = ^tagTBSAVEPARAMSW;
- {$IFDEF UNICODE}
- TBSAVEPARAMS = TBSAVEPARAMSW;
- LPTBSAVEPARAMS = LPTBSAVEPARAMSW;
- {$ELSE}
- TBSAVEPARAMS = TBSAVEPARAMSA;
- LPTBSAVEPARAMS = LPTBSAVEPARAMSA;
- {$ENDIF}
- {$ENDIF} // _WIN32
- CONST
- TB_SAVERESTOREA = (WM_USER + 26);
- TB_SAVERESTOREW = (WM_USER + 76);
- TB_CUSTOMIZE = (WM_USER + 27);
- TB_ADDSTRINGA = (WM_USER + 28);
- TB_ADDSTRINGW = (WM_USER + 77);
- TB_GETITEMRECT = (WM_USER + 29);
- TB_BUTTONSTRUCTSIZE = (WM_USER + 30);
- TB_SETBUTTONSIZE = (WM_USER + 31);
- TB_SETBITMAPSIZE = (WM_USER + 32);
- TB_AUTOSIZE = (WM_USER + 33);
- TB_GETTOOLTIPS = (WM_USER + 35);
- TB_SETTOOLTIPS = (WM_USER + 36);
- TB_SETPARENT = (WM_USER + 37);
- TB_SETROWS = (WM_USER + 39);
- TB_GETROWS = (WM_USER + 40);
- TB_SETCMDID = (WM_USER + 42);
- TB_CHANGEBITMAP = (WM_USER + 43);
- TB_GETBITMAP = (WM_USER + 44);
- TB_GETBUTTONTEXTA = (WM_USER + 45);
- TB_GETBUTTONTEXTW = (WM_USER + 75);
- TB_REPLACEBITMAP = (WM_USER + 46);
- {$ifdef ie3plus}
- TB_SETINDENT = (WM_USER + 47);
- TB_SETIMAGELIST = (WM_USER + 48);
- TB_GETIMAGELIST = (WM_USER + 49);
- TB_LOADIMAGES = (WM_USER + 50);
- TB_GETRECT = (WM_USER + 51); // wParam is the Cmd instead of index
- TB_SETHOTIMAGELIST = (WM_USER + 52);
- TB_GETHOTIMAGELIST = (WM_USER + 53);
- TB_SETDISABLEDIMAGELIST = (WM_USER + 54);
- TB_GETDISABLEDIMAGELIST = (WM_USER + 55);
- TB_SETSTYLE = (WM_USER + 56);
- TB_GETSTYLE = (WM_USER + 57);
- TB_GETBUTTONSIZE = (WM_USER + 58);
- TB_SETBUTTONWIDTH = (WM_USER + 59);
- TB_SETMAXTEXTROWS = (WM_USER + 60);
- TB_GETTEXTROWS = (WM_USER + 61);
- {$ENDIF} // _WIN32_IE >= 0x0300
- CONST
- {$IFDEF UNICODE}
- TB_SAVERESTORE = TB_SAVERESTOREW;
- TB_ADDSTRING = TB_ADDSTRINGW;
- {$ELSE}
- TB_GETBUTTONTEXT = TB_GETBUTTONTEXTA;
- TB_SAVERESTORE = TB_SAVERESTOREA;
- TB_ADDSTRING = TB_ADDSTRINGA;
- {$ENDIF}
- {$ifdef ie4plus}
- CONST
- TB_GETOBJECT = (WM_USER + 62); // wParam == IID, lParam void **ppv
- TB_GETHOTITEM = (WM_USER + 71);
- TB_SETHOTITEM = (WM_USER + 72); // wParam == iHotItem
- TB_SETANCHORHIGHLIGHT = (WM_USER + 73); // wParam == TRUE/FALSE
- TB_GETANCHORHIGHLIGHT = (WM_USER + 74);
- TB_MAPACCELERATORA = (WM_USER + 78); // wParam == ch, lParam int * pidBtn
- TYPE
- TBINSERTMARK = Record
- iButton : cint;
- dwFlags : DWORD;
- END;
- LPTBINSERTMARK = ^TBINSERTMARK;
- TTBINSERTMARK = TBINSERTMARK;
- PTBINSERTMARK = ^TBINSERTMARK;
- CONST
- TBIMHT_AFTER = $00000001; // TRUE = insert After iButton, otherwise before
- TBIMHT_BACKGROUND = $00000002; // TRUE iff missed buttons completely
- TB_GETINSERTMARK = (WM_USER + 79); // lParam == LPTBINSERTMARK
- TB_SETINSERTMARK = (WM_USER + 80); // lParam == LPTBINSERTMARK
- TB_INSERTMARKHITTEST = (WM_USER + 81); // wParam == LPPOINT lParam == LPTBINSERTMARK
- TB_MOVEBUTTON = (WM_USER + 82);
- TB_GETMAXSIZE = (WM_USER + 83); // lParam == LPSIZE
- TB_SETEXTENDEDSTYLE = (WM_USER + 84); // For TBSTYLE_EX_*
- TB_GETEXTENDEDSTYLE = (WM_USER + 85); // For TBSTYLE_EX_*
- TB_GETPADDING = (WM_USER + 86);
- TB_SETPADDING = (WM_USER + 87);
- TB_SETINSERTMARKCOLOR = (WM_USER + 88);
- TB_GETINSERTMARKCOLOR = (WM_USER + 89);
- TB_SETCOLORSCHEME = CCM_SETCOLORSCHEME; // lParam is color scheme
- TB_GETCOLORSCHEME = CCM_GETCOLORSCHEME; // fills in COLORSCHEME pointed to by lParam
- TB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- TB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- TB_MAPACCELERATORW = (WM_USER + 90); // wParam == ch, lParam int * pidBtn
- CONST
- {$IFDEF UNICODE}
- TB_MAPACCELERATOR = TB_MAPACCELERATORW;
- {$ELSE}
- TB_MAPACCELERATOR = TB_MAPACCELERATORA;
- {$ENDIF}
- {$ENDIF} // _WIN32_IE >= 0x0400
- TYPE
- TBREPLACEBITMAP = Record
- hInstOld : HINST;
- nIDOld : UINT_PTR;
- hInstNew : HINST;
- nIDNew : UINT_PTR;
- nButtons : cint;
- END;
- LPTBREPLACEBITMAP = ^TBREPLACEBITMAP;
- TTBREPLACEBITMAP = TBREPLACEBITMAP;
- PTBREPLACEBITMAP = ^TBREPLACEBITMAP;
- {$IFDEF _WIN32}
- CONST
- TBBF_LARGE = $0001;
- TB_GETBITMAPFLAGS = (WM_USER + 41);
- {$ifdef ie4plus}
- TBIF_IMAGE = $00000001;
- TBIF_TEXT = $00000002;
- TBIF_STATE = $00000004;
- TBIF_STYLE = $00000008;
- TBIF_LPARAM = $00000010;
- TBIF_COMMAND = $00000020;
- TBIF_SIZE = $00000040;
- {$ifdef ie5plus}
- TBIF_BYINDEX = $80000000; // this specifies that the wparam in Get/SetButtonInfo is an index, not id
- {$ENDIF}
- TYPE
- TBBUTTONINFOA = Record
- cbSize : UINT;
- dwMask : DWORD;
- idCommand : cint;
- iImage : cint;
- fsState : BYTE;
- fsStyle : BYTE;
- cx : WORD;
- lParam : DWORD_PTR;
- pszText : LPSTR;
- cchText : cint;
- END;
- LPTBBUTTONINFOA = ^TBBUTTONINFOA;
- TTBBUTTONINFOA = TBBUTTONINFOA;
- PTBBUTTONINFOA = ^TBBUTTONINFOA;
- TBBUTTONINFOW = Record
- cbSize : UINT;
- dwMask : DWORD;
- idCommand : cint;
- iImage : cint;
- fsState : BYTE;
- fsStyle : BYTE;
- cx : WORD;
- lParam : DWORD_PTR;
- pszText : LPWSTR;
- cchText : cint;
- END;
- LPTBBUTTONINFOW = ^TBBUTTONINFOW;
- TTBBUTTONINFOW= TBBUTTONINFOW;
- PTBBUTTONINFOW= ^TBBUTTONINFOW;
- {$IFDEF UNICODE}
- TBBUTTONINFO = TBBUTTONINFOW;
- LPTBBUTTONINFO = LPTBBUTTONINFOW;
- {$ELSE}
- TBBUTTONINFO = TBBUTTONINFOA;
- LPTBBUTTONINFO = LPTBBUTTONINFOA;
- {$ENDIF}
- // BUTTONINFO APIs do NOT support the string pool.
- CONST
- TB_GETBUTTONINFOW = (WM_USER + 63);
- TB_SETBUTTONINFOW = (WM_USER + 64);
- TB_GETBUTTONINFOA = (WM_USER + 65);
- TB_SETBUTTONINFOA = (WM_USER + 66);
- TYPE
- {$IFDEF UNICODE}
- TB_GETBUTTONINFO = TB_GETBUTTONINFOW;
- TB_SETBUTTONINFO = TB_SETBUTTONINFOW;
- {$ELSE}
- TB_GETBUTTONINFO = TB_GETBUTTONINFOA;
- TB_SETBUTTONINFO = TB_SETBUTTONINFOA;
- {$ENDIF}
- CONST
- TB_INSERTBUTTONW = (WM_USER + 67);
- TB_ADDBUTTONSW = (WM_USER + 68);
- TB_HITTEST = (WM_USER + 69);
- // New post Win95/NT4 for InsertButton and AddButton. if iString member
- // is a pointer to a string, it will be handled as a string like listview
- // (although LPSTR_TEXTCALLBACK is not supported).
- TYPE
- {$IFDEF UNICODE}
- TB_INSERTBUTTON = TB_INSERTBUTTONW;
- TB_ADDBUTTONS = TB_ADDBUTTONSW;
- {$ELSE}
- TB_INSERTBUTTON = TB_INSERTBUTTONA;
- TB_ADDBUTTONS = TB_ADDBUTTONSA;
- {$ENDIF}
- CONST
- TB_SETDRAWTEXTFLAGS = (WM_USER + 70); // wParam == mask lParam == bit values
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$ifdef ie5plus}
- TB_GETSTRINGW = (WM_USER + 91);
- TB_GETSTRINGA = (WM_USER + 92);
- {$IFDEF UNICODE}
- TB_GETSTRING = TB_GETSTRINGW;
- {$ELSE}
- TB_GETSTRING = TB_GETSTRINGA;
- {$ENDIF}
- {$ENDIF} // _WIN32_IE >= 0x0500
- {$ifdef win32xp}
- CONST
- TBMF_PAD = $00000001;
- TBMF_BARPAD = $00000002;
- TBMF_BUTTONSPACING = $00000004;
- TYPE
- TBMETRICS = Record
- cbSize : UINT;
- dwMask : DWORD;
- cxPad : cint; // PAD
- cyPad : cint;
- cxBarPad : cint; // BARPAD
- cyBarPad : cint;
- cxButtonSpacing : cint; // BUTTONSPACING
- cyButtonSpacing : cint;
- END;
- LPTBMETRICS = ^TBMETRICS;
- TTBMETRICS = TBMETRICS;
- PTBMETRICS = ^TBMETRICS;
- CONST
- TB_GETMETRICS = (WM_USER + 101);
- TB_SETMETRICS = (WM_USER + 102);
- {$ENDIF}
- {$ifdef win32xp}
- TB_SETWINDOWTHEME = CCM_SETWINDOWTHEME;
- {$ENDIF}
- TBN_GETBUTTONINFOA = (TBN_FIRST-0);
- TBN_BEGINDRAG = (TBN_FIRST-1);
- TBN_ENDDRAG = (TBN_FIRST-2);
- TBN_BEGINADJUST = (TBN_FIRST-3);
- TBN_ENDADJUST = (TBN_FIRST-4);
- TBN_RESET = (TBN_FIRST-5);
- TBN_QUERYINSERT = (TBN_FIRST-6);
- TBN_QUERYDELETE = (TBN_FIRST-7);
- TBN_TOOLBARCHANGE = (TBN_FIRST-8);
- TBN_CUSTHELP = (TBN_FIRST-9);
- {$ifdef ie3plus}
- TBN_DROPDOWN = (TBN_FIRST - 10);
- {$ENDIF}
- {$ifdef ie4plus}
- TBN_GETOBJECT = (TBN_FIRST - 12);
- // Structure for TBN_HOTITEMCHANGE notification
- //
- TYPE
- tagNMTBHOTITEM = Record
- hdr : NMHDR;
- idOld : cint;
- idNew : cint;
- dwFlags : DWORD; // HICF_*
- END;
- NMTBHOTITEM = tagNMTBHOTITEM;
- LPNMTBHOTITEM = ^tagNMTBHOTITEM;
- TNMTBHOTITEM = tagNMTBHOTITEM;
- PNMTBHOTITEM = ^tagNMTBHOTITEM;
- // Hot item change flags
- CONST
- HICF_OTHER = $00000000;
- HICF_MOUSE = $00000001; // Triggered by mouse
- HICF_ARROWKEYS = $00000002; // Triggered by arrow keys
- HICF_ACCELERATOR = $00000004; // Triggered by accelerator
- HICF_DUPACCEL = $00000008; // This accelerator is not unique
- HICF_ENTERING = $00000010; // idOld is invalid
- HICF_LEAVING = $00000020; // idNew is invalid
- HICF_RESELECT = $00000040; // hot item reselected
- HICF_LMOUSE = $00000080; // left mouse button selected
- HICF_TOGGLEDROPDOWN = $00000100; // Toggle button's dropdown state
- TBN_HOTITEMCHANGE = (TBN_FIRST - 13);
- TBN_DRAGOUT = (TBN_FIRST - 14); // this is sent when the user clicks down on a button then drags off the button
- TBN_DELETINGBUTTON = (TBN_FIRST - 15); // uses TBNOTIFY
- TBN_GETDISPINFOA = (TBN_FIRST - 16); // This is sent when the toolbar needs some display information
- TBN_GETDISPINFOW = (TBN_FIRST - 17); // This is sent when the toolbar needs some display information
- TBN_GETINFOTIPA = (TBN_FIRST - 18);
- TBN_GETINFOTIPW = (TBN_FIRST - 19);
- TBN_GETBUTTONINFOW = (TBN_FIRST - 20);
- {$ifdef ie5plus}
- TBN_RESTORE = (TBN_FIRST - 21);
- TBN_SAVE = (TBN_FIRST - 22);
- TBN_INITCUSTOMIZE = (TBN_FIRST - 23);
- TBNRF_HIDEHELP = $00000001;
- TBNRF_ENDCUSTOMIZE = $00000002;
- {$ENDIF} // (_WIN32_IE >= 0x0500)
- {$ifdef ie5plus}
- TYPE
- tagNMTBSAVE = Record
- hdr : NMHDR;
- pData : PDWORD;
- pCurrent : PDWORD;
- cbData : UINT;
- iItem : cint;
- cButtons : cint;
- tbButton : TBBUTTON;
- END;
- NMTBSAVE = tagNMTBSAVE;
- LPNMTBSAVE = ^tagNMTBSAVE;
- TNMTBSAVE = tagNMTBSAVE;
- PNMTBSAVE = ^tagNMTBSAVE;
- tagNMTBRESTORE = Record
- hdr : NMHDR;
- pData : PDWORD;
- pCurrent : PDWORD;
- cbData : UINT;
- iItem : cint;
- cButtons : cint;
- cbBytesPerRecord : cint;
- tbButton : TBBUTTON;
- END;
- NMTBRESTORE = tagNMTBRESTORE;
- LPNMTBRESTORE = ^tagNMTBRESTORE;
- TNMTBRESTORE = tagNMTBRESTORE;
- PNMTBRESTORE = ^tagNMTBRESTORE;
- {$ENDIF} // (_WIN32_IE >= 0x0500)
- tagNMTBGETINFOTIPA = Record
- hdr : NMHDR;
- pszText : LPSTR;
- cchTextMax : cint;
- iItem : cint;
- lParam : LPARAM;
- END;
- NMTBGETINFOTIPA = tagNMTBGETINFOTIPA;
- LPNMTBGETINFOTIPA = ^tagNMTBGETINFOTIPA;
- TNMTBGETINFOTIPA = tagNMTBGETINFOTIPA;
- PNMTBGETINFOTIPA = ^tagNMTBGETINFOTIPA;
- tagNMTBGETINFOTIPW = Record
- hdr : NMHDR;
- pszText : LPWSTR;
- cchTextMax : cint;
- iItem : cint;
- lParam : LPARAM;
- END;
- NMTBGETINFOTIPW = tagNMTBGETINFOTIPW;
- LPNMTBGETINFOTIPW = ^tagNMTBGETINFOTIPW;
- TNMTBGETINFOTIPW = tagNMTBGETINFOTIPW;
- PNMTBGETINFOTIPW = ^tagNMTBGETINFOTIPW;
- {$IFDEF UNICODE}
- TBN_GETINFOTIP = TBN_GETINFOTIPW;
- NMTBGETINFOTIP = NMTBGETINFOTIPW;
- LPNMTBGETINFOTIP = LPNMTBGETINFOTIPW;
- {$ELSE}
- TBN_GETINFOTIP = TBN_GETINFOTIPA;
- NMTBGETINFOTIP = NMTBGETINFOTIPA;
- LPNMTBGETINFOTIP = LPNMTBGETINFOTIPA;
- {$ENDIF}
- CONST
- TBNF_IMAGE = $00000001;
- TBNF_TEXT = $00000002;
- TBNF_DI_SETITEM = $10000000;
- TYPE
- NMTBDISPINFOA = Record
- hdr : NMHDR;
- dwMask : DWORD; // [in] Specifies the values requested .[out] Client ask the data to be set for future use
- idCommand : cint; // [in] id of button we're requesting info for
- lParam : DWORD_PTR; // [in] lParam of button
- iImage : cint; // [out] image index
- pszText : LPSTR; // [out] new text for item
- cchText : cint; // [in] size of buffer pointed to by pszText
- END;
- LPNMTBDISPINFOA = ^NMTBDISPINFOA;
- TNMTBDISPINFOA = NMTBDISPINFOA;
- PNMTBDISPINFOA = ^NMTBDISPINFOA;
- NMTBDISPINFOW = Record
- hdr : NMHDR;
- dwMask : DWORD; //[in] Specifies the values requested .[out] Client ask the data to be set for future use
- idCommand : cint; // [in] id of button we're requesting info for
- lParam : DWORD_PTR; // [in] lParam of button
- iImage : cint; // [out] image index
- pszText : LPWSTR; // [out] new text for item
- cchText : cint; // [in] size of buffer pointed to by pszText
- END;
- LPNMTBDISPINFOW = ^NMTBDISPINFOW;
- TNMTBDISPINFOW = NMTBDISPINFOW;
- PNMTBDISPINFOW = ^NMTBDISPINFOW;
- {$IFDEF UNICODE}
- TBN_GETDISPINFO = TBN_GETDISPINFOW;
- NMTBDISPINFO = NMTBDISPINFOW;
- LPNMTBDISPINFO = LPNMTBDISPINFOW;
- {$ELSE}
- TBN_GETDISPINFO = TBN_GETDISPINFOA;
- NMTBDISPINFO = NMTBDISPINFOA;
- LPNMTBDISPINFO = LPNMTBDISPINFOA;
- {$ENDIF}
- // Return codes for TBN_DROPDOWN
- CONST
- TBDDRET_DEFAULT = 0;
- TBDDRET_NODEFAULT = 1;
- TBDDRET_TREATPRESSED = 2; // Treat as a standard press button
- {$ENDIF}
- {$IFDEF UNICODE}
- TYPE
- TBN_GETBUTTONINFO = TBN_GETBUTTONINFOW;
- {$ELSE}
- TBN_GETBUTTONINFO = TBN_GETBUTTONINFOA;
- {$ENDIF}
- {$ifdef ie3plus}
- TBNOTIFYA = NMTOOLBARA;
- TBNOTIFYW = NMTOOLBARW;
- LPTBNOTIFYA = LPNMTOOLBARA;
- LPTBNOTIFYW = LPNMTOOLBARW;
- {$ELSE}
- tagNMTOOLBARA = tagTBNOTIFYA;
- NMTOOLBARA = TBNOTIFYA;
- LPNMTOOLBARA = LPTBNOTIFYA;
- tagNMTOOLBARW = tagTBNOTIFYW;
- NMTOOLBARW = TBNOTIFYW;
- LPNMTOOLBARW = LPTBNOTIFYW;
- {$ENDIF}
- CONST
- TBNOTIFY = NMTOOLBAR;
- TYPE
- LPTBNOTIFY = LPNMTOOLBAR;
- {$ifdef ie3plus}
- tagNMTOOLBARA = Record
- hdr : NMHDR;
- iItem : cint;
- tbButton : TBBUTTON;
- cchText : cint;
- pszText : LPSTR;
- {$ifdef ie5plus}
- rcButton : RECT;
- {$ENDIF}
- END;
- NMTOOLBARA = tagNMTOOLBARA;
- LPNMTOOLBARA = ^tagNMTOOLBARA;
- TNMTOOLBARA = tagNMTOOLBARA;
- PNMTOOLBARA = ^tagNMTOOLBARA;
- {$ENDIF}
- {$ifdef ie3plus}
- tagNMTOOLBARW = Record
- hdr : NMHDR;
- iItem : cint;
- tbButton : TBBUTTON;
- cchText : cint;
- pszText : LPWSTR;
- {$ifdef ie5plus}
- rcButton : RECT;
- {$ENDIF}
- END;
- NMTOOLBARW = tagNMTOOLBARW;
- LPNMTOOLBARW = ^tagNMTOOLBARW;
- TNMTOOLBARW = tagNMTOOLBARW;
- PNMTOOLBARW = ^tagNMTOOLBARW;
- {$ENDIF}
- {$IFDEF UNICODE}
- NMTOOLBAR = NMTOOLBARW;
- LPNMTOOLBAR = LPNMTOOLBARW;
- {$ELSE}
- NMTOOLBAR = NMTOOLBARA;
- LPNMTOOLBAR = LPNMTOOLBARA;
- {$ENDIF}
- {$ENDIF}
- {$ENDIF} // NOTOOLBAR
- {$ifdef ie3plus}
- //====== REBAR CONTROL ========================================================
- {$IFNDEF NOREBAR}
- {$IFDEF _WIN32}
- CONST
- REBARCLASSNAMEW = {L}'ReBarWindow32';
- REBARCLASSNAMEA = 'ReBarWindow32';
- TYPE
- {$IFDEF UNICODE}
- REBARCLASSNAME = REBARCLASSNAMEW;
- {$ELSE}
- REBARCLASSNAME = REBARCLASSNAMEA;
- {$ENDIF}
- {$ELSE}
- CONST
- REBARCLASSNAME = 'ReBarWindow';
- {$ENDIF}
- RBIM_IMAGELIST = $00000001;
- // begin_r_commctrl
- {$ifdef ie4plus}
- RBS_TOOLTIPS = $0100;
- RBS_VARHEIGHT = $0200;
- RBS_BANDBORDERS = $0400;
- RBS_FIXEDORDER = $0800;
- RBS_REGISTERDROP = $1000;
- RBS_AUTOSIZE = $2000;
- RBS_VERTICALGRIPPER = $4000; // this always has the vertical gripper (default for horizontal mode)
- RBS_DBLCLKTOGGLE = $8000;
- {$ELSE}
- RBS_TOOLTIPS = $00000100;
- RBS_VARHEIGHT = $00000200;
- RBS_BANDBORDERS = $00000400;
- RBS_FIXEDORDER = $00000800;
- {$ENDIF} // _WIN32_IE >= 0x0400
- // end_r_commctrl
- TYPE
- tagREBARINFO = Record
- cbSize : UINT;
- fMask : UINT;
- {$IFNDEF NOIMAGEAPIS}
- himl : HIMAGELIST;
- {$ELSE}
- himl : HANDLE;
- {$ENDIF}
- END;
- REBARINFO = tagREBARINFO;
- LPREBARINFO = ^tagREBARINFO;
- TREBARINFO = tagREBARINFO;
- PREBARINFO = ^tagREBARINFO;
- CONST
- RBBS_BREAK = $00000001; // break to new line
- RBBS_FIXEDSIZE = $00000002; // band can't be sized
- RBBS_CHILDEDGE = $00000004; // edge around top & bottom of child window
- RBBS_HIDDEN = $00000008; // don't show
- RBBS_NOVERT = $00000010; // don't show when vertical
- RBBS_FIXEDBMP = $00000020; // bitmap doesn't move during band resize
- {$ifdef ie4plus }
- RBBS_VARIABLEHEIGHT = $00000040; // allow autosizing of this child vertically
- RBBS_GRIPPERALWAYS = $00000080; // always show the gripper
- RBBS_NOGRIPPER = $00000100; // never show the gripper
- {$ifdef ie5plus}
- RBBS_USECHEVRON = $00000200; // display drop-down button for this band if it's sized smaller than ideal width
- {$ifdef IE501plus}
- RBBS_HIDETITLE = $00000400; // keep band title hidden
- RBBS_TOPALIGN = $00000800; // keep band title hidden
- {$ENDIF} // 0x0501 //
- {$ENDIF} // 0x0500 //
- {$ENDIF} // 0x0400 //
- RBBIM_STYLE = $00000001;
- RBBIM_COLORS = $00000002;
- RBBIM_TEXT = $00000004;
- RBBIM_IMAGE = $00000008;
- RBBIM_CHILD = $00000010;
- RBBIM_CHILDSIZE = $00000020;
- RBBIM_SIZE = $00000040;
- RBBIM_BACKGROUND = $00000080;
- RBBIM_ID = $00000100;
- {$ifdef ie4plus}
- RBBIM_IDEALSIZE = $00000200;
- RBBIM_LPARAM = $00000400;
- RBBIM_HEADERSIZE = $00000800; // control the size of the header
- {$ENDIF}
- TYPE
- tagREBARBANDINFOA = Record
- cbSize : UINT;
- fMask : UINT;
- fStyle : UINT;
- clrFore : COLORREF;
- clrBack : COLORREF;
- lpText : LPSTR;
- cch : UINT;
- iImage : cint;
- hwndChild : HWND;
- cxMinChild : UINT;
- cyMinChild : UINT;
- cx : UINT;
- hbmBack : HBITMAP;
- wID : UINT;
- {$ifdef ie4plus}
- cyChild : UINT;
- cyMaxChild : UINT;
- cyIntegral : UINT;
- cxIdeal : UINT;
- lParam : LPARAM;
- cxHeader : UINT;
- {$ENDIF}
- END;
- REBARBANDINFOA = tagREBARBANDINFOA;
- LPREBARBANDINFOA = ^tagREBARBANDINFOA;
- TREBARBANDINFOA = tagREBARBANDINFOA;
- PREBARBANDINFOA = ^tagREBARBANDINFOA;
- LPCREBARBANDINFOA = ^REBARBANDINFOA;
- // #define REBARBANDINFOA_V3_SIZE CCSIZEOF_STRUCT(REBARBANDINFOA, wID)
- // #define REBARBANDINFOW_V3_SIZE CCSIZEOF_STRUCT(REBARBANDINFOW, wID)
- tagREBARBANDINFOW = Record
- cbSize : UINT;
- fMask : UINT;
- fStyle : UINT;
- clrFore : COLORREF;
- clrBack : COLORREF;
- lpText : LPWSTR;
- cch : UINT;
- iImage : cint;
- hwndChild : HWND;
- cxMinChild : UINT;
- cyMinChild : UINT;
- cx : UINT;
- hbmBack : HBITMAP;
- wID : UINT;
- {$ifdef ie4plus}
- cyChild : UINT;
- cyMaxChild : UINT;
- cyIntegral : UINT;
- cxIdeal : UINT;
- lParam : LPARAM;
- cxHeader : UINT;
- {$ENDIF}
- END;
- REBARBANDINFOW = tagREBARBANDINFOW;
- LPREBARBANDINFOW = ^tagREBARBANDINFOW;
- TREBARBANDINFOW = tagREBARBANDINFOW;
- PREBARBANDINFOW = ^tagREBARBANDINFOW;
- LPCREBARBANDINFOW = {const} ^REBARBANDINFOW;
- {$IFDEF UNICODE}
- REBARBANDINFO = REBARBANDINFOW;
- LPREBARBANDINFO = LPREBARBANDINFOW;
- LPCREBARBANDINFO = LPCREBARBANDINFOW;
- // REBARBANDINFO_V3_SIZE = REBARBANDINFOW_V3_SIZE;
- {$ELSE}
- REBARBANDINFO = REBARBANDINFOA;
- LPREBARBANDINFO = LPREBARBANDINFOA;
- LPCREBARBANDINFO = LPCREBARBANDINFOA;
- // REBARBANDINFO_V3_SIZE = REBARBANDINFOA_V3_SIZE;
- {$ENDIF}
- CONST
- RB_INSERTBANDA = (WM_USER + 1);
- RB_DELETEBAND = (WM_USER + 2);
- RB_GETBARINFO = (WM_USER + 3);
- RB_SETBARINFO = (WM_USER + 4);
- {$ifdef IE4plus}
- RB_GETBANDINFO = (WM_USER + 5);
- {$ENDIF}
- RB_SETBANDINFOA = (WM_USER + 6);
- RB_SETPARENT = (WM_USER + 7);
- {$ifdef ie4plus}
- RB_HITTEST = (WM_USER + 8);
- RB_GETRECT = (WM_USER + 9);
- {$ENDIF}
- RB_INSERTBANDW = (WM_USER + 10);
- RB_SETBANDINFOW = (WM_USER + 11);
- RB_GETBANDCOUNT = (WM_USER + 12);
- RB_GETROWCOUNT = (WM_USER + 13);
- RB_GETROWHEIGHT = (WM_USER + 14);
- {$ifdef ie4plus}
- RB_IDTOINDEX = (WM_USER + 16); // wParam == id
- RB_GETTOOLTIPS = (WM_USER + 17);
- RB_SETTOOLTIPS = (WM_USER + 18);
- RB_SETBKCOLOR = (WM_USER + 19); // sets the default BK color
- RB_GETBKCOLOR = (WM_USER + 20); // defaults to CLR_NONE
- RB_SETTEXTCOLOR = (WM_USER + 21);
- RB_GETTEXTCOLOR = (WM_USER + 22); // defaults to 0x00000000
- {$ifdef Win32XP}
- RBSTR_CHANGERECT = $0001; // flags for RB_SIZETORECT
- {$ENDIF}
- RB_SIZETORECT = (WM_USER + 23); // resize the rebar/break bands and such to this rect (lparam)
- {$ENDIF} // _WIN32_IE >= 0x0400
- RB_SETCOLORSCHEME = CCM_SETCOLORSCHEME; // lParam is color scheme
- RB_GETCOLORSCHEME = CCM_GETCOLORSCHEME; // fills in COLORSCHEME pointed to by lParam
- {$IFDEF UNICODE}
- RB_INSERTBAND = RB_INSERTBANDW;
- RB_SETBANDINFO = RB_SETBANDINFOW;
- {$ELSE}
- RB_INSERTBAND = RB_INSERTBANDA;
- RB_SETBANDINFO = RB_SETBANDINFOA;
- {$ENDIF}
- {$ifdef ie4plus}
- // for manual drag control
- // lparam == cursor pos
- // -1 means do it yourself.
- // -2 means use what you had saved before
- CONST
- RB_BEGINDRAG = (WM_USER + 24);
- RB_ENDDRAG = (WM_USER + 25);
- RB_DRAGMOVE = (WM_USER + 26);
- RB_GETBARHEIGHT = (WM_USER + 27);
- RB_GETBANDINFOW = (WM_USER + 28);
- RB_GETBANDINFOA = (WM_USER + 29);
- //TYPE
- {$IFDEF UNICODE}
- // RB_GETBANDINFO = RB_GETBANDINFOW;
- {$ELSE}
- // RB_GETBANDINFO = RB_GETBANDINFOA;
- {$ENDIF}
- CONST
- RB_MINIMIZEBAND = (WM_USER + 30);
- RB_MAXIMIZEBAND = (WM_USER + 31);
- RB_GETDROPTARGET = (CCM_GETDROPTARGET);
- RB_GETBANDBORDERS = (WM_USER + 34); // returns in lparam = lprc the amount of edges added to band wparam
- RB_SHOWBAND = (WM_USER + 35); // show/hide band
- RB_SETPALETTE = (WM_USER + 37);
- RB_GETPALETTE = (WM_USER + 38);
- RB_MOVEBAND = (WM_USER + 39);
- RB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- RB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$ifdef win32xp}
- RB_GETBANDMARGINS = (WM_USER + 40);
- RB_SETWINDOWTHEME = CCM_SETWINDOWTHEME;
- {$ENDIF}
- {$ifdef ie5plus}
- RB_PUSHCHEVRON = (WM_USER + 43);
- {$ENDIF} // _WIN32_IE >= 0x0500
- RBN_HEIGHTCHANGE = (RBN_FIRST - 0);
- {$ifdef ie4plus}
- RBN_GETOBJECT = (RBN_FIRST - 1);
- RBN_LAYOUTCHANGED = (RBN_FIRST - 2);
- RBN_AUTOSIZE = (RBN_FIRST - 3);
- RBN_BEGINDRAG = (RBN_FIRST - 4);
- RBN_ENDDRAG = (RBN_FIRST - 5);
- RBN_DELETINGBAND = (RBN_FIRST - 6); // Uses NMREBAR
- RBN_DELETEDBAND = (RBN_FIRST - 7); // Uses NMREBAR
- RBN_CHILDSIZE = (RBN_FIRST - 8);
- {$ifdef ie5plus}
- RBN_CHEVRONPUSHED = (RBN_FIRST - 10);
- {$ENDIF} // _WIN32_IE >= 0x0500
- {$ifdef ie5plus}
- RBN_MINMAX = (RBN_FIRST - 21);
- {$ENDIF}
- {$ifdef Win32XP}
- RBN_AUTOBREAK = (RBN_FIRST - 22);
- {$ENDIF}
- TYPE
- tagNMREBARCHILDSIZE = Record
- hdr : NMHDR;
- uBand : UINT;
- wID : UINT;
- rcChild : RECT;
- rcBand : RECT;
- END;
- NMREBARCHILDSIZE = tagNMREBARCHILDSIZE;
- LPNMREBARCHILDSIZE = ^tagNMREBARCHILDSIZE;
- TNMREBARCHILDSIZE = tagNMREBARCHILDSIZE;
- PNMREBARCHILDSIZE = ^tagNMREBARCHILDSIZE;
- tagNMREBAR = Record
- hdr : NMHDR;
- dwMask : DWORD; // RBNM_*
- uBand : UINT;
- fStyle : UINT;
- wID : UINT;
- lParam : LPARAM;
- END;
- NMREBAR = tagNMREBAR;
- LPNMREBAR = ^tagNMREBAR;
- TNMREBAR = tagNMREBAR;
- PNMREBAR = ^tagNMREBAR;
- // Mask flags for NMREBAR
- CONST
- RBNM_ID = $00000001;
- RBNM_STYLE = $00000002;
- RBNM_LPARAM = $00000004;
- TYPE
- tagNMRBAUTOSIZE = Record
- hdr : NMHDR;
- fChanged : BOOL;
- rcTarget : RECT;
- rcActual : RECT;
- END;
- NMRBAUTOSIZE = tagNMRBAUTOSIZE;
- LPNMRBAUTOSIZE = ^tagNMRBAUTOSIZE;
- TNMRBAUTOSIZE = tagNMRBAUTOSIZE;
- PNMRBAUTOSIZE = ^tagNMRBAUTOSIZE;
- {$ifdef ie5plus}
- tagNMREBARCHEVRON = Record
- hdr : NMHDR;
- uBand : UINT;
- wID : UINT;
- lParam : LPARAM;
- rc : RECT;
- lParamNM : LPARAM;
- END;
- NMREBARCHEVRON = tagNMREBARCHEVRON;
- LPNMREBARCHEVRON = ^tagNMREBARCHEVRON;
- TNMREBARCHEVRON = tagNMREBARCHEVRON;
- PNMREBARCHEVRON = ^tagNMREBARCHEVRON;
- {$ENDIF}
- {$ifdef Win32XP}
- CONST
- RBAB_AUTOSIZE = $0001; // These are not flags and are all mutually exclusive
- RBAB_ADDBAND = $0002;
- TYPE
- tagNMREBARAUTOBREAK = Record
- hdr : NMHDR;
- uBand : UINT;
- wID : UINT;
- lParam : LPARAM;
- uMsg : UINT;
- fStyleCurrent : UINT;
- fAutoBreak : BOOL;
- END;
- NMREBARAUTOBREAK = tagNMREBARAUTOBREAK;
- LPNMREBARAUTOBREAK = ^tagNMREBARAUTOBREAK;
- TNMREBARAUTOBREAK = tagNMREBARAUTOBREAK;
- PNMREBARAUTOBREAK = ^tagNMREBARAUTOBREAK;
- {$ENDIF}
- CONST
- RBHT_NOWHERE = $0001;
- RBHT_CAPTION = $0002;
- RBHT_CLIENT = $0003;
- RBHT_GRABBER = $0004;
- {$ifdef ie5plus}
- RBHT_CHEVRON = $0008;
- {$ENDIF}
- TYPE
- _RB_HITTESTINFO = Record
- pt : POINT;
- flags : UINT;
- iBand : cint;
- END;
- RBHITTESTINFO = _RB_HITTESTINFO;
- LPRBHITTESTINFO = ^_RB_HITTESTINFO;
- TRB_HITTESTINFO = _RB_HITTESTINFO;
- PRB_HITTESTINFO = ^_RB_HITTESTINFO;
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$ENDIF} // NOREBAR
- {$ENDIF} // _WIN32_IE >= 0x0300
- //====== TOOLTIPS CONTROL =====================================================
- {$IFNDEF NOTOOLTIPS}
- {$IFDEF _WIN32}
- CONST
- TOOLTIPS_CLASSW = {L}'tooltips_class32';
- TOOLTIPS_CLASSA = 'tooltips_class32';
- {$IFDEF UNICODE}
- TOOLTIPS_CLASS = TOOLTIPS_CLASSW;
- {$ELSE}
- TOOLTIPS_CLASS = TOOLTIPS_CLASSA;
- {$ENDIF}
- {$ELSE}
- CONST
- TOOLTIPS_CLASS = 'tooltips_class';
- {$ENDIF}
- TYPE
- tagTOOLINFOA = Record
- cbSize : UINT;
- uFlags : UINT;
- hwnd : HWND;
- uId : UINT_PTR;
- rect : RECT;
- hinst : HINST;
- lpszText : LPSTR;
- {$ifdef ie3plus}
- lParam : LPARAM;
- {$ENDIF}
- {$ifdef Win32XP}
- lpReserved : Pointer;
- {$ENDIF}
- END;
- TTTOOLINFOA = tagTOOLINFOA;
- PTOOLINFOA = {near} ^tagTOOLINFOA;
- LPTTTOOLINFOA = ^tagTOOLINFOA;
- TTOOLINFOA = tagTOOLINFOA;
- LPTOOLINFOA = ^tagTOOLINFOA;
- tagTOOLINFOW = Record
- cbSize : UINT;
- uFlags : UINT;
- hwnd : HWND;
- uId : UINT_PTR;
- rect : RECT;
- hinst : HINST;
- lpszText : LPWSTR;
- {$ifdef ie3plus}
- lParam : LPARAM;
- {$ENDIF}
- {$ifdef Win32XP}
- lpReserved : Pointer;
- {$ENDIF}
- END;
- TTTOOLINFOW = tagTOOLINFOW;
- PTOOLINFOW = {near} ^tagTOOLINFOW;
- LPTTTOOLINFOW = ^tagTOOLINFOW;
- TTOOLINFOW = tagTOOLINFOW;
- LPTOOLINFOW = ^tagTOOLINFOW;
- {$IFDEF UNICODE}
- TTTOOLINFO = TTTOOLINFOW;
- PTOOLINFO = PTOOLINFOW;
- LPTTTOOLINFO = LPTTTOOLINFOW;
- // TTTOOLINFO_V1_SIZE = TTTOOLINFOW_V1_SIZE;
- {$ELSE}
- PTOOLINFO = PTOOLINFOA;
- TTTOOLINFO = TTTOOLINFOA;
- LPTTTOOLINFO = LPTTTOOLINFOA;
- // TTTOOLINFO_V1_SIZE = TTTOOLINFOA_V1_SIZE;
- {$ENDIF}
- TYPE
- {$ifdef ie3plus}
- // LPTOOLINFOA = LPTTTOOLINFOA;
- // LPTOOLINFOW = LPTTTOOLINFOW;
- TOOLINFOA = TTTOOLINFOA;
- TOOLINFOW = TTTOOLINFOW;
- {$ELSE}
- // TTTOOLINFOA = TOOLINFOA;
- // LPTTTOOLINFOA = LPTOOLINFOA;
- // TTTOOLINFOW = TOOLINFOW;
- // LPTTTOOLINFOW = LPTOOLINFOW;
- {$ENDIF}
- LPTOOLINFO = LPTTTOOLINFO;
- TOOLINFO = TTTOOLINFO;
- // #define TTTOOLINFOA_V1_SIZE CCSIZEOF_STRUCT(TTTOOLINFOA, lpszText)
- // #define TTTOOLINFOW_V1_SIZE CCSIZEOF_STRUCT(TTTOOLINFOW, lpszText)
- // #define TTTOOLINFOA_V2_SIZE CCSIZEOF_STRUCT(TTTOOLINFOA, lParam)
- // #define TTTOOLINFOW_V2_SIZE CCSIZEOF_STRUCT(TTTOOLINFOW, lParam)
- // #define TTTOOLINFOA_V3_SIZE CCSIZEOF_STRUCT(TTTOOLINFOA, lpReserved)
- // #define TTTOOLINFOW_V3_SIZE CCSIZEOF_STRUCT(TTTOOLINFOW, lpReserved)
- CONST
- // begin_r_commctrl
- TTS_ALWAYSTIP = $01;
- TTS_NOPREFIX = $02;
- {$ifdef ie5plus}
- TTS_NOANIMATE = $10;
- TTS_NOFADE = $20;
- TTS_BALLOON = $40;
- TTS_CLOSE = $80;
- {$ENDIF}
- // end_r_commctrl
- TTF_IDISHWND = $0001;
- // Use this to center around trackpoint in trackmode
- // -OR- to center around tool in normal mode.
- // Use TTF_ABSOLUTE to place the tip exactly at the track coords when
- // in tracking mode. TTF_ABSOLUTE can be used in conjunction with TTF_CENTERTIP
- // to center the tip absolutely about the track point.
- TTF_CENTERTIP = $0002;
- TTF_RTLREADING = $0004;
- TTF_SUBCLASS = $0010;
- {$ifdef ie3plus}
- TTF_TRACK = $0020;
- TTF_ABSOLUTE = $0080;
- TTF_TRANSPARENT = $0100;
- {$ifdef ie501plus}
- TTF_PARSELINKS = $1000;
- {$ENDIF} // _WIN32_IE >= 0x0501
- TTF_DI_SETITEM = $8000; // valid only on the TTN_NEEDTEXT callback
- {$ENDIF} // _WIN32_IE >= 0x0300
- TTDT_AUTOMATIC = 0;
- TTDT_RESHOW = 1;
- TTDT_AUTOPOP = 2;
- TTDT_INITIAL = 3;
- // ToolTip Icons (Set with TTM_SETTITLE)
- TTI_NONE = 0;
- TTI_INFO = 1;
- TTI_WARNING = 2;
- TTI_ERROR = 3;
- // Tool Tip Messages
- TTM_ACTIVATE = (WM_USER + 1);
- TTM_SETDELAYTIME = (WM_USER + 3);
- TTM_ADDTOOLA = (WM_USER + 4);
- TTM_ADDTOOLW = (WM_USER + 50);
- TTM_DELTOOLA = (WM_USER + 5);
- TTM_DELTOOLW = (WM_USER + 51);
- TTM_NEWTOOLRECTA = (WM_USER + 6);
- TTM_NEWTOOLRECTW = (WM_USER + 52);
- TTM_RELAYEVENT = (WM_USER + 7);
- TTM_GETTOOLINFOA = (WM_USER + 8);
- TTM_GETTOOLINFOW = (WM_USER + 53);
- TTM_SETTOOLINFOA = (WM_USER + 9);
- TTM_SETTOOLINFOW = (WM_USER + 54);
- TTM_HITTESTA = (WM_USER + 10);
- TTM_HITTESTW = (WM_USER + 55);
- TTM_GETTEXTA = (WM_USER + 11);
- TTM_GETTEXTW = (WM_USER + 56);
- TTM_UPDATETIPTEXTA = (WM_USER + 12);
- TTM_UPDATETIPTEXTW = (WM_USER + 57);
- TTM_GETTOOLCOUNT = (WM_USER + 13);
- TTM_ENUMTOOLSA = (WM_USER + 14);
- TTM_ENUMTOOLSW = (WM_USER + 58);
- TTM_GETCURRENTTOOLA = (WM_USER + 15);
- TTM_GETCURRENTTOOLW = (WM_USER + 59);
- TTM_WINDOWFROMPOINT = (WM_USER + 16);
- {$ifdef ie3plus}
- TTM_TRACKACTIVATE = (WM_USER + 17); // wParam = TRUE/FALSE start end lparam = LPTOOLINFO
- TTM_TRACKPOSITION = (WM_USER + 18); // lParam = dwPos
- TTM_SETTIPBKCOLOR = (WM_USER + 19);
- TTM_SETTIPTEXTCOLOR = (WM_USER + 20);
- TTM_GETDELAYTIME = (WM_USER + 21);
- TTM_GETTIPBKCOLOR = (WM_USER + 22);
- TTM_GETTIPTEXTCOLOR = (WM_USER + 23);
- TTM_SETMAXTIPWIDTH = (WM_USER + 24);
- TTM_GETMAXTIPWIDTH = (WM_USER + 25);
- TTM_SETMARGIN = (WM_USER + 26); // lParam = lprc
- TTM_GETMARGIN = (WM_USER + 27); // lParam = lprc
- TTM_POP = (WM_USER + 28);
- {$ENDIF}
- {$ifdef ie4plus}
- TTM_UPDATE = (WM_USER + 29);
- {$ENDIF}
- {$ifdef ie5plus}
- TTM_GETBUBBLESIZE = (WM_USER + 30);
- TTM_ADJUSTRECT = (WM_USER + 31);
- TTM_SETTITLEA = (WM_USER + 32); // wParam = TTI_*, lParam = char* szTitle
- TTM_SETTITLEW = (WM_USER + 33); // wParam = TTI_*, lParam = wchar* szTitle
- {$ENDIF}
- {$ifdef Win32XP}
- TTM_POPUP = (WM_USER + 34);
- TTM_GETTITLE = (WM_USER + 35); // wParam = 0, lParam = TTGETTITLE*
- TYPE
- _TTGETTITLE = Record
- dwSize : DWORD;
- uTitleBitmap : UINT;
- cch : UINT;
- pszTitle : PWCHAR;
- END;
- TTGETTITLE = _TTGETTITLE;
- PTTGETTITLE = ^_TTGETTITLE;
- TTTGETTITLE = _TTGETTITLE;
- PTTTGETTITLE = ^TTTGETTITLE;
- {$ENDIF}
- const
- {$IFDEF UNICODE}
- TTM_ADDTOOL = TTM_ADDTOOLW;
- TTM_DELTOOL = TTM_DELTOOLW;
- TTM_NEWTOOLRECT = TTM_NEWTOOLRECTW;
- TTM_GETTOOLINFO = TTM_GETTOOLINFOW;
- TTM_SETTOOLINFO = TTM_SETTOOLINFOW;
- TTM_HITTEST = TTM_HITTESTW;
- TTM_GETTEXT = TTM_GETTEXTW;
- TTM_UPDATETIPTEXT = TTM_UPDATETIPTEXTW;
- TTM_ENUMTOOLS = TTM_ENUMTOOLSW;
- TTM_GETCURRENTTOOL = TTM_GETCURRENTTOOLW;
- {$ifdef ie5plus}
- TTM_SETTITLE = TTM_SETTITLEW;
- {$ENDIF}
- {$ELSE}
- TTM_ADDTOOL = TTM_ADDTOOLA;
- TTM_DELTOOL = TTM_DELTOOLA;
- TTM_NEWTOOLRECT = TTM_NEWTOOLRECTA;
- TTM_GETTOOLINFO = TTM_GETTOOLINFOA;
- TTM_SETTOOLINFO = TTM_SETTOOLINFOA;
- TTM_HITTEST = TTM_HITTESTA;
- TTM_GETTEXT = TTM_GETTEXTA;
- TTM_UPDATETIPTEXT = TTM_UPDATETIPTEXTA;
- TTM_ENUMTOOLS = TTM_ENUMTOOLSA;
- TTM_GETCURRENTTOOL = TTM_GETCURRENTTOOLA;
- {$ifdef ie5plus}
- TTM_SETTITLE = TTM_SETTITLEA;
- {$ENDIF}
- {$ENDIF}
- {$ifdef win32xp}
- CONST
- TTM_SETWINDOWTHEME = CCM_SETWINDOWTHEME;
- {$ENDIF}
- TYPE
- _TT_HITTESTINFOA = Record
- hwnd : HWND;
- pt : POINT;
- ti : TTTOOLINFOA;
- END;
- TTHITTESTINFOA = _TT_HITTESTINFOA;
- LPTTHITTESTINFOA = ^_TT_HITTESTINFOA;
- TTT_HITTESTINFOA = _TT_HITTESTINFOA;
- PTT_HITTESTINFOA = ^_TT_HITTESTINFOA;
- _TT_HITTESTINFOW = Record
- hwnd : HWND;
- pt : POINT;
- ti : TTTOOLINFOW;
- END;
- TTHITTESTINFOW = _TT_HITTESTINFOW;
- LPTTHITTESTINFOW = ^_TT_HITTESTINFOW;
- TTT_HITTESTINFOW = _TT_HITTESTINFOW;
- PTT_HITTESTINFOW = ^_TT_HITTESTINFOW;
- {$IFDEF UNICODE}
- TTHITTESTINFO = TTHITTESTINFOW;
- LPTTHITTESTINFO = LPTTHITTESTINFOW;
- {$ELSE}
- TTHITTESTINFO = TTHITTESTINFOA;
- LPTTHITTESTINFO = LPTTHITTESTINFOA;
- {$ENDIF}
- LPHITTESTINFO = LPTTHITTESTINFO;
- {$ifdef ie3plus}
- LPHITTESTINFOW = LPTTHITTESTINFOW;
- LPHITTESTINFOA = LPTTHITTESTINFOA;
- {$ELSE}
- // LPTTHITTESTINFOA = LPHITTESTINFOA;
- // LPTTHITTESTINFOW = LPHITTESTINFOW;
- {$ENDIF}
- CONST
- TTN_GETDISPINFOA = (TTN_FIRST - 0);
- TTN_GETDISPINFOW = (TTN_FIRST - 10);
- TTN_SHOW = (TTN_FIRST - 1);
- TTN_POP = (TTN_FIRST - 2);
- TTN_LINKCLICK = (TTN_FIRST - 3);
- CONST
- {$IFDEF UNICODE}
- TTN_GETDISPINFO = TTN_GETDISPINFOW;
- {$ELSE}
- TTN_GETDISPINFO = TTN_GETDISPINFOA;
- {$ENDIF}
- CONST
- TTN_NEEDTEXT = TTN_GETDISPINFO;
- TTN_NEEDTEXTA = TTN_GETDISPINFOA;
- TTN_NEEDTEXTW = TTN_GETDISPINFOW;
- TYPE
- // #define NMTTDISPINFOA_V1_SIZE CCSIZEOF_STRUCT(NMTTDISPINFOA, uFlags)
- // #define NMTTDISPINFOW_V1_SIZE CCSIZEOF_STRUCT(NMTTDISPINFOW, uFlags)
- tagNMTTDISPINFOA = Record
- hdr : NMHDR;
- lpszText : LPSTR;
- szText : Array[0..79] of char;
- hinst : HINST;
- uFlags : UINT;
- {$ifdef ie3plus}
- lParam : LPARAM;
- {$ENDIF}
- END;
- NMTTDISPINFOA = tagNMTTDISPINFOA;
- LPNMTTDISPINFOA = ^tagNMTTDISPINFOA;
- TNMTTDISPINFOA = tagNMTTDISPINFOA;
- PNMTTDISPINFOA = ^tagNMTTDISPINFOA;
- tagNMTTDISPINFOW = Record
- hdr : NMHDR;
- lpszText : LPWSTR;
- szText : Array[0..79] of WCHAR;
- hinst : HINST;
- uFlags : UINT;
- {$ifdef ie3plus}
- lParam : LPARAM;
- {$ENDIF}
- END;
- NMTTDISPINFOW = tagNMTTDISPINFOW;
- LPNMTTDISPINFOW = ^tagNMTTDISPINFOW;
- TNMTTDISPINFOW = tagNMTTDISPINFOW;
- PNMTTDISPINFOW = ^tagNMTTDISPINFOW;
- {$ifdef ie3plus}
- TOOLTIPTEXTW = NMTTDISPINFOW;
- TOOLTIPTEXTA = NMTTDISPINFOA;
- LPTOOLTIPTEXTA = LPNMTTDISPINFOA;
- LPTOOLTIPTEXTW = LPNMTTDISPINFOW;
- {$ELSE}
- // tagNMTTDISPINFOA = tagTOOLTIPTEXTA;
- NMTTDISPINFOA = TOOLTIPTEXTA;
- // LPNMTTDISPINFOA = LPTOOLTIPTEXTA;
- tagNMTTDISPINFOW = tagTOOLTIPTEXTW;
- NMTTDISPINFOW = TOOLTIPTEXTW;
- LPNMTTDISPINFOW = LPTOOLTIPTEXTW;
- {$ENDIF}
- TYPE
- {$IFDEF UNICODE}
- NMTTDISPINFO = NMTTDISPINFOW;
- LPNMTTDISPINFO = LPNMTTDISPINFOW;
- // NMTTDISPINFO_V1_SIZE = NMTTDISPINFOW_V1_SIZE;
- {$ELSE}
- NMTTDISPINFO = NMTTDISPINFOA;
- LPNMTTDISPINFO = LPNMTTDISPINFOA;
- // NMTTDISPINFO_V1_SIZE = NMTTDISPINFOA_V1_SIZE;
- {$ENDIF}
- TOOLTIPTEXT = NMTTDISPINFO;
- LPTOOLTIPTEXT = LPNMTTDISPINFO;
- {$ENDIF} // NOTOOLTIPS
- //====== STATUS BAR CONTROL ===================================================
- {$IFNDEF NOSTATUSBAR}
- // begin_r_commctrl
- CONST
- SBARS_SIZEGRIP = $0100;
- {$ifdef ie5plus}
- SBARS_TOOLTIPS = $0800;
- {$ENDIF}
- {$ifdef ie4plus}
- // this is a status bar flag, preference to SBARS_TOOLTIPS
- SBT_TOOLTIPS = $0800;
- {$ENDIF}
- // end_r_commctrl
- procedure DrawStatusTextA(hDC:HDC;lprc:LPRECT;pszText:LPCSTR;uFlags:UINT); external commctrldll name 'DrawStatusTextA';
- Procedure DrawStatusTextW(hDC:HDC;lprc:LPRECT;pszText:LPCWSTR;uFlags:UINT); external commctrldll name 'DrawStatusTextW';
- function CreateStatusWindowA(style:LONG;lpszText:LPCSTR;hwndParent:HWND;wID:UINT):HWND; external commctrldll name 'CreateStatusWindowA';
- function CreateStatusWindowW(style:LONG;lpszText:LPCWSTR;hwndParent:HWND;wID:UINT):HWND; external commctrldll name 'CreateStatusWindowW';
- {$IFDEF UNICODE}
- function CreateStatusWindow(style:LONG;lpszText:LPCSTR;hwndParent:HWND;wID:UINT):HWND; external commctrldll name 'CreateStatusWindowA';
- procedure DrawStatusText(hDC:HDC;lprc:LPRECT;pszText:LPCSTR;uFlags:UINT); external commctrldll name 'DrawStatusTextA';
- {$ELSE}
- function CreateStatusWindow(style:LONG;lpszText:LPCWSTR;hwndParent:HWND;wID:UINT):HWND; external commctrldll name 'CreateStatusWindowW';
- Procedure DrawStatusText(hDC:HDC;lprc:LPRECT;pszText:LPCWSTR;uFlags:UINT); external commctrldll name 'DrawStatusTextW';
- {$ENDIF}
- CONST
- {$IFDEF _WIN32}
- STATUSCLASSNAMEW = {L}'msctls_statusbar32';
- STATUSCLASSNAMEA = 'msctls_statusbar32';
- {$IFDEF UNICODE}
- STATUSCLASSNAME = STATUSCLASSNAMEW;
- {$ELSE}
- STATUSCLASSNAME = STATUSCLASSNAMEA;
- {$ENDIF}
- {$ELSE}
- STATUSCLASSNAME = 'msctls_statusbar';
- {$ENDIF}
- SB_SETTEXTA = (WM_USER+1);
- SB_SETTEXTW = (WM_USER+11);
- SB_GETTEXTA = (WM_USER+2);
- SB_GETTEXTW = (WM_USER+13);
- SB_GETTEXTLENGTHA = (WM_USER+3);
- SB_GETTEXTLENGTHW = (WM_USER+12);
- SB_SETPARTS = (WM_USER+4);
- SB_GETPARTS = (WM_USER+6);
- SB_GETBORDERS = (WM_USER+7);
- SB_SETMINHEIGHT = (WM_USER+8);
- SB_SIMPLE = (WM_USER+9);
- SB_GETRECT = (WM_USER+10);
- {$ifdef ie3plus}
- SB_ISSIMPLE = (WM_USER+14);
- {$ENDIF}
- {$ifdef ie4plus}
- SB_SETICON = (WM_USER+15);
- SB_SETTIPTEXTA = (WM_USER+16);
- SB_SETTIPTEXTW = (WM_USER+17);
- SB_GETTIPTEXTA = (WM_USER+18);
- SB_GETTIPTEXTW = (WM_USER+19);
- SB_GETICON = (WM_USER+20);
- SB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- SB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- {$ENDIF}
- {$IFDEF UNICODE}
- SB_GETTEXT = SB_GETTEXTW;
- SB_SETTEXT = SB_SETTEXTW;
- SB_GETTEXTLENGTH = SB_GETTEXTLENGTHW;
- {$ifdef ie4plus}
- SB_SETTIPTEXT = SB_SETTIPTEXTW;
- SB_GETTIPTEXT = SB_GETTIPTEXTW;
- {$ENDIF}
- {$ELSE}
- SB_GETTEXT = SB_GETTEXTA;
- SB_SETTEXT = SB_SETTEXTA;
- SB_GETTEXTLENGTH = SB_GETTEXTLENGTHA;
- {$ifdef ie4plus}
- SB_SETTIPTEXT = SB_SETTIPTEXTA;
- SB_GETTIPTEXT = SB_GETTIPTEXTA;
- {$ENDIF}
- {$ENDIF}
- SBT_OWNERDRAW = $1000;
- SBT_NOBORDERS = $0100;
- SBT_POPOUT = $0200;
- SBT_RTLREADING = $0400;
- {$ifdef ie5plus}
- SBT_NOTABPARSING = $0800;
- {$ENDIF}
- SB_SETBKCOLOR = CCM_SETBKCOLOR; // lParam = bkColor
- /// status bar notifications
- {$ifdef ie4plus}
- SBN_SIMPLEMODECHANGE = (SBN_FIRST - 0);
- {$ENDIF}
- {$ifdef ie5plus}
- // refers to the data saved for simple mode
- SB_SIMPLEID = $00ff;
- {$ENDIF}
- {$ENDIF} // NOSTATUSBAR
- //====== MENU HELP ============================================================
- {$IFNDEF NOMENUHELP}
- Procedure MenuHelp(uMsg:UINT;wParam:WPARAM;lParam:LPARAM;hMainMenu:HMENU;hInst:HINST;hwndStatus:HWND;lpwIDs:PUINT); external commctrldll name 'MenuHelp';
- function ShowHideMenuCtl(hWnd:HWND;uFlags:UINT_PTR;lpInfo:LPINT):BOOL; external commctrldll name 'ShowHideMenuCtl';
- Procedure GetEffectiveClientRect(hWnd:HWND;lprc:LPRECT;lpInfo:LPINT); external commctrldll name 'GetEffectiveClientRect';
- CONST
- MINSYSCOMMAND = SC_SIZE;
- {$ENDIF}
- //====== TRACKBAR CONTROL =====================================================
- {$IFNDEF NOTRACKBAR}
- CONST
- {$IFDEF _WIN32}
- TRACKBAR_CLASSA = 'msctls_trackbar32';
- TRACKBAR_CLASSW = {L}'msctls_trackbar32';
- {$IFDEF UNICODE}
- TRACKBAR_CLASS = TRACKBAR_CLASSW;
- {$ELSE}
- TRACKBAR_CLASS = TRACKBAR_CLASSA;
- {$ENDIF}
- {$ELSE}
- TRACKBAR_CLASS = 'msctls_trackbar';
- {$ENDIF}
- // begin_r_commctrl
- TBS_AUTOTICKS = $0001;
- TBS_VERT = $0002;
- TBS_HORZ = $0000;
- TBS_TOP = $0004;
- TBS_BOTTOM = $0000;
- TBS_LEFT = $0004;
- TBS_RIGHT = $0000;
- TBS_BOTH = $0008;
- TBS_NOTICKS = $0010;
- TBS_ENABLESELRANGE = $0020;
- TBS_FIXEDLENGTH = $0040;
- TBS_NOTHUMB = $0080;
- {$ifdef ie3plus}
- TBS_TOOLTIPS = $0100;
- {$ENDIF}
- {$ifdef ie5plus}
- TBS_REVERSED = $0200; // Accessibility hint: the smaller number (usually the min value) means "high" and the larger number (usually the max value) means "low"
- {$ENDIF}
- {$ifdef ie501plus}
- TBS_DOWNISLEFT = $0400; // Down=Left and Up=Right (default is Down=Right and Up=Left)
- {$ENDIF}
- // end_r_commctrl
- TBM_GETPOS = (WM_USER);
- TBM_GETRANGEMIN = (WM_USER+1);
- TBM_GETRANGEMAX = (WM_USER+2);
- TBM_GETTIC = (WM_USER+3);
- TBM_SETTIC = (WM_USER+4);
- TBM_SETPOS = (WM_USER+5);
- TBM_SETRANGE = (WM_USER+6);
- TBM_SETRANGEMIN = (WM_USER+7);
- TBM_SETRANGEMAX = (WM_USER+8);
- TBM_CLEARTICS = (WM_USER+9);
- TBM_SETSEL = (WM_USER+10);
- TBM_SETSELSTART = (WM_USER+11);
- TBM_SETSELEND = (WM_USER+12);
- TBM_GETPTICS = (WM_USER+14);
- TBM_GETTICPOS = (WM_USER+15);
- TBM_GETNUMTICS = (WM_USER+16);
- TBM_GETSELSTART = (WM_USER+17);
- TBM_GETSELEND = (WM_USER+18);
- TBM_CLEARSEL = (WM_USER+19);
- TBM_SETTICFREQ = (WM_USER+20);
- TBM_SETPAGESIZE = (WM_USER+21);
- TBM_GETPAGESIZE = (WM_USER+22);
- TBM_SETLINESIZE = (WM_USER+23);
- TBM_GETLINESIZE = (WM_USER+24);
- TBM_GETTHUMBRECT = (WM_USER+25);
- TBM_GETCHANNELRECT = (WM_USER+26);
- TBM_SETTHUMBLENGTH = (WM_USER+27);
- TBM_GETTHUMBLENGTH = (WM_USER+28);
- {$ifdef ie3plus}
- TBM_SETTOOLTIPS = (WM_USER+29);
- TBM_GETTOOLTIPS = (WM_USER+30);
- TBM_SETTIPSIDE = (WM_USER+31);
- // TrackBar Tip Side flags
- TBTS_TOP = 0;
- TBTS_LEFT = 1;
- TBTS_BOTTOM = 2;
- TBTS_RIGHT = 3;
- TBM_SETBUDDY = (WM_USER+32); // wparam = BOOL fLeft; (or right)
- TBM_GETBUDDY = (WM_USER+33); // wparam = BOOL fLeft; (or right)
- {$ENDIF}
- {$ifdef ie4plus}
- TBM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- TBM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- {$ENDIF}
- TB_LINEUP = 0;
- TB_LINEDOWN = 1;
- TB_PAGEUP = 2;
- TB_PAGEDOWN = 3;
- TB_THUMBPOSITION = 4;
- TB_THUMBTRACK = 5;
- TB_TOP = 6;
- TB_BOTTOM = 7;
- TB_ENDTRACK = 8;
- {$ifdef ie3plus}
- // custom draw item specs
- TBCD_TICS = $0001;
- TBCD_THUMB = $0002;
- TBCD_CHANNEL = $0003;
- {$ENDIF}
- {$ENDIF} // trackbar
- //====== DRAG LIST CONTROL ====================================================
- {$IFNDEF NODRAGLIST}
- TYPE
- tagDRAGLISTINFO = Record
- uNotification : UINT;
- hWnd : HWND;
- ptCursor : POINT;
- END;
- DRAGLISTINFO = tagDRAGLISTINFO;
- LPDRAGLISTINFO = ^tagDRAGLISTINFO;
- TDRAGLISTINFO = tagDRAGLISTINFO;
- PDRAGLISTINFO = ^tagDRAGLISTINFO;
- CONST
- DL_BEGINDRAG = (WM_USER+133);
- DL_DRAGGING = (WM_USER+134);
- DL_DROPPED = (WM_USER+135);
- DL_CANCELDRAG = (WM_USER+136);
- DL_CURSORSET = 0;
- DL_STOPCURSOR = 1;
- DL_COPYCURSOR = 2;
- DL_MOVECURSOR = 3;
- DRAGLISTMSGSTRING = 'commctrl_DragListMsg'; // TEXT("commctrl_DragListMsg");
- function MakeDragList(hLB:HWND):BOOL; external commctrldll name 'MakeDragList';
- Procedure DrawInsert(handParent:HWND;hLB:HWND;nItem:cint); external commctrldll name 'DrawInsert';
- function LBItemFromPt(hLB:HWND;pt:POINT;bAutoScroll:BOOL):cint; external commctrldll name 'LBItemFromPt';
- {$ENDIF}
- //====== UPDOWN CONTROL =======================================================
- {$IFNDEF NOUPDOWN}
- CONST
- {$IFDEF _WIN32}
- UPDOWN_CLASSA = 'msctls_updown32';
- UPDOWN_CLASSW = {L}'msctls_updown32';
- {$IFDEF UNICODE}
- UPDOWN_CLASS = UPDOWN_CLASSW;
- {$ELSE}
- UPDOWN_CLASS = UPDOWN_CLASSA;
- {$ENDIF}
- {$ELSE}
- UPDOWN_CLASS = 'msctls_updown';
- {$ENDIF}
- TYPE
- _UDACCEL = Record
- nSec : UINT;
- nInc : UINT;
- END;
- UDACCEL = _UDACCEL;
- LPUDACCEL = ^_UDACCEL;
- TUDACCEL = _UDACCEL;
- PUDACCEL = ^_UDACCEL;
- CONST
- UD_MAXVAL = $7fff;
- UD_MINVAL = (-UD_MAXVAL);
- // begin_r_commctrl
- UDS_WRAP = $0001;
- UDS_SETBUDDYINT = $0002;
- UDS_ALIGNRIGHT = $0004;
- UDS_ALIGNLEFT = $0008;
- UDS_AUTOBUDDY = $0010;
- UDS_ARROWKEYS = $0020;
- UDS_HORZ = $0040;
- UDS_NOTHOUSANDS = $0080;
- {$ifdef ie3plus}
- UDS_HOTTRACK = $0100;
- {$ENDIF}
- // end_r_commctrl
- UDM_SETRANGE = (WM_USER+101);
- UDM_GETRANGE = (WM_USER+102);
- UDM_SETPOS = (WM_USER+103);
- UDM_GETPOS = (WM_USER+104);
- UDM_SETBUDDY = (WM_USER+105);
- UDM_GETBUDDY = (WM_USER+106);
- UDM_SETACCEL = (WM_USER+107);
- UDM_GETACCEL = (WM_USER+108);
- UDM_SETBASE = (WM_USER+109);
- UDM_GETBASE = (WM_USER+110);
- {$ifdef ie4plus}
- UDM_SETRANGE32 = (WM_USER+111);
- UDM_GETRANGE32 = (WM_USER+112); // wParam & lParam are LPINT
- UDM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- UDM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- {$ENDIF}
- {$ifdef ie5plus}
- UDM_SETPOS32 = (WM_USER+113);
- UDM_GETPOS32 = (WM_USER+114);
- {$ENDIF}
- function CreateUpDownControl(dwStyle:DWORD;x:cint;y:cint;cx:cint;cy:cint;hParent:HWND;nID:cint;hInst:HINST;hBuddy:HWND;nUpper:cint;nLower:cint;nPos:cint):HWND; external commctrldll name 'CreateUpDownControl';
- TYPE
- _NM_UPDOWN = Record
- hdr : NMHDR;
- iPos : cint;
- iDelta : cint;
- END;
- NMUPDOWN = _NM_UPDOWN;
- LPNMUPDOWN = ^_NM_UPDOWN;
- TNM_UPDOWN = _NM_UPDOWN;
- PNM_UPDOWN = ^_NM_UPDOWN;
- {$ifdef ie3plus}
- NM_UPDOWN = NMUPDOWN;
- LPNM_UPDOWN = LPNMUPDOWN;
- {$ELSE}
- NMUPDOWN = NM_UPDOWN;
- LPNMUPDOWN = LPNM_UPDOWN;
- {$ENDIF}
- CONST
- UDN_DELTAPOS = (UDN_FIRST - 1);
- {$ENDIF} // NOUPDOWN
- //====== PROGRESS CONTROL =====================================================
- {$IFNDEF NOPROGRESS}
- CONST
- {$IFDEF _WIN32}
- PROGRESS_CLASSA = 'msctls_progress32';
- PROGRESS_CLASSW = {L}'msctls_progress32';
- {$IFDEF UNICODE}
- PROGRESS_CLASS = PROGRESS_CLASSW;
- {$ELSE}
- PROGRESS_CLASS = PROGRESS_CLASSA;
- {$ENDIF}
- {$ELSE}
- PROGRESS_CLASS = 'msctls_progress';
- {$ENDIF}
- // begin_r_commctrl
- {$ifdef ie3plus}
- PBS_SMOOTH = $01;
- PBS_VERTICAL = $04;
- {$ENDIF}
- // end_r_commctrl
- PBM_SETRANGE = (WM_USER+1);
- PBM_SETPOS = (WM_USER+2);
- PBM_DELTAPOS = (WM_USER+3);
- PBM_SETSTEP = (WM_USER+4);
- PBM_STEPIT = (WM_USER+5);
- {$ifdef ie3plus}
- PBM_SETRANGE32 = (WM_USER+6); // lParam = high, wParam = low
- TYPE
- PBRANGE = Record
- iLow : cint;
- iHigh : cint;
- END;
- PPBRANGE = ^PBRANGE;
- TPBRANGE = PBRANGE;
- // PPBRANGE = ^PBRANGE;
- CONST
- PBM_GETRANGE = (WM_USER+7); // wParam = return (TRUE ? low : high). lParam = PPBRANGE or NULL
- PBM_GETPOS = (WM_USER+8);
- {$ifdef ie4plus}
- PBM_SETBARCOLOR = (WM_USER+9); // lParam = bar color
- {$ENDIF} // _WIN32_IE >= 0x0400
- PBM_SETBKCOLOR = CCM_SETBKCOLOR; // lParam = bkColor
- {$ENDIF} // _WIN32_IE >= 0x0300
- {$ENDIF} // NOPROGRESS
- //====== HOTKEY CONTROL =======================================================
- {$IFNDEF NOHOTKEY}
- HOTKEYF_SHIFT = $01;
- HOTKEYF_CONTROL = $02;
- HOTKEYF_ALT = $04;
- {$IFDEF _MAC}
- HOTKEYF_EXT = $80;
- {$ELSE}
- HOTKEYF_EXT = $08;
- {$ENDIF}
- HKCOMB_NONE = $0001;
- HKCOMB_S = $0002;
- HKCOMB_C = $0004;
- HKCOMB_A = $0008;
- HKCOMB_SC = $0010;
- HKCOMB_SA = $0020;
- HKCOMB_CA = $0040;
- HKCOMB_SCA = $0080;
- HKM_SETHOTKEY = (WM_USER+1);
- HKM_GETHOTKEY = (WM_USER+2);
- HKM_SETRULES = (WM_USER+3);
- {$IFDEF _WIN32}
- HOTKEY_CLASSA = 'msctls_hotkey32';
- HOTKEY_CLASSW = {L}'msctls_hotkey32';
- {$IFDEF UNICODE}
- HOTKEY_CLASS = HOTKEY_CLASSW;
- {$ELSE}
- HOTKEY_CLASS = HOTKEY_CLASSA;
- {$ENDIF}
- {$ELSE}
- HOTKEY_CLASS = 'msctls_hotkey';
- {$ENDIF}
- {$ENDIF} // NOHOTKEY
- // begin_r_commctrl
- //====== COMMON CONTROL STYLES ================================================
- CCS_TOP = DWORD($00000001){L};
- CCS_NOMOVEY = DWORD($00000002){L};
- CCS_BOTTOM = DWORD($00000003){L};
- CCS_NORESIZE = DWORD($00000004){L};
- CCS_NOPARENTALIGN = DWORD($00000008){L};
- CCS_ADJUSTABLE = DWORD($00000020){L};
- CCS_NODIVIDER = DWORD($00000040){L};
- {$ifdef ie3plus}
- CCS_VERT = DWORD($00000080){L};
- CCS_LEFT = (CCS_VERT OR CCS_TOP);
- CCS_RIGHT = (CCS_VERT OR CCS_BOTTOM);
- CCS_NOMOVEX = (CCS_VERT OR CCS_NOMOVEY);
- {$ENDIF}
- // end_r_commctrl
- //====== LISTVIEW CONTROL =====================================================
- {$IFNDEF NOLISTVIEW}
- {$IFDEF _WIN32}
- WC_LISTVIEWA = 'SysListView32';
- WC_LISTVIEWW = {L}'SysListView32';
- {$IFDEF UNICODE}
- WC_LISTVIEW = WC_LISTVIEWW;
- {$ELSE}
- WC_LISTVIEW = WC_LISTVIEWA;
- {$ENDIF}
- {$ELSE}
- WC_LISTVIEW = 'SysListView';
- {$ENDIF}
- // begin_r_commctrl
- LVS_ICON = $0000;
- LVS_REPORT = $0001;
- LVS_SMALLICON = $0002;
- LVS_LIST = $0003;
- LVS_TYPEMASK = $0003;
- LVS_SINGLESEL = $0004;
- LVS_SHOWSELALWAYS = $0008;
- LVS_SORTASCENDING = $0010;
- LVS_SORTDESCENDING = $0020;
- LVS_SHAREIMAGELISTS = $0040;
- LVS_NOLABELWRAP = $0080;
- LVS_AUTOARRANGE = $0100;
- LVS_EDITLABELS = $0200;
- {$ifdef ie3plus}
- LVS_OWNERDATA = $1000;
- {$ENDIF}
- LVS_NOSCROLL = $2000;
- LVS_TYPESTYLEMASK = $fc00;
- LVS_ALIGNTOP = $0000;
- LVS_ALIGNLEFT = $0800;
- LVS_ALIGNMASK = $0c00;
- LVS_OWNERDRAWFIXED = $0400;
- LVS_NOCOLUMNHEADER = $4000;
- LVS_NOSORTHEADER = $8000;
- // end_r_commctrl
- {$ifdef ie4plus}
- LVM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- // Macro 38
- Function ListView_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
- CONST
- LVM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- // Macro 39
- Function ListView_GetUnicodeFormat( hwnd : hwnd):BOOL;
- {$ENDIF}
- CONST
- LVM_GETBKCOLOR = (LVM_FIRST + 0);
- // Macro 40
- Function ListView_GetBkColor( hwnd : hwnd):COLORREF;
- CONST
- LVM_SETBKCOLOR = (LVM_FIRST + 1);
- // Macro 41
- Function ListView_SetBkColor( hwnd : hwnd; clrBk : COLORREF):BOOL;
- CONST
- LVM_GETIMAGELIST = (LVM_FIRST + 2);
- // Macro 42
- Function ListView_GetImageList( hwnd : hwnd; iImageList : CINT):HIMAGELIST;
- CONST
- LVSIL_NORMAL = 0;
- LVSIL_SMALL = 1;
- LVSIL_STATE = 2;
- LVM_SETIMAGELIST = (LVM_FIRST + 3);
- // Macro 43
- Function ListView_SetImageList( hwnd : hwnd; himl : HIMAGELIST; iImageList : WPARAM):HIMAGELIST;
- CONST
- LVM_GETITEMCOUNT = (LVM_FIRST + 4);
- // Macro 44
- Function ListView_GetItemCount( hwnd : hwnd):cint;
- CONST
- LVIF_TEXT = $0001;
- LVIF_IMAGE = $0002;
- LVIF_PARAM = $0004;
- LVIF_STATE = $0008;
- {$ifdef ie3plus}
- LVIF_INDENT = $0010;
- LVIF_NORECOMPUTE = $0800;
- {$ENDIF}
- {$ifdef win32xp}
- LVIF_GROUPID = $0100;
- LVIF_COLUMNS = $0200;
- {$ENDIF}
- LVIS_FOCUSED = $0001;
- LVIS_SELECTED = $0002;
- LVIS_CUT = $0004;
- LVIS_DROPHILITED = $0008;
- LVIS_GLOW = $0010;
- LVIS_ACTIVATING = $0020;
- LVIS_OVERLAYMASK = $0F00;
- LVIS_STATEIMAGEMASK = $F000;
- // Macro 45
- // #define INDEXTOSTATEIMAGEMASK(i) ((i) << 12)
- CONST
- I_INDENTCALLBACK = (-1);
- {$ENDIF}
- {$ifdef win32xp}
- CONST
- I_GROUPIDCALLBACK = (-1);
- I_GROUPIDNONE = (-2);
- {$ENDIF}
- // #define LVITEMA_V1_SIZE CCSIZEOF_STRUCT(LVITEMA, lParam)
- // #define LVITEMW_V1_SIZE CCSIZEOF_STRUCT(LVITEMW, lParam)
- TYPE
- tagLVITEMA = Record
- mask : UINT;
- iItem : cint;
- iSubItem : cint;
- state : UINT;
- stateMask : UINT;
- pszText : LPSTR;
- cchTextMax : cint;
- iImage : cint;
- lParam : LPARAM;
- {$ifdef ie3plus}
- iIndent : cint;
- {$ENDIF}
- {$ifdef win32xp}
- iGroupId : cint;
- cColumns : UINT; // tile view columns
- puColumns : PUINT;
- {$ENDIF}
- END;
- LVITEMA = tagLVITEMA;
- LPLVITEMA = ^tagLVITEMA;
- TLVITEMA = tagLVITEMA;
- PLVITEMA = ^tagLVITEMA;
- tagLVITEMW = Record
- mask : UINT;
- iItem : cint;
- iSubItem : cint;
- state : UINT;
- stateMask : UINT;
- pszText : LPWSTR;
- cchTextMax : cint;
- iImage : cint;
- lParam : LPARAM;
- {$ifdef ie3plus}
- iIndent : cint;
- {$ENDIF}
- {$ifdef win32xp}
- iGroupId : cint;
- cColumns : UINT; // tile view columns
- puColumns : PUINT;
- {$ENDIF}
- END;
- LVITEMW = tagLVITEMW;
- LPLVITEMW = ^tagLVITEMW;
- TLVITEMW = tagLVITEMW;
- PLVITEMW = ^tagLVITEMW;
- {$IFDEF UNICODE}
- LVITEM = LVITEMW;
- LPLVITEM = LPLVITEMW;
- // LVITEM_V1_SIZE = LVITEMW_V1_SIZE;
- {$ELSE}
- TYPE
- LVITEM = LVITEMA;
- LPLVITEM = LPLVITEMA;
- // LVITEM_V1_SIZE = LVITEMA_V1_SIZE;
- {$ENDIF}
- Type
- {$ifdef ie3plus}
- LV_ITEMA = LVITEMA;
- LV_ITEMW = LVITEMW;
- {$ELSE}
- tagLVITEMA = _LV_ITEMA;
- LVITEMA = LV_ITEMA;
- tagLVITEMW = _LV_ITEMW;
- LVITEMW = LV_ITEMW;
- {$ENDIF}
- LV_ITEM = LVITEM;
- CONST
- LPSTR_TEXTCALLBACKW = LPWSTR(-1);
- LPSTR_TEXTCALLBACKA = LPSTR (-1);
- {$IFDEF UNICODE}
- LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;
- {$ELSE}
- LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA;
- {$ENDIF}
- CONST
- I_IMAGECALLBACK = (-1);
- {$ifdef ie501plus}
- I_IMAGENONE = (-2);
- {$ENDIF} // 0x0501
- {$ifdef win32xp}
- // For tileview
- I_COLUMNSCALLBACK = UINT(-1);
- {$ENDIF}
- LVM_GETITEMA = (LVM_FIRST + 5);
- LVM_GETITEMW = (LVM_FIRST + 75);
- {$IFDEF UNICODE}
- LVM_GETITEM = LVM_GETITEMW;
- {$ELSE}
- LVM_GETITEM = LVM_GETITEMA;
- {$ENDIF}
- // Macro 46
- Function ListView_GetItem( hwnd : hwnd;var pitem : LV_ITEM ):BOOL;
- CONST
- LVM_SETITEMA = (LVM_FIRST + 6);
- LVM_SETITEMW = (LVM_FIRST + 76);
- {$IFDEF UNICODE}
- LVM_SETITEM = LVM_SETITEMW;
- {$ELSE}
- LVM_SETITEM = LVM_SETITEMA;
- {$ENDIF}
- // Macro 47
- Function ListView_SetItem( hwnd : hwnd;const pitem : LV_ITEM ):BOOL;
- CONST
- LVM_INSERTITEMA = (LVM_FIRST + 7);
- LVM_INSERTITEMW = (LVM_FIRST + 77);
- {$IFDEF UNICODE}
- LVM_INSERTITEM = LVM_INSERTITEMW;
- {$ELSE}
- LVM_INSERTITEM = LVM_INSERTITEMA;
- {$ENDIF}
- // Macro 48
- Function ListView_InsertItem( hwnd : hwnd;Const pitem : LV_ITEM ):cint;
- CONST
- LVM_DELETEITEM = (LVM_FIRST + 8);
- // Macro 49
- Function ListView_DeleteItem( hwnd : hwnd; i : cint):BOOL;
- CONST
- LVM_DELETEALLITEMS = (LVM_FIRST + 9);
- // Macro 50
- Function ListView_DeleteAllItems( hwnd : hwnd):BOOL;
- CONST
- LVM_GETCALLBACKMASK = (LVM_FIRST + 10);
- // Macro 51
- Function ListView_GetCallbackMask( hwnd : hwnd):BOOL;
- CONST
- LVM_SETCALLBACKMASK = (LVM_FIRST + 11);
- // Macro 52
- Function ListView_SetCallbackMask( hwnd : hwnd; mask : UINT):BOOL;
- CONST
- LVNI_ALL = $0000;
- LVNI_FOCUSED = $0001;
- LVNI_SELECTED = $0002;
- LVNI_CUT = $0004;
- LVNI_DROPHILITED = $0008;
- LVNI_ABOVE = $0100;
- LVNI_BELOW = $0200;
- LVNI_TOLEFT = $0400;
- LVNI_TORIGHT = $0800;
- LVM_GETNEXTITEM = (LVM_FIRST + 12);
- // Macro 53
- Function ListView_GetNextItem( hwnd : hwnd; i : cint; flags : cint ):cint;
- CONST
- LVFI_PARAM = $0001;
- LVFI_STRING = $0002;
- LVFI_PARTIAL = $0008;
- LVFI_WRAP = $0020;
- LVFI_NEARESTXY = $0040;
- TYPE
- tagLVFINDINFOA = Record
- flags : UINT;
- psz : LPCSTR;
- lParam : LPARAM;
- pt : POINT;
- vkDirection : UINT;
- END;
- LVFINDINFOA = tagLVFINDINFOA;
- LPFINDINFOA = ^tagLVFINDINFOA;
- TLVFINDINFOA = tagLVFINDINFOA;
- PLVFINDINFOA = ^tagLVFINDINFOA;
- tagLVFINDINFOW = Record
- flags : UINT;
- psz : LPCWSTR;
- lParam : LPARAM;
- pt : POINT;
- vkDirection : UINT;
- END;
- LVFINDINFOW = tagLVFINDINFOW;
- LPFINDINFOW = ^tagLVFINDINFOW;
- TLVFINDINFOW = tagLVFINDINFOW;
- PLVFINDINFOW = ^tagLVFINDINFOW;
- {$IFDEF UNICODE}
- LVFINDINFO = LVFINDINFOW;
- {$ELSE}
- LVFINDINFO = LVFINDINFOA;
- {$ENDIF}
- {$ifdef ie3plus}
- LV_FINDINFOA = LVFINDINFOA;
- LV_FINDINFOW = LVFINDINFOW;
- {$ELSE}
- tagLVFINDINFOA = _LV_FINDINFOA;
- LVFINDINFOA = LV_FINDINFOA;
- tagLVFINDINFOW = _LV_FINDINFOW;
- LVFINDINFOW = LV_FINDINFOW;
- {$ENDIF}
- LV_FINDINFO = LVFINDINFO;
- CONST
- LVM_FINDITEMA = (LVM_FIRST + 13);
- LVM_FINDITEMW = (LVM_FIRST + 83);
- {$IFDEF UNICODE}
- LVM_FINDITEM = LVM_FINDITEMW;
- {$ELSE}
- LVM_FINDITEM = LVM_FINDITEMA;
- {$ENDIF}
- // Macro 54
- Function ListView_FindItem( hwnd : hwnd; iStart : cint;const plvfi : LV_FINDINFO ):cint;
- CONST
- LVIR_BOUNDS = 0;
- LVIR_ICON = 1;
- LVIR_LABEL = 2;
- LVIR_SELECTBOUNDS = 3;
- LVM_GETITEMRECT = (LVM_FIRST + 14);
- // Macro 55 NI
- // Function ListView_GetItemRect( hwnd : hwnd; i : cint;prc {!};code {!}):BOOL;
- CONST
- LVM_SETITEMPOSITION = (LVM_FIRST + 15);
- // Macro 56
- Function ListView_SetItemPosition( hwndLV : hwnd; i : cint; x : cint ; y : cint ):BOOL;
- CONST
- LVM_GETITEMPOSITION = (LVM_FIRST + 16);
- // Macro 57
- Function ListView_GetItemPosition( hwndLV : hwnd; i : cint;var ppt : POINT ):BOOL;
- CONST
- LVM_GETSTRINGWIDTHA = (LVM_FIRST + 17);
- LVM_GETSTRINGWIDTHW = (LVM_FIRST + 87);
- {$IFDEF UNICODE}
- LVM_GETSTRINGWIDTH = LVM_GETSTRINGWIDTHW;
- {$ELSE}
- LVM_GETSTRINGWIDTH = LVM_GETSTRINGWIDTHA;
- {$ENDIF}
- // Macro 58
- Function ListView_GetStringWidth( hwndLV : hwnd; psz : LPCTSTR):cint;
- CONST
- LVHT_NOWHERE = $0001;
- LVHT_ONITEMICON = $0002;
- LVHT_ONITEMLABEL = $0004;
- LVHT_ONITEMSTATEICON = $0008;
- LVHT_ONITEM = (LVHT_ONITEMICON OR LVHT_ONITEMLABEL OR LVHT_ONITEMSTATEICON);
- LVHT_ABOVE = $0008;
- LVHT_BELOW = $0010;
- LVHT_TORIGHT = $0020;
- LVHT_TOLEFT = $0040;
- // #define LVHITTESTINFO_V1_SIZE CCSIZEOF_STRUCT(LVHITTESTINFO, iItem)
- TYPE
- tagLVHITTESTINFO = Record
- pt : POINT;
- flags : UINT;
- iItem : cint;
- {$ifdef ie3plus}
- iSubItem : cint; // this is was NOT in win95. valid only for LVM_SUBITEMHITTEST
- {$ENDIF}
- END;
- LVHITTESTINFO = tagLVHITTESTINFO;
- LPLVHITTESTINFO = ^tagLVHITTESTINFO;
- TLVHITTESTINFO = tagLVHITTESTINFO;
- PLVHITTESTINFO = ^tagLVHITTESTINFO;
- {$ifdef ie3plus}
- LV_HITTESTINFO = LVHITTESTINFO;
- {$ELSE}
- tagLVHITTESTINFO = _LV_HITTESTINFO;
- LVHITTESTINFO = LV_HITTESTINFO;
- {$ENDIF}
- CONST
- LVM_HITTEST = (LVM_FIRST + 18);
- // Macro 59
- Function ListView_HitTest( hwndLV : hwnd;var pinfo : LV_HITTESTINFO ):cint;
- CONST
- LVM_ENSUREVISIBLE = (LVM_FIRST + 19);
- // Macro 60
- Function ListView_EnsureVisible( hwndLV : hwnd; i : cint; fPartialOK : cint ):BOOL;
- CONST
- LVM_SCROLL = (LVM_FIRST + 20);
- // Macro 61
- Function ListView_Scroll( hwndLV : hwnd; dx : cint; dy : cint):BOOL;
- CONST
- LVM_REDRAWITEMS = (LVM_FIRST + 21);
- // Macro 62
- Function ListView_RedrawItems( hwndLV : hwnd; iFirst : cint; iLast : cint):BOOL;
- CONST
- LVA_DEFAULT = $0000;
- LVA_ALIGNLEFT = $0001;
- LVA_ALIGNTOP = $0002;
- LVA_SNAPTOGRID = $0005;
- LVM_ARRANGE = (LVM_FIRST + 22);
- // Macro 63
- Function ListView_Arrange( hwndLV : hwnd; code : UINT):BOOL;
- CONST
- LVM_EDITLABELA = (LVM_FIRST + 23);
- LVM_EDITLABELW = (LVM_FIRST + 118);
- {$IFDEF UNICODE}
- LVM_EDITLABEL = LVM_EDITLABELW;
- {$ELSE}
- LVM_EDITLABEL = LVM_EDITLABELA;
- {$ENDIF}
- // Macro 64
- Function ListView_EditLabel( hwndLV : hwnd; i : cint):HWND;
- CONST
- LVM_GETEDITCONTROL = (LVM_FIRST + 24);
- // Macro 65
- Function ListView_GetEditControl( hwndLV : hwnd):HWND;
- // #define LVCOLUMNA_V1_SIZE CCSIZEOF_STRUCT(LVCOLUMNA, iSubItem)
- // #define LVCOLUMNW_V1_SIZE CCSIZEOF_STRUCT(LVCOLUMNW, iSubItem)
- TYPE
- tagLVCOLUMNA = Record
- mask : UINT;
- fmt : cint;
- cx : cint;
- pszText : LPSTR;
- cchTextMax : cint;
- iSubItem : cint;
- {$ifdef ie3plus}
- iImage : cint;
- iOrder : cint;
- {$ENDIF}
- END;
- LVCOLUMNA = tagLVCOLUMNA;
- LPLVCOLUMNA = ^tagLVCOLUMNA;
- TLVCOLUMNA = tagLVCOLUMNA;
- PLVCOLUMNA = ^tagLVCOLUMNA;
- tagLVCOLUMNW = Record
- mask : UINT;
- fmt : cint;
- cx : cint;
- pszText : LPWSTR;
- cchTextMax : cint;
- iSubItem : cint;
- {$ifdef ie3plus}
- iImage : cint;
- iOrder : cint;
- {$ENDIF}
- END;
- LVCOLUMNW = tagLVCOLUMNW;
- LPLVCOLUMNW = ^tagLVCOLUMNW;
- TLVCOLUMNW = tagLVCOLUMNW;
- PLVCOLUMNW = ^tagLVCOLUMNW;
- {$IFDEF UNICODE}
- LVCOLUMN = LVCOLUMNW;
- LPLVCOLUMN = LPLVCOLUMNW;
- // LVCOLUMN_V1_SIZE = LVCOLUMNW_V1_SIZE;
- {$ELSE}
- LVCOLUMN = LVCOLUMNA;
- LPLVCOLUMN = LPLVCOLUMNA;
- // LVCOLUMN_V1_SIZE = LVCOLUMNA_V1_SIZE;
- {$ENDIF}
- {$ifdef ie3plus}
- LV_COLUMNA = LVCOLUMNA;
- LV_COLUMNW = LVCOLUMNW;
- {$ELSE}
- tagLVCOLUMNA = _LV_COLUMNA;
- LVCOLUMNA = LV_COLUMNA;
- tagLVCOLUMNW = _LV_COLUMNW;
- LVCOLUMNW = LV_COLUMNW;
- {$ENDIF}
- LV_COLUMN = LVCOLUMN;
- CONST
- LVCF_FMT = $0001;
- LVCF_WIDTH = $0002;
- LVCF_TEXT = $0004;
- LVCF_SUBITEM = $0008;
- {$ifdef ie3plus}
- LVCF_IMAGE = $0010;
- LVCF_ORDER = $0020;
- {$ENDIF}
- LVCFMT_LEFT = $0000;
- LVCFMT_RIGHT = $0001;
- LVCFMT_CENTER = $0002;
- LVCFMT_JUSTIFYMASK = $0003;
- {$ifdef ie3plus}
- LVCFMT_IMAGE = $0800;
- LVCFMT_BITMAP_ON_RIGHT = $1000;
- LVCFMT_COL_HAS_IMAGES = $8000;
- {$ENDIF}
- LVM_GETCOLUMNA = (LVM_FIRST + 25);
- LVM_GETCOLUMNW = (LVM_FIRST + 95);
- {$IFDEF UNICODE}
- LVM_GETCOLUMN = LVM_GETCOLUMNW;
- {$ELSE}
- LVM_GETCOLUMN = LVM_GETCOLUMNA;
- {$ENDIF}
- // Macro 66
- Function ListView_GetColumn( hwnd : hwnd; iCol : cint;var pcol : LV_COLUMN ):BOOL;
- CONST
- LVM_SETCOLUMNA = (LVM_FIRST + 26);
- LVM_SETCOLUMNW = (LVM_FIRST + 96);
- {$IFDEF UNICODE}
- LVM_SETCOLUMN = LVM_SETCOLUMNW;
- {$ELSE}
- LVM_SETCOLUMN = LVM_SETCOLUMNA;
- {$ENDIF}
- // Macro 67
- Function ListView_SetColumn( hwnd : hwnd; iCol : cint;Const pcol : LV_COLUMN ):BOOL;
- CONST
- LVM_INSERTCOLUMNA = (LVM_FIRST + 27);
- LVM_INSERTCOLUMNW = (LVM_FIRST + 97);
- {$IFDEF UNICODE} // was already not active (spaces) in .h
- // # define LVM_INSERTCOLUMN LVM_INSERTCOLUMNW
- {$ELSE}
- // # define LVM_INSERTCOLUMN LVM_INSERTCOLUMNA
- {$ENDIF}
- // Macro 68
- Function ListView_InsertColumn( hwnd : hwnd; iCol : cint;Const pcol : LV_COLUMN ):cint;
- CONST
- LVM_DELETECOLUMN = (LVM_FIRST + 28);
- // Macro 69
- Function ListView_DeleteColumn( hwnd : hwnd; iCol : cint):BOOL;
- CONST
- LVM_GETCOLUMNWIDTH = (LVM_FIRST + 29);
- // Macro 70
- Function ListView_GetColumnWidth( hwnd : hwnd; iCol : cint):cint;
- CONST
- LVSCW_AUTOSIZE = -1;
- LVSCW_AUTOSIZE_USEHEADER = -2;
- LVM_SETCOLUMNWIDTH = (LVM_FIRST + 30);
- // Macro 71
- Function ListView_SetColumnWidth( hwnd : hwnd; iCol : cint; cx : cint ):BOOL;
- {$ifdef ie3plus}
- CONST
- LVM_GETHEADER = (LVM_FIRST + 31);
- // Macro 72
- Function ListView_GetHeader( hwnd : hwnd):HWND;
- {$ENDIF}
- CONST
- LVM_CREATEDRAGIMAGE = (LVM_FIRST + 33);
- // Macro 73
- Function ListView_CreateDragImage( hwnd : hwnd; i : cint; lpptUpLeft : LPPOINT):HIMAGELIST;
- CONST
- LVM_GETVIEWRECT = (LVM_FIRST + 34);
- // Macro 74
- Function ListView_GetViewRect( hwnd : hwnd;var prc : RECT ):BOOL;
- CONST
- LVM_GETTEXTCOLOR = (LVM_FIRST + 35);
- // Macro 75
- Function ListView_GetTextColor( hwnd : hwnd):COLORREF;
- CONST
- LVM_SETTEXTCOLOR = (LVM_FIRST + 36);
- // Macro 76
- Function ListView_SetTextColor( hwnd : hwnd; clrText : COLORREF):BOOL;
- CONST
- LVM_GETTEXTBKCOLOR = (LVM_FIRST + 37);
- // Macro 77
- Function ListView_GetTextBkColor( hwnd : hwnd):COLORREF;
- CONST
- LVM_SETTEXTBKCOLOR = (LVM_FIRST + 38);
- // Macro 78
- Function ListView_SetTextBkColor( hwnd : hwnd; clrTextBk : COLORREF):BOOL;
- CONST
- LVM_GETTOPINDEX = (LVM_FIRST + 39);
- // Macro 79
- Function ListView_GetTopIndex( hwndLV : hwnd):cint;
- CONST
- LVM_GETCOUNTPERPAGE = (LVM_FIRST + 40);
- // Macro 80
- Function ListView_GetCountPerPage( hwndLV : hwnd):cint;
- CONST
- LVM_GETORIGIN = (LVM_FIRST + 41);
- // Macro 81
- Function ListView_GetOrigin( hwndLV : hwnd;var ppt : POINT ):BOOL;
- CONST
- LVM_UPDATE = (LVM_FIRST + 42);
- // Macro 82
- Function ListView_Update( hwndLV : hwnd; i : WPARAM):BOOL;
- CONST
- LVM_SETITEMSTATE = (LVM_FIRST + 43);
- // Macro 83
- Procedure ListView_SetItemState(hwndLV :hwnd; i :cint ;data,mask:UINT);
- {$ifdef ie3plus}
- // Macro 84
- Procedure ListView_SetCheckState( hwndLV : hwnd; i : cint ; fCheck : bool );
- {$ENDIF}
- CONST
- LVM_GETITEMSTATE = (LVM_FIRST + 44);
- // Macro 85
- Function ListView_GetItemState( hwndLV : hwnd; i : WPARAM; mask : LPARAM):UINT;
- {$ifdef ie3plus}
- // Macro 86
- Function ListView_GetCheckState( hwndLV : hwnd; i : WPARAM):UINT;
- {$ENDIF}
- CONST
- LVM_GETITEMTEXTA = (LVM_FIRST + 45);
- LVM_GETITEMTEXTW = (LVM_FIRST + 115);
- {$IFDEF UNICODE}
- LVM_GETITEMTEXT = LVM_GETITEMTEXTW;
- {$ELSE}
- LVM_GETITEMTEXT = LVM_GETITEMTEXTA;
- {$ENDIF}
- // Macro 87
- Procedure ListView_GetItemText(hwndLV:hwnd; i : WPARAM ;iSubItem : cint ;pszText : Pointer;cchTextMax :cint);
- CONST
- LVM_SETITEMTEXTA = (LVM_FIRST + 46);
- LVM_SETITEMTEXTW = (LVM_FIRST + 116);
- {$IFDEF UNICODE}
- LVM_SETITEMTEXT = LVM_SETITEMTEXTW;
- {$ELSE}
- LVM_SETITEMTEXT = LVM_SETITEMTEXTA;
- {$ENDIF}
- // Macro 88
- Procedure ListView_SetItemText(hwndLV:hwnd; i : WPARAM ;iSubItem : cint ;pszText : Pointer);
- {$ifdef ie3plus}
- // these flags only apply to LVS_OWNERDATA listviews in report or list mode
- CONST
- LVSICF_NOINVALIDATEALL = $00000001;
- LVSICF_NOSCROLL = $00000002;
- {$ENDIF}
- LVM_SETITEMCOUNT = (LVM_FIRST + 47);
- // Macro 89
- Procedure ListView_SetItemCount( hwndLV : hwnd; cItems : WPARAM);
- {$ifdef ie3plus}
- // Macro 90
- Procedure ListView_SetItemCountEx( hwndLV : hwnd; cItems : WPARAM; dwFlags : LPARAM);
- {$ENDIF}
- TYPE
- PFNLVCOMPARE=Function(a,b,c:LPARAM):cint;
- CONST
- LVM_SORTITEMS = (LVM_FIRST + 48);
- // Macro 91
- Function ListView_SortItems( hwndLV : hwnd;pfnCompare : PFNLVCOMPARE; lPrm : LPARAM):BOOL;
- CONST
- LVM_SETITEMPOSITION32 = (LVM_FIRST + 49);
- // Macro 92
- Procedure ListView_SetItemPosition32(hwndLV:hwnd; i:cint;x0,y0:long);
- CONST
- LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50);
- // Macro 93
- Function ListView_GetSelectedCount( hwndLV : hwnd):UINT;
- CONST
- LVM_GETITEMSPACING = (LVM_FIRST + 51);
- // Macro 94
- Function ListView_GetItemSpacing( hwndLV : hwnd; fSmall : cint ):DWORD;
- CONST
- LVM_GETISEARCHSTRINGA = (LVM_FIRST + 52);
- LVM_GETISEARCHSTRINGW = (LVM_FIRST + 117);
- {$IFDEF UNICODE}
- LVM_GETISEARCHSTRING = LVM_GETISEARCHSTRINGW;
- {$ELSE}
- LVM_GETISEARCHSTRING = LVM_GETISEARCHSTRINGA;
- {$ENDIF}
- // Macro 95
- Function ListView_GetISearchString( hwndLV : hwnd; lpsz : LPTSTR):BOOL;
- {$ifdef ie3plus}
- CONST
- LVM_SETICONSPACING = (LVM_FIRST + 53);
- // -1 for cx and cy means we'll use the default (system settings)
- // 0 for cx or cy means use the current setting (allows you to change just one param)
- // Macro 96
- Function ListView_SetIconSpacing( hwndLV : hwnd; cx, cy : cint ):DWORD;
- CONST
- LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54); // optional wParam == mask
- // Macro 97
- Function ListView_SetExtendedListViewStyle( hwndLV : hwnd; dw : cint ):DWORD;
- {$ifdef ie4plus}
- // Macro 98
- Function ListView_SetExtendedListViewStyleEx( hwndLV : hwnd; dwMask, dw : cint ):DWORD;
- {$ENDIF}
- CONST
- LVM_GETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 55);
- // Macro 99
- Function ListView_GetExtendedListViewStyle( hwndLV : hwnd):DWORD;
- CONST
- LVS_EX_GRIDLINES = $00000001;
- LVS_EX_SUBITEMIMAGES = $00000002;
- LVS_EX_CHECKBOXES = $00000004;
- LVS_EX_TRACKSELECT = $00000008;
- LVS_EX_HEADERDRAGDROP = $00000010;
- LVS_EX_FULLROWSELECT = $00000020; // applies to report mode only
- LVS_EX_ONECLICKACTIVATE = $00000040;
- LVS_EX_TWOCLICKACTIVATE = $00000080;
- {$ifdef ie4plus}
- LVS_EX_FLATSB = $00000100;
- LVS_EX_REGIONAL = $00000200;
- LVS_EX_INFOTIP = $00000400; // listview does InfoTips for you
- LVS_EX_UNDERLINEHOT = $00000800;
- LVS_EX_UNDERLINECOLD = $00001000;
- LVS_EX_MULTIWORKAREAS = $00002000;
- {$ENDIF}
- {$ifdef ie5plus}
- LVS_EX_LABELTIP = $00004000; // listview unfolds partly hidden labels if it does not have infotip text
- LVS_EX_BORDERSELECT = $00008000; // border selection style instead of highlight
- {$ENDIF} // End (_WIN32_IE >= 0x0500)
- {$ifdef win32xp}
- LVS_EX_DOUBLEBUFFER = $00010000;
- LVS_EX_HIDELABELS = $00020000;
- LVS_EX_SINGLEROW = $00040000;
- LVS_EX_SNAPTOGRID = $00080000; // Icons automatically snap to grid.
- LVS_EX_SIMPLESELECT = $00100000; // Also changes overlay rendering to top right for icon mode.
- {$ENDIF}
- LVM_GETSUBITEMRECT = (LVM_FIRST + 56);
- // Macro 100
- Function ListView_GetSubItemRect( hwnd : hwnd; iItem : cint;iSubItem, code :cint ;prc:LPRECT):BOOL;
- CONST
- LVM_SUBITEMHITTEST = (LVM_FIRST + 57);
- // Macro 101
- Function ListView_SubItemHitTest( hwnd : hwnd; plvhti : LPLVHITTESTINFO):cint;
- CONST
- LVM_SETCOLUMNORDERARRAY = (LVM_FIRST + 58);
- // Macro 102
- Function ListView_SetColumnOrderArray( hwnd : hwnd; iCount : WPARAM; pi : LPINT):BOOL;
- CONST
- LVM_GETCOLUMNORDERARRAY = (LVM_FIRST + 59);
- // Macro 103
- Function ListView_GetColumnOrderArray( hwnd : hwnd; iCount : WPARAM; pi : LPINT):BOOL;
- CONST
- LVM_SETHOTITEM = (LVM_FIRST + 60);
- // Macro 104
- Function ListView_SetHotItem( hwnd : hwnd; i : WPARAM):cint;
- CONST
- LVM_GETHOTITEM = (LVM_FIRST + 61);
- // Macro 105
- Function ListView_GetHotItem( hwnd : hwnd):cint;
- CONST
- LVM_SETHOTCURSOR = (LVM_FIRST + 62);
- // Macro 106
- Function ListView_SetHotCursor( hwnd : hwnd; hcur : LPARAM):HCURSOR;
- CONST
- LVM_GETHOTCURSOR = (LVM_FIRST + 63);
- // Macro 107
- Function ListView_GetHotCursor( hwnd : hwnd):HCURSOR;
- CONST
- LVM_APPROXIMATEVIEWRECT = (LVM_FIRST + 64);
- // Macro 108
- Function ListView_ApproximateViewRect( hwnd : hwnd; iWidth, iHeight, iCount : cint ):DWORD;
- {$ENDIF} // _WIN32_IE >= 0x0300
- {$ifdef ie4plus}
- CONST
- LV_MAX_WORKAREAS = 16;
- LVM_SETWORKAREAS = (LVM_FIRST + 65);
- // Macro 109
- Function ListView_SetWorkAreas( hwnd : hwnd; nWorkAreas : cint;var prc : RECT ):BOOL;
- CONST
- LVM_GETWORKAREAS = (LVM_FIRST + 70);
- // Macro 110
- Function ListView_GetWorkAreas( hwnd : hwnd; nWorkAreas : cint;var prc : RECT ):BOOL;
- CONST
- LVM_GETNUMBEROFWORKAREAS = (LVM_FIRST + 73);
- // Macro 111
- Function ListView_GetNumberOfWorkAreas( hwnd : hwnd;var pnWorkAreas : UINT ):BOOL;
- CONST
- LVM_GETSELECTIONMARK = (LVM_FIRST + 66);
- // Macro 112
- Function ListView_GetSelectionMark( hwnd : hwnd):cint;
- CONST
- LVM_SETSELECTIONMARK = (LVM_FIRST + 67);
- // Macro 113
- Function ListView_SetSelectionMark( hwnd : hwnd; i : LPARAM):cint;
- CONST
- LVM_SETHOVERTIME = (LVM_FIRST + 71);
- // Macro 114
- Function ListView_SetHoverTime( hwndLV : hwnd; dwHoverTimeMs : LPARAM):DWORD;
- CONST
- LVM_GETHOVERTIME = (LVM_FIRST + 72);
- // Macro 115
- Function ListView_GetHoverTime( hwndLV : hwnd):DWORD;
- CONST
- LVM_SETTOOLTIPS = (LVM_FIRST + 74);
- // Macro 116
- Function ListView_SetToolTips( hwndLV : hwnd; hwndNewHwnd : WPARAM):HWND;
- CONST
- LVM_GETTOOLTIPS = (LVM_FIRST + 78);
- // Macro 117
- Function ListView_GetToolTips( hwndLV : hwnd):HWND;
- CONST
- LVM_SORTITEMSEX = (LVM_FIRST + 81);
- // Macro 118
- Function ListView_SortItemsEx( hwndLV : hwnd; _pfnCompare : PFNLVCOMPARE; _lPrm : LPARAM):BOOL;
- TYPE
- tagLVBKIMAGEA = Record
- ulFlags : ULONG; // LVBKIF_*
- hbm : HBITMAP;
- pszImage : LPSTR;
- cchImageMax : UINT;
- xOffsetPercent : cint;
- yOffsetPercent : cint;
- END;
- LVBKIMAGEA = tagLVBKIMAGEA;
- LPLVBKIMAGEA = ^tagLVBKIMAGEA;
- TLVBKIMAGEA = tagLVBKIMAGEA;
- PLVBKIMAGEA = ^tagLVBKIMAGEA;
- tagLVBKIMAGEW = Record
- ulFlags : ULONG; // LVBKIF_*
- hbm : HBITMAP;
- pszImage : LPWSTR;
- cchImageMax : UINT;
- xOffsetPercent : cint;
- yOffsetPercent : cint;
- END;
- LVBKIMAGEW = tagLVBKIMAGEW;
- LPLVBKIMAGEW = ^tagLVBKIMAGEW;
- TLVBKIMAGEW = tagLVBKIMAGEW;
- PLVBKIMAGEW = ^tagLVBKIMAGEW;
- CONST
- LVBKIF_SOURCE_NONE = $00000000;
- LVBKIF_SOURCE_HBITMAP = $00000001;
- LVBKIF_SOURCE_URL = $00000002;
- LVBKIF_SOURCE_MASK = $00000003;
- LVBKIF_STYLE_NORMAL = $00000000;
- LVBKIF_STYLE_TILE = $00000010;
- LVBKIF_STYLE_MASK = $00000010;
- {$ifdef win32xp}
- LVBKIF_FLAG_TILEOFFSET = $00000100;
- LVBKIF_TYPE_WATERMARK = $10000000;
- {$ENDIF}
- LVM_SETBKIMAGEA = (LVM_FIRST + 68);
- LVM_SETBKIMAGEW = (LVM_FIRST + 138);
- LVM_GETBKIMAGEA = (LVM_FIRST + 69);
- LVM_GETBKIMAGEW = (LVM_FIRST + 139);
- {$ifdef win32xp}
- LVM_SETSELECTEDCOLUMN = (LVM_FIRST + 140);
- // Macro 119
- Procedure ListView_SetSelectedColumn( hwnd : hwnd; iCol : WPARAM);
- CONST
- LVM_SETTILEWIDTH = (LVM_FIRST + 141);
- // Macro 120
- Procedure ListView_SetTileWidth( hwnd : hwnd; cpWidth : WPARAM);
- CONST
- LV_VIEW_ICON = $0000;
- LV_VIEW_DETAILS = $0001;
- LV_VIEW_SMALLICON = $0002;
- LV_VIEW_LIST = $0003;
- LV_VIEW_TILE = $0004;
- LV_VIEW_MAX = $0004;
- LVM_SETVIEW = (LVM_FIRST + 142);
- // Macro 121
- Function ListView_SetView( hwnd : hwnd; iView : DWORD):DWORD;
- CONST
- LVM_GETVIEW = (LVM_FIRST + 143);
- // Macro 122
- Function ListView_GetView( hwnd : hwnd):DWORD;
- CONST
- LVGF_NONE = $00000000;
- LVGF_HEADER = $00000001;
- LVGF_FOOTER = $00000002;
- LVGF_STATE = $00000004;
- LVGF_ALIGN = $00000008;
- LVGF_GROUPID = $00000010;
- LVGS_NORMAL = $00000000;
- LVGS_COLLAPSED = $00000001;
- LVGS_HIDDEN = $00000002;
- LVGA_HEADER_LEFT = $00000001;
- LVGA_HEADER_CENTER = $00000002;
- LVGA_HEADER_RIGHT = $00000004; // Don't forget to validate exclusivity
- LVGA_FOOTER_LEFT = $00000008;
- LVGA_FOOTER_CENTER = $00000010;
- LVGA_FOOTER_RIGHT = $00000020; // Don't forget to validate exclusivity
- TYPE
- tagLVGROUP = Record
- cbSize : UINT;
- mask : UINT;
- pszHeader : LPWSTR;
- cchHeader : cint;
- pszFooter : LPWSTR;
- cchFooter : cint;
- iGroupId : cint;
- stateMask : UINT;
- state : UINT;
- uAlign : UINT;
- END;
- LVGROUP = tagLVGROUP;
- PLVGROUP = ^tagLVGROUP;
- TLVGROUP = tagLVGROUP;
- CONST
- LVM_INSERTGROUP = (LVM_FIRST + 145);
- // Macro 123
- Procedure ListView_InsertGroup( hwnd : hwnd; index : WPARAM; pgrp : LPARAM);
- CONST
- LVM_SETGROUPINFO = (LVM_FIRST + 147);
- // Macro 124
- Procedure ListView_SetGroupInfo( hwnd : hwnd; iGroupId : WPARAM; pgrp : LPARAM);
- CONST
- LVM_GETGROUPINFO = (LVM_FIRST + 149);
- // Macro 125
- Procedure ListView_GetGroupInfo( hwnd : hwnd; iGroupId : WPARAM; pgrp : LPARAM);
- CONST
- LVM_REMOVEGROUP = (LVM_FIRST + 150);
- // Macro 126
- Procedure ListView_RemoveGroup( hwnd : hwnd; iGroupId : WPARAM);
- CONST
- LVM_MOVEGROUP = (LVM_FIRST + 151);
- // Macro 127
- Procedure ListView_MoveGroup( hwnd : hwnd; iGroupId : WPARAM; toIndex : LPARAM);
- CONST
- LVM_MOVEITEMTOGROUP = (LVM_FIRST + 154);
- // Macro 128
- Procedure ListView_MoveItemToGroup( hwnd : hwnd; idItemFrom : WPARAM; idGroupTo : LPARAM);
- CONST
- LVGMF_NONE = $00000000;
- LVGMF_BORDERSIZE = $00000001;
- LVGMF_BORDERCOLOR = $00000002;
- LVGMF_TEXTCOLOR = $00000004;
- TYPE
- tagLVGROUPMETRICS = Record
- cbSize : UINT;
- mask : UINT;
- Left : UINT;
- Top : UINT;
- Right : UINT;
- Bottom : UINT;
- crLeft : COLORREF;
- crTop : COLORREF;
- crRight : COLORREF;
- crBottom : COLORREF;
- crHeader : COLORREF;
- crFooter : COLORREF;
- END;
- LVGROUPMETRICS = tagLVGROUPMETRICS;
- PLVGROUPMETRICS = ^tagLVGROUPMETRICS;
- TLVGROUPMETRICS = tagLVGROUPMETRICS;
- CONST
- LVM_SETGROUPMETRICS = (LVM_FIRST + 155);
- // Macro 129
- Procedure ListView_SetGroupMetrics( hwnd : hwnd; pGroupMetrics : LPARAM);
- CONST
- LVM_GETGROUPMETRICS = (LVM_FIRST + 156);
- // Macro 130
- Procedure ListView_GetGroupMetrics( hwnd : hwnd; pGroupMetrics : LPARAM);
- CONST
- LVM_ENABLEGROUPVIEW = (LVM_FIRST + 157);
- // Macro 131
- Procedure ListView_EnableGroupView( hwnd : hwnd; fEnable : WPARAM);
- TYPE
- PFNLVGROUPCOMPARE = function(i,j:cint;k:pointer):cint; StdCall;
- CONST
- LVM_SORTGROUPS = (LVM_FIRST + 158);
- // Macro 132
- Procedure ListView_SortGroups( hwnd : hwnd; _pfnGroupCompate : WPARAM; _plv : LPARAM);
- TYPE
- tagLVINSERTGROUPSORTED = Record
- pfnGroupCompare : PFNLVGROUPCOMPARE;
- pvData : Pointer;
- lvGroup : LVGROUP;
- END;
- LVINSERTGROUPSORTED = tagLVINSERTGROUPSORTED;
- PLVINSERTGROUPSORTED = ^tagLVINSERTGROUPSORTED;
- TLVINSERTGROUPSORTED = tagLVINSERTGROUPSORTED;
- CONST
- LVM_INSERTGROUPSORTED = (LVM_FIRST + 159);
- // Macro 133
- Procedure ListView_InsertGroupSorted( hwnd : hwnd; structInsert : WPARAM);
- CONST
- LVM_REMOVEALLGROUPS = (LVM_FIRST + 160);
- // Macro 134
- Procedure ListView_RemoveAllGroups( hwnd : hwnd);
- CONST
- LVM_HASGROUP = (LVM_FIRST + 161);
- // Macro 135
- Procedure ListView_HasGroup( hwnd : hwnd; dwGroupId : DWORD );
- CONST
- LVTVIF_AUTOSIZE = $00000000;
- LVTVIF_FIXEDWIDTH = $00000001;
- LVTVIF_FIXEDHEIGHT = $00000002;
- LVTVIF_FIXEDSIZE = $00000003;
- LVTVIM_TILESIZE = $00000001;
- LVTVIM_COLUMNS = $00000002;
- LVTVIM_LABELMARGIN = $00000004;
- TYPE
- tagLVTILEVIEWINFO = Record
- cbSize : UINT;
- dwMask : DWORD; //LVTVIM_*
- dwFlags : DWORD; //LVTVIF_*
- sizeTile : SIZE;
- cLines : cint;
- rcLabelMargin : RECT;
- END;
- LVTILEVIEWINFO = tagLVTILEVIEWINFO;
- PLVTILEVIEWINFO = ^tagLVTILEVIEWINFO;
- TLVTILEVIEWINFO = tagLVTILEVIEWINFO;
- tagLVTILEINFO = Record
- cbSize : UINT;
- iItem : cint;
- cColumns : UINT;
- puColumns : PUINT;
- END;
- LVTILEINFO = tagLVTILEINFO;
- PLVTILEINFO = ^tagLVTILEINFO;
- TLVTILEINFO = tagLVTILEINFO;
- CONST
- LVM_SETTILEVIEWINFO = (LVM_FIRST + 162);
- // Macro 136
- Procedure ListView_SetTileViewInfo( hwnd : hwnd; ptvi : LPARAM);
- CONST
- LVM_GETTILEVIEWINFO = (LVM_FIRST + 163);
- // Macro 137
- Procedure ListView_GetTileViewInfo( hwnd : hwnd; ptvi : LPARAM);
- CONST
- LVM_SETTILEINFO = (LVM_FIRST + 164);
- // Macro 138
- Procedure ListView_SetTileInfo( hwnd : hwnd; pti : LPARAM);
- CONST
- LVM_GETTILEINFO = (LVM_FIRST + 165);
- // Macro 139
- Procedure ListView_GetTileInfo( hwnd : hwnd; pti : LPARAM);
- TYPE
- LVINSERTMARK = Record
- cbSize : UINT;
- dwFlags : DWORD;
- iItem : cint;
- dwReserved : DWORD;
- END;
- LPLVINSERTMARK = ^LVINSERTMARK;
- TLVINSERTMARK = LVINSERTMARK;
- PLVINSERTMARK = ^LVINSERTMARK;
- CONST
- LVIM_AFTER = $00000001; // TRUE = insert After iItem, otherwise before
- LVM_SETINSERTMARK = (LVM_FIRST + 166);
- // Macro 140
- Function ListView_SetInsertMark( hwnd : hwnd; lvim : lparam ):BOOL;
- CONST
- LVM_GETINSERTMARK = (LVM_FIRST + 167);
- // Macro 141
- Function ListView_GetInsertMark( hwnd : hwnd; lvim : lparam ):BOOL;
- CONST
- LVM_INSERTMARKHITTEST = (LVM_FIRST + 168);
- // Macro 142
- Function ListView_InsertMarkHitTest( hwnd : hwnd; point : LPPOINT; lvim : LPLVINSERTMARK):cint;
- CONST
- LVM_GETINSERTMARKRECT = (LVM_FIRST + 169);
- // Macro 143
- Function ListView_GetInsertMarkRect( hwnd : hwnd; rc : LPRECT):cint;
- CONST
- LVM_SETINSERTMARKCOLOR = (LVM_FIRST + 170);
- // Macro 144
- Function ListView_SetInsertMarkColor( hwnd : hwnd; color : COLORREF):COLORREF;
- CONST
- LVM_GETINSERTMARKCOLOR = (LVM_FIRST + 171);
- // Macro 145
- Function ListView_GetInsertMarkColor( hwnd : hwnd):COLORREF;
- TYPE
- tagLVSETINFOTIP = Record
- cbSize : UINT;
- dwFlags : DWORD;
- pszText : LPWSTR;
- iItem : cint;
- iSubItem : cint;
- END;
- LVSETINFOTIP = tagLVSETINFOTIP;
- PLVSETINFOTIP = ^tagLVSETINFOTIP;
- TLVSETINFOTIP = tagLVSETINFOTIP;
- CONST
- LVM_SETINFOTIP = (LVM_FIRST + 173);
- // Macro 146
- Function ListView_SetInfoTip( hwndLV : hwnd; plvInfoTip : LPARAM):BOOL;
- CONST
- LVM_GETSELECTEDCOLUMN = (LVM_FIRST + 174);
- // Macro 147
- Function ListView_GetSelectedColumn( hwnd : hwnd):UINT;
- CONST
- LVM_ISGROUPVIEWENABLED = (LVM_FIRST + 175);
- // Macro 148
- Function ListView_IsGroupViewEnabled( hwnd : hwnd):BOOL;
- CONST
- LVM_GETOUTLINECOLOR = (LVM_FIRST + 176);
- // Macro 149
- Function ListView_GetOutlineColor( hwnd : hwnd):COLORREF;
- CONST
- LVM_SETOUTLINECOLOR = (LVM_FIRST + 177);
- // Macro 150
- Function ListView_SetOutlineColor( hwnd : hwnd; color : COLORREF):COLORREF;
- CONST
- LVM_CANCELEDITLABEL = (LVM_FIRST + 179);
- // Macro 151
- Procedure ListView_CancelEditLabel( hwnd : hwnd);
- // These next to methods make it easy to identify an item that can be repositioned
- // within listview. For example: Many developers use the lParam to store an identifier that is
- // unique. Unfortunatly, in order to find this item, they have to iterate through all of the items
- // in the listview. Listview will maintain a unique identifier. The upper bound is the size of a DWORD.
- CONST
- LVM_MAPINDEXTOID = (LVM_FIRST + 180);
- // Macro 152
- Function ListView_MapIndexToID( hwnd : hwnd; index : WPARAM):UINT;
- CONST
- LVM_MAPIDTOINDEX = (LVM_FIRST + 181);
- // Macro 153
- Function ListView_MapIDToIndex( hwnd : hwnd; id : WPARAM):UINT;
- {$ENDIF}
- Type
- {$IFDEF UNICODE}
- LVBKIMAGE = LVBKIMAGEW;
- LPLVBKIMAGE = LPLVBKIMAGEW;
- CONST
- LVM_SETBKIMAGE = LVM_SETBKIMAGEW;
- LVM_GETBKIMAGE = LVM_GETBKIMAGEW;
- {$ELSE}
- LVBKIMAGE = LVBKIMAGEA;
- LPLVBKIMAGE = LPLVBKIMAGEA;
- CONST
- LVM_SETBKIMAGE = LVM_SETBKIMAGEA;
- LVM_GETBKIMAGE = LVM_GETBKIMAGEA;
- {$ENDIF}
- // Macro 154
- Function ListView_SetBkImage( hwnd : hwnd; plvbki : LPARAM):BOOL;
- // Macro 155
- Function ListView_GetBkImage( hwnd : hwnd; plvbki : LPARAM):BOOL;
- {$ENDIF} // _WIN32_IE >= 0x0400
- TYPE
- tagNMLISTVIEW = Record
- hdr : NMHDR;
- iItem : cint;
- iSubItem : cint;
- uNewState : UINT;
- uOldState : UINT;
- uChanged : UINT;
- ptAction : POINT;
- lParam : LPARAM;
- END;
- NMLISTVIEW = tagNMLISTVIEW;
- LPNMLISTVIEW = ^tagNMLISTVIEW;
- TNMLISTVIEW = tagNMLISTVIEW;
- PNMLISTVIEW = ^tagNMLISTVIEW;
- {$ifdef IE4plus}
- // NMITEMACTIVATE is used instead of NMLISTVIEW in IE >= 0x400
- // therefore all the fields are the same except for extra uKeyFlags
- // they are used to store key flags at the time of the single click with
- // delayed activation - because by the time the timer goes off a user may
- // not hold the keys (shift, ctrl) any more
- tagNMITEMACTIVATE = Record
- hdr : NMHDR;
- iItem : cint;
- iSubItem : cint;
- uNewState : UINT;
- uOldState : UINT;
- uChanged : UINT;
- ptAction : POINT;
- lParam : LPARAM;
- uKeyFlags : UINT;
- END;
- NMITEMACTIVATE = tagNMITEMACTIVATE;
- LPNMITEMACTIVATE = ^tagNMITEMACTIVATE;
- TNMITEMACTIVATE = tagNMITEMACTIVATE;
- PNMITEMACTIVATE = ^tagNMITEMACTIVATE;
- // key flags stored in uKeyFlags
- CONST
- LVKF_ALT = $0001;
- LVKF_CONTROL = $0002;
- LVKF_SHIFT = $0004;
- {$ENDIF} //(_WIN32_IE >= 0x0400)
- Type
- {$ifdef ie3plus}
- LPNM_LISTVIEW = LPNMLISTVIEW;
- NM_LISTVIEW = NMLISTVIEW;
- {$ELSE}
- tagNMLISTVIEW = _NM_LISTVIEW;
- NMLISTVIEW = NM_LISTVIEW;
- LPNMLISTVIEW = LPNM_LISTVIEW;
- {$ENDIF}
- {$ifdef ie3plus}
- // #define NMLVCUSTOMDRAW_V3_SIZE CCSIZEOF_STRUCT(NMLVCUSTOMDRW, clrTextBk)
- TYPE
- tagNMLVCUSTOMDRAW = Record
- nmcd : NMCUSTOMDRAW;
- clrText : COLORREF;
- clrTextBk : COLORREF;
- {$ifdef ie4plus}
- iSubItem : cint;
- {$ENDIF}
- {$ifdef win32xp}
- dwItemType : DWORD;
- clrFace : COLORREF;
- iIconEffect : cint;
- iIconPhase : cint;
- iPartId : cint;
- iStateId : cint;
- rcText : RECT;
- uAlign : UINT; // Alignment. Use LVGA_HEADER_CENTER, LVGA_HEADER_RIGHT, LVGA_HEADER_LEFT
- {$ENDIF}
- END;
- NMLVCUSTOMDRAW = tagNMLVCUSTOMDRAW;
- LPNMLVCUSTOMDRAW = ^tagNMLVCUSTOMDRAW;
- TNMLVCUSTOMDRAW = tagNMLVCUSTOMDRAW;
- PNMLVCUSTOMDRAW = ^tagNMLVCUSTOMDRAW;
- // dwItemType
- CONST
- LVCDI_ITEM = $00000000;
- LVCDI_GROUP = $00000001;
- // ListView custom draw return values
- LVCDRF_NOSELECT = $00010000;
- LVCDRF_NOGROUPFRAME = $00020000;
- TYPE
- tagNMLVCACHEHINT = Record
- hdr : NMHDR;
- iFrom : cint;
- iTo : cint;
- END;
- NMLVCACHEHINT = tagNMLVCACHEHINT;
- LPNMLVCACHEHINT = ^tagNMLVCACHEHINT;
- TNMLVCACHEHINT = tagNMLVCACHEHINT;
- PNMLVCACHEHINT = ^tagNMLVCACHEHINT;
- LPNM_CACHEHINT = LPNMLVCACHEHINT;
- PNM_CACHEHINT = LPNMLVCACHEHINT;
- NM_CACHEHINT = NMLVCACHEHINT;
- tagNMLVFINDITEMA = Record
- hdr : NMHDR;
- iStart : cint;
- lvfi : LVFINDINFOA;
- END;
- NMLVFINDITEMA = tagNMLVFINDITEMA;
- LPNMLVFINDITEMA = ^tagNMLVFINDITEMA;
- TNMLVFINDITEMA = tagNMLVFINDITEMA;
- PNMLVFINDITEMA = ^tagNMLVFINDITEMA;
- tagNMLVFINDITEMW = Record
- hdr : NMHDR;
- iStart : cint;
- lvfi : LVFINDINFOW;
- END;
- NMLVFINDITEMW = tagNMLVFINDITEMW;
- LPNMLVFINDITEMW = ^tagNMLVFINDITEMW;
- TNMLVFINDITEMW = tagNMLVFINDITEMW;
- PNMLVFINDITEMW = ^tagNMLVFINDITEMW;
- PNM_FINDITEMA = LPNMLVFINDITEMA;
- LPNM_FINDITEMA = LPNMLVFINDITEMA;
- NM_FINDITEMA = NMLVFINDITEMA;
- PNM_FINDITEMW = LPNMLVFINDITEMW;
- LPNM_FINDITEMW = LPNMLVFINDITEMW;
- NM_FINDITEMW = NMLVFINDITEMW;
- {$IFDEF UNICODE}
- PNM_FINDITEM = PNM_FINDITEMW;
- LPNM_FINDITEM = LPNM_FINDITEMW;
- NM_FINDITEM = NM_FINDITEMW;
- NMLVFINDITEM = NMLVFINDITEMW;
- LPNMLVFINDITEM = LPNMLVFINDITEMW;
- {$ELSE}
- PNM_FINDITEM = PNM_FINDITEMA;
- LPNM_FINDITEM = LPNM_FINDITEMA;
- NM_FINDITEM = NM_FINDITEMA;
- NMLVFINDITEM = NMLVFINDITEMA;
- LPNMLVFINDITEM = LPNMLVFINDITEMA;
- {$ENDIF}
- tagNMLVODSTATECHANGE = Record
- hdr : NMHDR;
- iFrom : cint;
- iTo : cint;
- uNewState : UINT;
- uOldState : UINT;
- END;
- NMLVODSTATECHANGE = tagNMLVODSTATECHANGE;
- LPNMLVODSTATECHANGE = ^tagNMLVODSTATECHANGE;
- TNMLVODSTATECHANGE = tagNMLVODSTATECHANGE;
- PNMLVODSTATECHANGE = ^tagNMLVODSTATECHANGE;
- PNM_ODSTATECHANGE = LPNMLVODSTATECHANGE;
- LPNM_ODSTATECHANGE = LPNMLVODSTATECHANGE;
- NM_ODSTATECHANGE = NMLVODSTATECHANGE;
- {$ENDIF} // _WIN32_IE >= 0x0300
- CONST
- LVN_ITEMCHANGING = (LVN_FIRST-0);
- LVN_ITEMCHANGED = (LVN_FIRST-1);
- LVN_INSERTITEM = (LVN_FIRST-2);
- LVN_DELETEITEM = (LVN_FIRST-3);
- LVN_DELETEALLITEMS = (LVN_FIRST-4);
- LVN_BEGINLABELEDITA = (LVN_FIRST-5);
- LVN_BEGINLABELEDITW = (LVN_FIRST-75);
- LVN_ENDLABELEDITA = (LVN_FIRST-6);
- LVN_ENDLABELEDITW = (LVN_FIRST-76);
- LVN_COLUMNCLICK = (LVN_FIRST-8);
- LVN_BEGINDRAG = (LVN_FIRST-9);
- LVN_BEGINRDRAG = (LVN_FIRST-11);
- {$ifdef ie3plus}
- LVN_ODCACHEHINT = (LVN_FIRST-13);
- LVN_ODFINDITEMA = (LVN_FIRST-52);
- LVN_ODFINDITEMW = (LVN_FIRST-79);
- LVN_ITEMACTIVATE = (LVN_FIRST-14);
- LVN_ODSTATECHANGED = (LVN_FIRST-15);
- Const
- {$IFDEF UNICODE}
- LVN_ODFINDITEM = LVN_ODFINDITEMW;
- {$ELSE}
- LVN_ODFINDITEM = LVN_ODFINDITEMA;
- {$ENDIF}
- {$ENDIF} // _WIN32_IE >= 0x0300
- CONST
- {$ifdef ie4plus}
- LVN_HOTTRACK = (LVN_FIRST-21);
- {$ENDIF}
- LVN_GETDISPINFOA = (LVN_FIRST-50);
- LVN_GETDISPINFOW = (LVN_FIRST-77);
- LVN_SETDISPINFOA = (LVN_FIRST-51);
- LVN_SETDISPINFOW = (LVN_FIRST-78);
- Const
- {$IFDEF UNICODE}
- LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITW;
- LVN_ENDLABELEDIT = LVN_ENDLABELEDITW;
- LVN_GETDISPINFO = LVN_GETDISPINFOW;
- LVN_SETDISPINFO = LVN_SETDISPINFOW;
- {$ELSE}
- LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITA;
- LVN_ENDLABELEDIT = LVN_ENDLABELEDITA;
- LVN_GETDISPINFO = LVN_GETDISPINFOA;
- LVN_SETDISPINFO = LVN_SETDISPINFOA;
- {$ENDIF}
- CONST
- LVIF_DI_SETITEM = $1000;
- TYPE
- tagLVDISPINFO = Record
- hdr : NMHDR;
- item : LVITEMA;
- END;
- NMLVDISPINFOA = tagLVDISPINFO;
- LPNMLVDISPINFOA = ^tagLVDISPINFO;
- TLVDISPINFO = tagLVDISPINFO;
- PLVDISPINFO = ^tagLVDISPINFO;
- tagLVDISPINFOW = Record
- hdr : NMHDR;
- item : LVITEMW;
- END;
- NMLVDISPINFOW = tagLVDISPINFOW;
- LPNMLVDISPINFOW = ^tagLVDISPINFOW;
- TLVDISPINFOW = tagLVDISPINFOW;
- PLVDISPINFOW = ^tagLVDISPINFOW;
- {$IFDEF UNICODE}
- NMLVDISPINFO = NMLVDISPINFOW;
- {$ELSE}
- NMLVDISPINFO = NMLVDISPINFOA;
- {$ENDIF}
- {$ifdef ie3plus}
- LV_DISPINFOA = NMLVDISPINFOA;
- LV_DISPINFOW = NMLVDISPINFOW;
- {$ELSE}
- tagLVDISPINFO = _LV_DISPINFO;
- NMLVDISPINFOA = LV_DISPINFOA;
- tagLVDISPINFOW = _LV_DISPINFOW;
- NMLVDISPINFOW = LV_DISPINFOW;
- {$ENDIF}
- LV_DISPINFO = NMLVDISPINFO;
- CONST
- LVN_KEYDOWN = (LVN_FIRST-55);
- {$IFDEF _WIN32}
- // include <pshpack1.h>
- {$ENDIF}
- TYPE
- tagLVKEYDOWN = Record
- hdr : NMHDR;
- wVKey : WORD;
- flags : UINT;
- END;
- NMLVKEYDOWN = tagLVKEYDOWN;
- LPNMLVKEYDOWN = ^tagLVKEYDOWN;
- TLVKEYDOWN = tagLVKEYDOWN;
- PLVKEYDOWN = ^tagLVKEYDOWN;
- {$IFDEF _WIN32}
- //include <poppack.h>
- {$ENDIF}
- {$ifdef ie3plus}
- CONST
- LVN_MARQUEEBEGIN = (LVN_FIRST-56);
- {$ENDIF}
- {$ifdef ie4plus}
- TYPE
- tagNMLVGETINFOTIPA = Record
- hdr : NMHDR;
- dwFlags : DWORD;
- pszText : LPSTR;
- cchTextMax : cint;
- iItem : cint;
- iSubItem : cint;
- lParam : LPARAM;
- END;
- NMLVGETINFOTIPA = tagNMLVGETINFOTIPA;
- LPNMLVGETINFOTIPA = ^tagNMLVGETINFOTIPA;
- TNMLVGETINFOTIPA = tagNMLVGETINFOTIPA;
- PNMLVGETINFOTIPA = ^tagNMLVGETINFOTIPA;
- tagNMLVGETINFOTIPW = Record
- hdr : NMHDR;
- dwFlags : DWORD;
- pszText : LPWSTR;
- cchTextMax : cint;
- iItem : cint;
- iSubItem : cint;
- lParam : LPARAM;
- END;
- NMLVGETINFOTIPW = tagNMLVGETINFOTIPW;
- LPNMLVGETINFOTIPW = ^tagNMLVGETINFOTIPW;
- TNMLVGETINFOTIPW = tagNMLVGETINFOTIPW;
- PNMLVGETINFOTIPW = ^tagNMLVGETINFOTIPW;
- {$ifdef ie3plus}
- LV_KEYDOWN = NMLVKEYDOWN;
- {$ELSE}
- tagLVKEYDOWN = _LV_KEYDOWN;
- NMLVKEYDOWN = LV_KEYDOWN;
- {$ENDIF}
- // NMLVGETINFOTIPA.dwFlag values
- CONST
- LVGIT_UNFOLDED = $0001;
- LVN_GETINFOTIPA = (LVN_FIRST-57);
- LVN_GETINFOTIPW = (LVN_FIRST-58);
- Const
- {$IFDEF UNICODE}
- LVN_GETINFOTIP = LVN_GETINFOTIPW;
- type
- NMLVGETINFOTIP = NMLVGETINFOTIPW;
- LPNMLVGETINFOTIP = LPNMLVGETINFOTIPW;
- {$ELSE}
- LVN_GETINFOTIP = LVN_GETINFOTIPA;
- type
- NMLVGETINFOTIP = NMLVGETINFOTIPA;
- LPNMLVGETINFOTIP = LPNMLVGETINFOTIPA;
- {$ENDIF}
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$ifdef win32xp}
- tagNMLVSCROLL = Record
- hdr : NMHDR;
- dx : cint;
- dy : cint;
- END;
- NMLVSCROLL = tagNMLVSCROLL;
- LPNMLVSCROLL = ^tagNMLVSCROLL;
- TNMLVSCROLL = tagNMLVSCROLL;
- PNMLVSCROLL = ^tagNMLVSCROLL;
- CONST
- LVN_BEGINSCROLL = (LVN_FIRST-80) ;
- LVN_ENDSCROLL = (LVN_FIRST-81);
- // {$ENDIF}
- {$ENDIF} // NOLISTVIEW
- //====== TREEVIEW CONTROL =====================================================
- {$IFNDEF NOTREEVIEW}
- CONST
- {$IFDEF _WIN32}
- WC_TREEVIEWA = 'SysTreeView32';
- WC_TREEVIEWW = {L}'SysTreeView32';
- {$IFDEF UNICODE}
- WC_TREEVIEW = WC_TREEVIEWW;
- {$ELSE}
- WC_TREEVIEW = WC_TREEVIEWA;
- {$ENDIF}
- {$ELSE}
- WC_TREEVIEW = 'SysTreeView';
- {$ENDIF}
- // begin_r_commctrl
- TVS_HASBUTTONS = $0001;
- TVS_HASLINES = $0002;
- TVS_LINESATROOT = $0004;
- TVS_EDITLABELS = $0008;
- TVS_DISABLEDRAGDROP = $0010;
- TVS_SHOWSELALWAYS = $0020;
- {$ifdef ie3plus}
- TVS_RTLREADING = $0040;
- TVS_NOTOOLTIPS = $0080;
- TVS_CHECKBOXES = $0100;
- TVS_TRACKSELECT = $0200;
- {$ifdef ie4plus}
- TVS_SINGLEEXPAND = $0400;
- TVS_INFOTIP = $0800;
- TVS_FULLROWSELECT = $1000;
- TVS_NOSCROLL = $2000;
- TVS_NONEVENHEIGHT = $4000;
- {$ENDIF}
- {$ifdef ie5plus}
- TVS_NOHSCROLL = $8000; // TVS_NOSCROLL overrides this
- {$ENDIF}
- {$ENDIF}
- // end_r_commctrl
- TYPE
- HTREEITEM = ^TREEITEM;
- CONST
- TVIF_TEXT = $0001;
- TVIF_IMAGE = $0002;
- TVIF_PARAM = $0004;
- TVIF_STATE = $0008;
- TVIF_HANDLE = $0010;
- TVIF_SELECTEDIMAGE = $0020;
- TVIF_CHILDREN = $0040;
- {$ifdef ie4plus}
- TVIF_INTEGRAL = $0080;
- {$ENDIF}
- TVIS_SELECTED = $0002;
- TVIS_CUT = $0004;
- TVIS_DROPHILITED = $0008;
- TVIS_BOLD = $0010;
- TVIS_EXPANDED = $0020;
- TVIS_EXPANDEDONCE = $0040;
- {$ifdef ie3plus}
- TVIS_EXPANDPARTIAL = $0080;
- {$ENDIF}
- TVIS_OVERLAYMASK = $0F00;
- TVIS_STATEIMAGEMASK = $F000;
- TVIS_USERMASK = $F000;
- I_CHILDRENCALLBACK = (-1);
- Type
- tagTVITEMA = Record
- mask : UINT;
- hItem : HTREEITEM;
- state : UINT;
- stateMask : UINT;
- pszText : LPSTR;
- cchTextMax : cint;
- iImage : cint;
- iSelectedImage : cint;
- cChildren : cint;
- lParam : LPARAM;
- END;
- TVITEMA = tagTVITEMA;
- LPTVITEMA = ^tagTVITEMA;
- TTVITEMA = tagTVITEMA;
- PTVITEMA = ^tagTVITEMA;
- tagTVITEMW = Record
- mask : UINT;
- hItem : HTREEITEM;
- state : UINT;
- stateMask : UINT;
- pszText : LPWSTR;
- cchTextMax : cint;
- iImage : cint;
- iSelectedImage : cint;
- cChildren : cint;
- lParam : LPARAM;
- END;
- TVITEMW = tagTVITEMW;
- LPTVITEMW = ^tagTVITEMW;
- TTVITEMW = tagTVITEMW;
- PTVITEMW = ^tagTVITEMW;
- {$ifdef ie4plus}
- // only used for Get and Set messages. no notifies
- tagTVITEMEXA = Record
- mask : UINT;
- hItem : HTREEITEM;
- state : UINT;
- stateMask : UINT;
- pszText : LPSTR;
- cchTextMax : cint;
- iImage : cint;
- iSelectedImage : cint;
- cChildren : cint;
- lParam : LPARAM;
- iIntegral : cint;
- END;
- TVITEMEXA = tagTVITEMEXA;
- LPTVITEMEXA = ^tagTVITEMEXA;
- TTVITEMEXA = tagTVITEMEXA;
- PTVITEMEXA = ^tagTVITEMEXA;
- // only used for Get and Set messages. no notifies
- tagTVITEMEXW = Record
- mask : UINT;
- hItem : HTREEITEM;
- state : UINT;
- stateMask : UINT;
- pszText : LPWSTR;
- cchTextMax : cint;
- iImage : cint;
- iSelectedImage : cint;
- cChildren : cint;
- lParam : LPARAM;
- iIntegral : cint;
- END;
- TVITEMEXW = tagTVITEMEXW;
- LPTVITEMEXW = ^tagTVITEMEXW;
- TTVITEMEXW = tagTVITEMEXW;
- PTVITEMEXW = ^tagTVITEMEXW;
- TYPE
- {$ifdef ie3plus}
- LPTV_ITEMW = LPTVITEMW;
- LPTV_ITEMA = LPTVITEMA;
- TV_ITEMW = TVITEMW;
- TV_ITEMA = TVITEMA;
- {$ELSE}
- tagTVITEMA = _TV_ITEMA;
- TVITEMA = TV_ITEMA;
- LPTVITEMA = LPTV_ITEMA;
- tagTVITEMW = _TV_ITEMW;
- TVITEMW = TV_ITEMW;
- LPTVITEMW = LPTV_ITEMW;
- {$ENDIF}
- {$IFDEF UNICODE}
- TVITEMEX = TVITEMEXW;
- LPTVITEMEX = LPTVITEMEXW;
- {$ELSE}
- TVITEMEX = TVITEMEXA;
- LPTVITEMEX = LPTVITEMEXA;
- {$ENDIF} // UNICODE
- {$ENDIF}
- {$IFDEF UNICODE}
- TVITEM = TVITEMW;
- LPTVITEM = LPTVITEMW;
- {$ELSE}
- TVITEM = TVITEMA;
- LPTVITEM = LPTVITEMA;
- {$ENDIF}
- LPTV_ITEM = LPTVITEM;
- TV_ITEM = TVITEM;
- CONST
- TVI_ROOT = HTREEITEM(ULONG_PTR(-$10000));
- TVI_FIRST = HTREEITEM(ULONG_PTR(-$0FFFF));
- TVI_LAST = HTREEITEM(ULONG_PTR(-$0FFFE));
- TVI_SORT = HTREEITEM(ULONG_PTR(-$0FFFD));
- // #define TVINSERTSTRUCTA_V1_SIZE CCSIZEOF_STRUCT(TVINSERTSTRUCTA, item)
- // #define TVINSERTSTRUCTW_V1_SIZE CCSIZEOF_STRUCT(TVINSERTSTRUCTW, item)
- Type
- tagTVINSERTSTRUCTA = Record
- hParent : HTREEITEM;
- hInsertAfter : HTREEITEM;
- {$ifdef ie4plus}
- dumunion : record
- case boolean of
- false: (itemex : TVITEMEXA;);
- True: (item : TV_ITEMA;);
- end;
- {$ELSE}
- item : TV_ITEMA;
- {$ENDIF}
- END;
- TVINSERTSTRUCTA = tagTVINSERTSTRUCTA;
- LPTVINSERTSTRUCTA = ^tagTVINSERTSTRUCTA;
- TTVINSERTSTRUCTA = tagTVINSERTSTRUCTA;
- PTVINSERTSTRUCTA = ^tagTVINSERTSTRUCTA;
- tagTVINSERTSTRUCTW = Record
- hParent : HTREEITEM;
- hInsertAfter : HTREEITEM;
- {$ifdef ie4plus}
- dumunion : record
- case boolean of
- false: (itemex : TVITEMEXW);
- True: (item : TV_ITEMW);
- end;
- {$ELSE}
- item : TV_ITEMW;
- {$ENDIF}
- END;
- TVINSERTSTRUCTW = tagTVINSERTSTRUCTW;
- LPTVINSERTSTRUCTW = ^tagTVINSERTSTRUCTW;
- TTVINSERTSTRUCTW = tagTVINSERTSTRUCTW;
- PTVINSERTSTRUCTW = ^tagTVINSERTSTRUCTW;
- {$IFDEF UNICODE}
- TVINSERTSTRUCT = TVINSERTSTRUCTW;
- LPTVINSERTSTRUCT = LPTVINSERTSTRUCTW;
- // TVINSERTSTRUCT_V1_SIZE = TVINSERTSTRUCTW_V1_SIZE;
- {$ELSE}
- TVINSERTSTRUCT = TVINSERTSTRUCTA;
- LPTVINSERTSTRUCT = LPTVINSERTSTRUCTA;
- // TVINSERTSTRUCT_V1_SIZE = TVINSERTSTRUCTA_V1_SIZE;
- {$ENDIF}
- CONST
- TVM_INSERTITEMA = (TV_FIRST + 0);
- TVM_INSERTITEMW = (TV_FIRST + 50);
- {$IFDEF UNICODE}
- TVM_INSERTITEM = TVM_INSERTITEMW;
- {$ELSE}
- TVM_INSERTITEM = TVM_INSERTITEMA;
- {$ENDIF}
- TYPE
- {$ifdef ie3plus}
- LPTV_INSERTSTRUCTA = LPTVINSERTSTRUCTA;
- LPTV_INSERTSTRUCTW = LPTVINSERTSTRUCTW;
- TV_INSERTSTRUCTA = TVINSERTSTRUCTA;
- TV_INSERTSTRUCTW = TVINSERTSTRUCTW;
- {$ELSE}
- tagTVINSERTSTRUCTA = _TV_INSERTSTRUCTA;
- TVINSERTSTRUCTA = TV_INSERTSTRUCTA;
- LPTVINSERTSTRUCTA = LPTV_INSERTSTRUCTA;
- tagTVINSERTSTRUCTW = _TV_INSERTSTRUCTW;
- TVINSERTSTRUCTW = TV_INSERTSTRUCTW;
- LPTVINSERTSTRUCTW = LPTV_INSERTSTRUCTW;
- {$ENDIF}
- TV_INSERTSTRUCT = TVINSERTSTRUCT;
- LPTV_INSERTSTRUCT = LPTVINSERTSTRUCT;
- // Macro 156
- Function TreeView_InsertItem( hwnd : hwnd; lpis : LPTV_INSERTSTRUCT):HTREEITEM;
- CONST
- TVM_DELETEITEM = (TV_FIRST + 1);
- // Macro 157
- Function TreeView_DeleteItem( hwnd : hwnd; hitem : HTREEITEM):BOOL;
- // Macro 158
- Function TreeView_DeleteAllItems( hwnd : hwnd):BOOL;
- CONST
- TVM_EXPAND = (TV_FIRST + 2);
- // Macro 159
- Function TreeView_Expand( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):BOOL;
- CONST
- TVE_COLLAPSE = $0001;
- TVE_EXPAND = $0002;
- TVE_TOGGLE = $0003;
- {$ifdef ie3plus}
- TVE_EXPANDPARTIAL = $4000;
- {$ENDIF}
- TVE_COLLAPSERESET = $8000;
- TVM_GETITEMRECT = (TV_FIRST + 4);
- // Macro 160
- Function TreeView_GetItemRect( hwnd : hwnd; hitem: TREEITEM; code : WPARAM; prc : pRECT):BOOL;
- CONST
- TVM_GETCOUNT = (TV_FIRST + 5);
- // Macro 161
- Function TreeView_GetCount( hwnd : hwnd):UINT;
- CONST
- TVM_GETINDENT = (TV_FIRST + 6);
- // Macro 162
- Function TreeView_GetIndent( hwnd : hwnd):UINT;
- CONST
- TVM_SETINDENT = (TV_FIRST + 7);
- // Macro 163
- Function TreeView_SetIndent( hwnd : hwnd; indent : WPARAM):BOOL;
- CONST
- TVM_GETIMAGELIST = (TV_FIRST + 8);
- // Macro 164
- Function TreeView_GetImageList( hwnd : hwnd; iImage : cint ):HIMAGELIST;
- CONST
- TVSIL_NORMAL = 0;
- TVSIL_STATE = 2;
- TVM_SETIMAGELIST = (TV_FIRST + 9);
- // Macro 165
- Function TreeView_SetImageList( hwnd : hwnd; himl : HIMAGELIST; iImage : cint):HIMAGELIST;
- CONST
- TVM_GETNEXTITEM = (TV_FIRST + 10);
- // Macro 166
- Function TreeView_GetNextItem( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):HTREEITEM;
- CONST
- TVGN_ROOT = $0000;
- TVGN_NEXT = $0001;
- TVGN_PREVIOUS = $0002;
- TVGN_PARENT = $0003;
- TVGN_CHILD = $0004;
- TVGN_FIRSTVISIBLE = $0005;
- TVGN_NEXTVISIBLE = $0006;
- TVGN_PREVIOUSVISIBLE = $0007;
- TVGN_DROPHILITE = $0008;
- TVGN_CARET = $0009;
- {$ifdef ie4plus}
- TVGN_LASTVISIBLE = $000A;
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$ifdef win32xp}
- TVSI_NOSINGLEEXPAND = $8000; // Should not conflict with TVGN flags.
- {$ENDIF}
- // Macro 167
- // #define TreeView_GetChild(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_CHILD)
- // Macro 168
- // #define TreeView_GetNextSibling(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_NEXT)
- // Macro 169
- // #define TreeView_GetPrevSibling(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUS)
- // Macro 170
- // #define TreeView_GetParent(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PARENT)
- // Macro 171
- // #define TreeView_GetFirstVisible(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_FIRSTVISIBLE)
- // Macro 172
- // #define TreeView_GetNextVisible(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE)
- // Macro 173
- // #define TreeView_GetPrevVisible(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE)
- // Macro 174
- // #define TreeView_GetSelection(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_CARET)
- // Macro 175
- // #define TreeView_GetDropHilight(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_DROPHILITE)
- // Macro 176
- // #define TreeView_GetRoot(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_ROOT)
- {$ifdef ie4plus}
- // Macro 177
- // #define TreeView_GetLastVisible(hwnd) TreeView_GetNextItem(hwnd, NULL, TVGN_LASTVISIBLE)
- {$ENDIF} // _WIN32_IE >= 0x0400
- CONST
- TVM_SELECTITEM = (TV_FIRST + 11);
- // Macro 178
- Function TreeView_Select( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):BOOL;
- // Macro 179
- Procedure TreeView_SelectItem(hwnd:hwnd; hitem:HTREEITEM);
- // Macro 180
- Procedure TreeView_SelectDropTarget(hwnd:hwnd; hitem:HTREEITEM);
- // Macro 181
- Procedure TreeView_SelectSetFirstVisible(hwnd:hwnd; hitem:HTREEITEM);
- CONST
- TVM_GETITEMA = (TV_FIRST + 12);
- TVM_GETITEMW = (TV_FIRST + 62);
- {$IFDEF UNICODE}
- TYPE
- TVM_GETITEM = TVM_GETITEMW;
- {$ELSE}
- TVM_GETITEM = TVM_GETITEMA;
- {$ENDIF}
- // Macro 182
- Function TreeView_GetItem( hwnd : hwnd;var pitem : TV_ITEM ):BOOL;
- CONST
- TVM_SETITEMA = (TV_FIRST + 13);
- TVM_SETITEMW = (TV_FIRST + 63);
- {$IFDEF UNICODE}
- TYPE
- TVM_SETITEM = TVM_SETITEMW;
- {$ELSE}
- TVM_SETITEM = TVM_SETITEMA;
- {$ENDIF}
- // Macro 183
- Function TreeView_SetItem( hwnd : hwnd;const pitem : TV_ITEM ):BOOL;
- CONST
- TVM_EDITLABELA = (TV_FIRST + 14);
- TVM_EDITLABELW = (TV_FIRST + 65);
- {$IFDEF UNICODE}
- TYPE
- TVM_EDITLABEL = TVM_EDITLABELW;
- {$ELSE}
- TVM_EDITLABEL = TVM_EDITLABELA;
- {$ENDIF}
- // Macro 184
- Function TreeView_EditLabel( hwnd : hwnd; hitem : HTREEITEM):HWND;
- CONST
- TVM_GETEDITCONTROL = (TV_FIRST + 15);
- // Macro 185
- Function TreeView_GetEditControl( hwnd : hwnd):HWND;
- CONST
- TVM_GETVISIBLECOUNT = (TV_FIRST + 16);
- // Macro 186
- Function TreeView_GetVisibleCount( hwnd : hwnd):UINT;
- CONST
- TVM_HITTEST = (TV_FIRST + 17);
- TYPE
- tagTVHITTESTINFO = Record
- pt : POINT;
- flags : UINT;
- hItem : HTREEITEM;
- END;
- TVHITTESTINFO = tagTVHITTESTINFO;
- LPTVHITTESTINFO = ^tagTVHITTESTINFO;
- TTVHITTESTINFO = tagTVHITTESTINFO;
- PTVHITTESTINFO = ^tagTVHITTESTINFO;
- {$ifdef ie3plus}
- LPTV_HITTESTINFO = LPTVHITTESTINFO;
- TV_HITTESTINFO = TVHITTESTINFO;
- {$ELSE}
- tagTVHITTESTINFO = _TV_HITTESTINFO;
- TVHITTESTINFO = TV_HITTESTINFO;
- LPTVHITTESTINFO = LPTV_HITTESTINFO;
- {$ENDIF}
- CONST
- TVHT_NOWHERE = $0001;
- TVHT_ONITEMICON = $0002;
- TVHT_ONITEMLABEL = $0004;
- TVHT_ONITEM = (TVHT_ONITEMICON OR TVHT_ONITEMLABEL OR TVHT_ONITEMSTATEICON);
- TVHT_ONITEMINDENT = $0008;
- TVHT_ONITEMBUTTON = $0010;
- TVHT_ONITEMRIGHT = $0020;
- TVHT_ONITEMSTATEICON = $0040;
- TVHT_ABOVE = $0100;
- TVHT_BELOW = $0200;
- TVHT_TORIGHT = $0400;
- TVHT_TOLEFT = $0800;
- TVM_CREATEDRAGIMAGE = (TV_FIRST + 18);
- // Macro 187
- Function TreeView_HitTest( hwnd : hwnd; lpht : LPTV_HITTESTINFO):HTREEITEM;
- // Macro 188
- Function TreeView_CreateDragImage( hwnd : hwnd; hitem : HTREEITEM):HIMAGELIST;
- CONST
- TVM_SORTCHILDREN = (TV_FIRST + 19);
- // Macro 189
- Function TreeView_SortChildren( hwnd : hwnd; hitem : HTREEITEM; recurse : WPARAM):BOOL;
- CONST
- TVM_ENSUREVISIBLE = (TV_FIRST + 20);
- // Macro 190
- Function TreeView_EnsureVisible( hwnd : hwnd; hitem : HTREEITEM):BOOL;
- CONST
- TVM_ENDEDITLABELNOW = (TV_FIRST + 22);
- // Macro 192
- Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : WPARAM):BOOL;
- CONST
- TVM_GETISEARCHSTRINGA = (TV_FIRST + 23);
- TVM_GETISEARCHSTRINGW = (TV_FIRST + 64);
- {$IFDEF UNICODE}
- TYPE
- TVM_GETISEARCHSTRING= TVM_GETISEARCHSTRINGW;
- {$ELSE}
- TVM_GETISEARCHSTRING= TVM_GETISEARCHSTRINGA;
- {$ENDIF}
- {$ifdef ie3plus}
- CONST
- TVM_SETTOOLTIPS = (TV_FIRST + 24);
- // Macro 193
- Function TreeView_SetToolTips( hwnd : hwnd; hwndTT : WPARAM):HWND;
- CONST
- TVM_GETTOOLTIPS = (TV_FIRST + 25);
- // Macro 194
- Function TreeView_GetToolTips( hwnd : hwnd):HWND;
- {$ENDIF}
- // Macro 195
- Function TreeView_GetISearchString( hwndTV : hwnd; lpsz : LPTSTR):BOOL;
- {$ifdef ie4plus}
- CONST
- TVM_SETINSERTMARK = (TV_FIRST + 26);
- // Macro 196
- Function TreeView_SetInsertMark( hwnd : hwnd; hItem : LPARAM ; fAfter : WPARAM ):BOOL;
- CONST
- TVM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- // Macro 197
- Function TreeView_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
- CONST
- TVM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- // Macro 198
- Function TreeView_GetUnicodeFormat( hwnd : hwnd):BOOL;
- {$ENDIF}
- {$ifdef ie4plus}
- CONST
- TVM_SETITEMHEIGHT = (TV_FIRST + 27);
- // Macro 199
- Function TreeView_SetItemHeight( hwnd : hwnd; iHeight : WPARAM):cint;
- CONST
- TVM_GETITEMHEIGHT = (TV_FIRST + 28);
- // Macro 200
- Function TreeView_GetItemHeight( hwnd : hwnd):cint;
- CONST
- TVM_SETBKCOLOR = (TV_FIRST + 29);
- // Macro 201
- Function TreeView_SetBkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- CONST
- TVM_SETTEXTCOLOR = (TV_FIRST + 30);
- // Macro 202
- Function TreeView_SetTextColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- CONST
- TVM_GETBKCOLOR = (TV_FIRST + 31);
- // Macro 203
- Function TreeView_GetBkColor( hwnd : hwnd):COLORREF;
- CONST
- TVM_GETTEXTCOLOR = (TV_FIRST + 32);
- // Macro 204
- Function TreeView_GetTextColor( hwnd : hwnd):COLORREF;
- CONST
- TVM_SETSCROLLTIME = (TV_FIRST + 33);
- // Macro 205
- Function TreeView_SetScrollTime( hwnd : hwnd; uTime :wparam ):UINT;
- CONST
- TVM_GETSCROLLTIME = (TV_FIRST + 34);
- // Macro 206
- Function TreeView_GetScrollTime( hwnd : hwnd):UINT;
- CONST
- TVM_SETINSERTMARKCOLOR = (TV_FIRST + 37);
- // Macro 207
- Function TreeView_SetInsertMarkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- CONST
- TVM_GETINSERTMARKCOLOR = (TV_FIRST + 38);
- // Macro 208
- Function TreeView_GetInsertMarkColor( hwnd : hwnd):COLORREF;
- {$ENDIF} // (_WIN32_IE >= 0x0400)
- {$ifdef ie5plus}
- // tvm_?etitemstate only uses mask, state and stateMask.
- // so unicode or ansi is irrelevant.
- // Macro 209
- Procedure TreeView_SetItemState(hwndTV:HWND;hti:HTreeItem;data:UINT;_mask:UINT);
- // Macro 210
- Procedure TreeView_SetCheckState( hwndTV : hwnd; hti : HTreeItem ; fCheck : bool );
- CONST
- TVM_GETITEMSTATE = (TV_FIRST + 39);
- // Macro 211
- Function TreeView_GetItemState( hwndTV : hwnd; hti : WPARAM; mask : LPARAM):UINT;
- // Macro 212
- Function TreeView_GetCheckState( hwndTV : hwnd; hti : WPARAM):UINT;
- CONST
- TVM_SETLINECOLOR = (TV_FIRST + 40);
- // Macro 213
- Function TreeView_SetLineColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- CONST
- TVM_GETLINECOLOR = (TV_FIRST + 41);
- // Macro 214
- Function TreeView_GetLineColor( hwnd : hwnd):COLORREF;
- {$ENDIF}
- {$ifdef Win32XP}
- CONST
- TVM_MAPACCIDTOHTREEITEM = (TV_FIRST + 42);
- // Macro 215
- Function TreeView_MapAccIDToHTREEITEM( hwnd : hwnd; id : UINT ):HTREEITEM;
- CONST
- TVM_MAPHTREEITEMTOACCID = (TV_FIRST + 43);
- // Macro 216
- Function TreeView_MapHTREEITEMToAccID( hwnd : hwnd; htreeitem : WPARAM):UINT;
- {$ENDIF}
- TYPE
- PFNTVCOMPARE =function (lparam1:LPARAM;lparam2:LPARAM;lParamSort:LParam): cint; STDCALL;
- tagTVSORTCB = Record
- hParent : HTREEITEM;
- lpfnCompare : PFNTVCOMPARE;
- lParam : LPARAM;
- END;
- TVSORTCB = tagTVSORTCB;
- LPTVSORTCB = ^tagTVSORTCB;
- TTVSORTCB = tagTVSORTCB;
- PTVSORTCB = ^tagTVSORTCB;
- {$ifdef ie3plus}
- LPTV_SORTCB = LPTVSORTCB;
- TV_SORTCB = TVSORTCB;
- {$ELSE}
- tagTVSORTCB = _TV_SORTCB;
- TVSORTCB = TV_SORTCB;
- LPTVSORTCB = LPTV_SORTCB;
- {$ENDIF}
- tagNMTREEVIEWA = Record
- hdr : NMHDR;
- action : UINT;
- itemOld : TVITEMA;
- itemNew : TVITEMA;
- ptDrag : POINT;
- END;
- NMTREEVIEWA = tagNMTREEVIEWA;
- LPNMTREEVIEWA = ^tagNMTREEVIEWA;
- TNMTREEVIEWA = tagNMTREEVIEWA;
- PNMTREEVIEWA = ^tagNMTREEVIEWA;
- tagNMTREEVIEWW = Record
- hdr : NMHDR;
- action : UINT;
- itemOld : TVITEMW;
- itemNew : TVITEMW;
- ptDrag : POINT;
- END;
- NMTREEVIEWW = tagNMTREEVIEWW;
- LPNMTREEVIEWW = ^tagNMTREEVIEWW;
- TNMTREEVIEWW = tagNMTREEVIEWW;
- PNMTREEVIEWW = ^tagNMTREEVIEWW;
- {$IFDEF UNICODE}
- NMTREEVIEW = NMTREEVIEWW;
- LPNMTREEVIEW = LPNMTREEVIEWW;
- {$ELSE}
- NMTREEVIEW = NMTREEVIEWA;
- LPNMTREEVIEW = LPNMTREEVIEWA;
- {$ENDIF}
- {$ifdef ie3plus}
- LPNM_TREEVIEWA = LPNMTREEVIEWA;
- LPNM_TREEVIEWW = LPNMTREEVIEWW;
- NM_TREEVIEWW = NMTREEVIEWW;
- NM_TREEVIEWA = NMTREEVIEWA;
- {$ELSE}
- tagNMTREEVIEWA = _NM_TREEVIEWA;
- tagNMTREEVIEWW = _NM_TREEVIEWW;
- NMTREEVIEWA = NM_TREEVIEWA;
- NMTREEVIEWW = NM_TREEVIEWW;
- LPNMTREEVIEWA = LPNM_TREEVIEWA;
- LPNMTREEVIEWW = LPNM_TREEVIEWW;
- {$ENDIF}
- LPNM_TREEVIEW = LPNMTREEVIEW;
- NM_TREEVIEW = NMTREEVIEW;
- CONST
- TVN_SELCHANGINGA = (TVN_FIRST-1);
- TVN_SELCHANGINGW = (TVN_FIRST-50);
- TVN_SELCHANGEDA = (TVN_FIRST-2);
- TVN_SELCHANGEDW = (TVN_FIRST-51);
- TVC_UNKNOWN = $0000;
- TVC_BYMOUSE = $0001;
- TVC_BYKEYBOARD = $0002;
- TVN_GETDISPINFOA = (TVN_FIRST-3);
- TVN_GETDISPINFOW = (TVN_FIRST-52);
- TVN_SETDISPINFOA = (TVN_FIRST-4);
- TVN_SETDISPINFOW = (TVN_FIRST-53);
- TVIF_DI_SETITEM = $1000;
- Type
- tagTVDISPINFOA = Record
- hdr : NMHDR;
- item : TVITEMA;
- END;
- NMTVDISPINFOA = tagTVDISPINFOA;
- LPNMTVDISPINFOA = ^tagTVDISPINFOA;
- TTVDISPINFOA = tagTVDISPINFOA;
- PTVDISPINFOA = ^tagTVDISPINFOA;
- tagTVDISPINFOW = Record
- hdr : NMHDR;
- item : TVITEMW;
- END;
- NMTVDISPINFOW = tagTVDISPINFOW;
- LPNMTVDISPINFOW = ^tagTVDISPINFOW;
- TTVDISPINFOW = tagTVDISPINFOW;
- PTVDISPINFOW = ^tagTVDISPINFOW;
- {$IFDEF UNICODE}
- NMTVDISPINFO = NMTVDISPINFOW;
- LPNMTVDISPINFO = LPNMTVDISPINFOW;
- {$ELSE}
- NMTVDISPINFO = NMTVDISPINFOA;
- LPNMTVDISPINFO = LPNMTVDISPINFOA;
- {$ENDIF}
- {$ifdef ie3plus}
- TV_DISPINFOA = NMTVDISPINFOA;
- TV_DISPINFOW = NMTVDISPINFOW;
- {$ELSE}
- tagTVDISPINFOA = _TV_DISPINFOA;
- NMTVDISPINFOA = TV_DISPINFOA;
- tagTVDISPINFOW = _TV_DISPINFOW;
- NMTVDISPINFOW = TV_DISPINFOW;
- {$ENDIF}
- TV_DISPINFO = NMTVDISPINFO;
- CONST
- TVM_SORTCHILDRENCB = (TV_FIRST + 21);
- // Macro 191
- Function TreeView_SortChildrenCB( hwnd : hwnd;psort :lpTV_sortcb; recurse : WPARAM):BOOL;
- CONST
- TVN_ITEMEXPANDINGA = (TVN_FIRST-5);
- TVN_ITEMEXPANDINGW = (TVN_FIRST-54);
- TVN_ITEMEXPANDEDA = (TVN_FIRST-6);
- TVN_ITEMEXPANDEDW = (TVN_FIRST-55);
- TVN_BEGINDRAGA = (TVN_FIRST-7);
- TVN_BEGINDRAGW = (TVN_FIRST-56);
- TVN_BEGINRDRAGA = (TVN_FIRST-8);
- TVN_BEGINRDRAGW = (TVN_FIRST-57);
- TVN_DELETEITEMA = (TVN_FIRST-9);
- TVN_DELETEITEMW = (TVN_FIRST-58);
- TVN_BEGINLABELEDITA = (TVN_FIRST-10);
- TVN_BEGINLABELEDITW = (TVN_FIRST-59);
- TVN_ENDLABELEDITA = (TVN_FIRST-11);
- TVN_ENDLABELEDITW = (TVN_FIRST-60);
- TVN_KEYDOWN = (TVN_FIRST-12);
- {$ifdef ie4plus}
- TVN_GETINFOTIPA = (TVN_FIRST-13);
- TVN_GETINFOTIPW = (TVN_FIRST-14);
- TVN_SINGLEEXPAND = (TVN_FIRST-15);
- TVNRET_DEFAULT = 0;
- TVNRET_SKIPOLD = 1;
- TVNRET_SKIPNEW = 2;
- {$ENDIF} // 0x400
- {$IFDEF _WIN32}
- #include <pshpack1.h>
- {$ENDIF}
- TYPE
- tagTVKEYDOWN = Record
- hdr : NMHDR;
- wVKey : WORD;
- flags : UINT;
- END;
- NMTVKEYDOWN = tagTVKEYDOWN;
- LPNMTVKEYDOWN = ^tagTVKEYDOWN;
- TTVKEYDOWN = tagTVKEYDOWN;
- PTVKEYDOWN = ^tagTVKEYDOWN;
- {$ifdef ie3plus}
- TV_KEYDOWN = NMTVKEYDOWN;
- {$ELSE}
- tagTVKEYDOWN = _TV_KEYDOWN;
- NMTVKEYDOWN = TV_KEYDOWN;
- {$ENDIF}
- {$IFDEF _WIN32}
- #include <poppack.h>
- {$ENDIF}
- Const
- {$IFDEF UNICODE}
- TVN_SELCHANGING = TVN_SELCHANGINGW;
- TVN_SELCHANGED = TVN_SELCHANGEDW;
- TVN_GETDISPINFO = TVN_GETDISPINFOW;
- TVN_SETDISPINFO = TVN_SETDISPINFOW;
- TVN_ITEMEXPANDING = TVN_ITEMEXPANDINGW;
- TVN_ITEMEXPANDED = TVN_ITEMEXPANDEDW;
- TVN_BEGINDRAG = TVN_BEGINDRAGW;
- TVN_BEGINRDRAG = TVN_BEGINRDRAGW;
- TVN_DELETEITEM = TVN_DELETEITEMW;
- TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITW;
- TVN_ENDLABELEDIT = TVN_ENDLABELEDITW;
- {$ELSE}
- TVN_SELCHANGING = TVN_SELCHANGINGA;
- TVN_SELCHANGED = TVN_SELCHANGEDA;
- TVN_GETDISPINFO = TVN_GETDISPINFOA;
- TVN_SETDISPINFO = TVN_SETDISPINFOA;
- TVN_ITEMEXPANDING = TVN_ITEMEXPANDINGA;
- TVN_ITEMEXPANDED = TVN_ITEMEXPANDEDA;
- TVN_BEGINDRAG = TVN_BEGINDRAGA;
- TVN_BEGINRDRAG = TVN_BEGINRDRAGA;
- TVN_DELETEITEM = TVN_DELETEITEMA;
- TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITA;
- TVN_ENDLABELEDIT = TVN_ENDLABELEDITA;
- {$ENDIF}
- {$ifdef ie3plus}
- // #define NMTVCUSTOMDRAW_V3_SIZE CCSIZEOF_STRUCT(NMTVCUSTOMDRAW, clrTextBk)
- Type
- tagNMTVCUSTOMDRAW = Record
- nmcd : NMCUSTOMDRAW;
- clrText : COLORREF;
- clrTextBk : COLORREF;
- {$ifdef ie4plus}
- iLevel : cint;
- {$ENDIF}
- END;
- NMTVCUSTOMDRAW = tagNMTVCUSTOMDRAW;
- LPNMTVCUSTOMDRAW = ^tagNMTVCUSTOMDRAW;
- TNMTVCUSTOMDRAW = tagNMTVCUSTOMDRAW;
- PNMTVCUSTOMDRAW = ^tagNMTVCUSTOMDRAW;
- {$ENDIF}
- {$ifdef ie4plus}
- // for tooltips
- tagNMTVGETINFOTIPA = Record
- hdr : NMHDR;
- pszText : LPSTR;
- cchTextMax : cint;
- hItem : HTREEITEM;
- lParam : LPARAM;
- END;
- NMTVGETINFOTIPA = tagNMTVGETINFOTIPA;
- LPNMTVGETINFOTIPA = ^tagNMTVGETINFOTIPA;
- TNMTVGETINFOTIPA = tagNMTVGETINFOTIPA;
- PNMTVGETINFOTIPA = ^tagNMTVGETINFOTIPA;
- tagNMTVGETINFOTIPW = Record
- hdr : NMHDR;
- pszText : LPWSTR;
- cchTextMax : cint;
- hItem : HTREEITEM;
- lParam : LPARAM;
- END;
- NMTVGETINFOTIPW = tagNMTVGETINFOTIPW;
- LPNMTVGETINFOTIPW = ^tagNMTVGETINFOTIPW;
- TNMTVGETINFOTIPW = tagNMTVGETINFOTIPW;
- PNMTVGETINFOTIPW = ^tagNMTVGETINFOTIPW;
- CONST
- {$IFDEF UNICODE}
- TVN_GETINFOTIP = TVN_GETINFOTIPW;
- TYPE
- NMTVGETINFOTIP = NMTVGETINFOTIPW;
- LPNMTVGETINFOTIP = LPNMTVGETINFOTIPW;
- {$ELSE}
- TVN_GETINFOTIP = TVN_GETINFOTIPA;
- TYPE
- NMTVGETINFOTIP = NMTVGETINFOTIPA;
- LPNMTVGETINFOTIP = LPNMTVGETINFOTIPA;
- {$ENDIF}
- // treeview's customdraw return meaning don't draw images. valid on CDRF_NOTIFYITEMPREPAINT
- CONST
- TVCDRF_NOIMAGES = $00010000;
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$ENDIF} // NOTREEVIEW
- {$ifdef ie3plus}
- {$IFNDEF NOUSEREXCONTROLS}
- //////////////////// ComboBoxEx ////////////////////////////////
- WC_COMBOBOXEXW = {L}'ComboBoxEx32';
- WC_COMBOBOXEXA = 'ComboBoxEx32';
- {$IFDEF UNICODE}
- WC_COMBOBOXEX = WC_COMBOBOXEXW;
- {$ELSE}
- WC_COMBOBOXEX = WC_COMBOBOXEXA;
- {$ENDIF}
- CONST
- CBEIF_TEXT = $00000001;
- CBEIF_IMAGE = $00000002;
- CBEIF_SELECTEDIMAGE = $00000004;
- CBEIF_OVERLAY = $00000008;
- CBEIF_INDENT = $00000010;
- CBEIF_LPARAM = $00000020;
- CBEIF_DI_SETITEM = $10000000;
- TYPE
- tagCOMBOBOXEXITEMA = Record
- mask : UINT;
- iItem : INT_PTR;
- pszText : LPSTR;
- cchTextMax : cint;
- iImage : cint;
- iSelectedImage : cint;
- iOverlay : cint;
- iIndent : cint;
- lParam : LPARAM;
- END;
- COMBOBOXEXITEMA = tagCOMBOBOXEXITEMA;
- PCOMBOBOXEXITEMA = ^tagCOMBOBOXEXITEMA;
- TCOMBOBOXEXITEMA = tagCOMBOBOXEXITEMA;
- // PCOMBOBOXEXITEMA = ^tagCOMBOBOXEXITEMA;
- PCCOMBOBOXEXITEMA = ^COMBOBOXEXITEMA;
- tagCOMBOBOXEXITEMW = Record
- mask : UINT;
- iItem : INT_PTR;
- pszText : LPWSTR;
- cchTextMax : cint;
- iImage : cint;
- iSelectedImage : cint;
- iOverlay : cint;
- iIndent : cint;
- lParam : LPARAM;
- END;
- COMBOBOXEXITEMW = tagCOMBOBOXEXITEMW;
- PCOMBOBOXEXITEMW = ^tagCOMBOBOXEXITEMW;
- TCOMBOBOXEXITEMW = tagCOMBOBOXEXITEMW;
- // PCOMBOBOXEXITEMW = ^tagCOMBOBOXEXITEMW;
- PCCOMBOBOXEXITEMW = ^COMBOBOXEXITEMW;
- {$IFDEF UNICODE}
- COMBOBOXEXITEM = COMBOBOXEXITEMW;
- PCOMBOBOXEXITEM = PCOMBOBOXEXITEMW;
- PCCOMBOBOXEXITEM = PCCOMBOBOXEXITEMW;
- {$ELSE}
- COMBOBOXEXITEM = COMBOBOXEXITEMA;
- PCOMBOBOXEXITEM = PCOMBOBOXEXITEMA;
- PCCOMBOBOXEXITEM = PCCOMBOBOXEXITEMA;
- {$ENDIF}
- CONST
- CBEM_INSERTITEMA = (WM_USER + 1);
- CBEM_SETIMAGELIST = (WM_USER + 2);
- CBEM_GETIMAGELIST = (WM_USER + 3);
- CBEM_GETITEMA = (WM_USER + 4);
- CBEM_SETITEMA = (WM_USER + 5);
- CBEM_DELETEITEM = CB_DELETESTRING;
- CBEM_GETCOMBOCONTROL = (WM_USER + 6);
- CBEM_GETEDITCONTROL = (WM_USER + 7);
- {$ifdef ie4plus}
- CBEM_SETEXSTYLE = (WM_USER + 8); // use SETEXTENDEDSTYLE instead
- CBEM_SETEXTENDEDSTYLE = (WM_USER + 14); // lparam == new style, wParam (optional) == mask
- CBEM_GETEXSTYLE = (WM_USER + 9); // use GETEXTENDEDSTYLE instead
- CBEM_GETEXTENDEDSTYLE = (WM_USER + 9);
- CBEM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- CBEM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- {$ELSE}
- CBEM_SETEXSTYLE = (WM_USER + 8);
- CBEM_GETEXSTYLE = (WM_USER + 9);
- {$ENDIF}
- CBEM_HASEDITCHANGED = (WM_USER + 10);
- CBEM_INSERTITEMW = (WM_USER + 11);
- CBEM_SETITEMW = (WM_USER + 12);
- CBEM_GETITEMW = (WM_USER + 13);
- {$IFDEF UNICODE}
- CBEM_INSERTITEM = CBEM_INSERTITEMW;
- CBEM_SETITEM = CBEM_SETITEMW;
- CBEM_GETITEM = CBEM_GETITEMW;
- {$ELSE}
- CBEM_INSERTITEM = CBEM_INSERTITEMA;
- CBEM_SETITEM = CBEM_SETITEMA;
- CBEM_GETITEM = CBEM_GETITEMA;
- {$ENDIF}
- {$ifdef win32xp}
- CBEM_SETWINDOWTHEME = CCM_SETWINDOWTHEME;
- {$ENDIF}
- CBES_EX_NOEDITIMAGE = $00000001;
- CBES_EX_NOEDITIMAGEINDENT = $00000002;
- CBES_EX_PATHWORDBREAKPROC = $00000004;
- {$ifdef ie4plus}
- CBES_EX_NOSIZELIMIT = $00000008;
- CBES_EX_CASESENSITIVE = $00000010;
- TYPE
- DummyStruct9 = Record
- hdr : NMHDR;
- ceItem : COMBOBOXEXITEMA;
- END;
- NMCOMBOBOXEXA = DummyStruct9;
- PNMCOMBOBOXEXA = ^DummyStruct9;
- TDummyStruct9 = DummyStruct9;
- PDummyStruct9 = ^DummyStruct9;
- DummyStruct10 = Record
- hdr : NMHDR;
- ceItem : COMBOBOXEXITEMW;
- END;
- NMCOMBOBOXEXW = DummyStruct10;
- PNMCOMBOBOXEXW = ^DummyStruct10;
- TDummyStruct10 = DummyStruct10;
- PDummyStruct10 = ^DummyStruct10;
- {$ELSE}
- DummyStruct11 = Record
- hdr : NMHDR;
- ceItem : COMBOBOXEXITEM;
- END;
- NMCOMBOBOXEX = DummyStruct11;
- PNMCOMBOBOXEX = ^DummyStruct11;
- TDummyStruct11 = DummyStruct11;
- PDummyStruct11 = ^DummyStruct11;
- CONST
- CBEN_GETDISPINFO = (CBEN_FIRST - 0);
- {$ENDIF} // _WIN32_IE >= 0x0400
- CONST
- {$ifdef ie4plus}
- CBEN_GETDISPINFOA = (CBEN_FIRST - 0);
- {$ENDIF}
- CBEN_INSERTITEM = (CBEN_FIRST - 1);
- CBEN_DELETEITEM = (CBEN_FIRST - 2);
- CBEN_BEGINEDIT = (CBEN_FIRST - 4);
- CBEN_ENDEDITA = (CBEN_FIRST - 5);
- CBEN_ENDEDITW = (CBEN_FIRST - 6);
- {$ifdef ie4plus}
- CBEN_GETDISPINFOW = (CBEN_FIRST - 7);
- {$ENDIF}
- {$ifdef ie4plus}
- CBEN_DRAGBEGINA = (CBEN_FIRST - 8);
- CBEN_DRAGBEGINW = (CBEN_FIRST - 9);
- {$IFDEF UNICODE}
- CBEN_DRAGBEGIN = CBEN_DRAGBEGINW;
- {$ELSE}
- CBEN_DRAGBEGIN = CBEN_DRAGBEGINA;
- {$ENDIF}
- {$ENDIF} //(_WIN32_IE >= 0x0400)
- TYPE
- {$IFDEF UNICODE}
- NMCOMBOBOXEX = NMCOMBOBOXEXW;
- PNMCOMBOBOXEX = PNMCOMBOBOXEXW;
- CONST
- CBEN_GETDISPINFO = CBEN_GETDISPINFOW;
- {$ELSE}
- NMCOMBOBOXEX = NMCOMBOBOXEXA;
- PNMCOMBOBOXEX = PNMCOMBOBOXEXA;
- CONST
- CBEN_GETDISPINFO = CBEN_GETDISPINFOA;
- {$ENDIF}
- // lParam specifies why the endedit is happening
- {$IFDEF UNICODE}
- CBEN_ENDEDIT = CBEN_ENDEDITW;
- {$ELSE}
- CBEN_ENDEDIT = CBEN_ENDEDITA;
- {$ENDIF}
- CONST
- CBENF_KILLFOCUS = 1;
- CBENF_RETURN = 2;
- CBENF_ESCAPE = 3;
- CBENF_DROPDOWN = 4;
- CBEMAXSTRLEN = 260;
- {$ifdef ie4plus}
- // CBEN_DRAGBEGIN sends this information ...
- TYPE
- DummyStruct12 = Record
- hdr : NMHDR;
- iItemid : cint;
- szText : Array[0..CBEMAXSTRLEN-1] OF WCHAR;
- END;
- NMCBEDRAGBEGINW = DummyStruct12;
- LPNMCBEDRAGBEGINW = ^DummyStruct12;
- PNMCBEDRAGBEGINW = ^DummyStruct12;
- TDummyStruct12 = DummyStruct12;
- PDummyStruct12 = ^DummyStruct12;
- DummyStruct13 = Record
- hdr : NMHDR;
- iItemid : cint;
- szText : Array[0..CBEMAXSTRLEN-1] OF char;
- END;
- NMCBEDRAGBEGINA = DummyStruct13;
- LPNMCBEDRAGBEGINA = ^DummyStruct13;
- PNMCBEDRAGBEGINA = ^DummyStruct13;
- TDummyStruct13 = DummyStruct13;
- PDummyStruct13 = ^DummyStruct13;
- {$IFDEF UNICODE}
- NMCBEDRAGBEGIN = NMCBEDRAGBEGINW;
- LPNMCBEDRAGBEGIN = LPNMCBEDRAGBEGINW;
- PNMCBEDRAGBEGIN = PNMCBEDRAGBEGINW;
- {$ELSE}
- NMCBEDRAGBEGIN = NMCBEDRAGBEGINA;
- LPNMCBEDRAGBEGIN = LPNMCBEDRAGBEGINA;
- PNMCBEDRAGBEGIN = PNMCBEDRAGBEGINA;
- {$ENDIF}
- {$ENDIF} // _WIN32_IE >= 0x0400
- // CBEN_ENDEDIT sends this information...
- // fChanged if the user actually did anything
- // iNewSelection gives what would be the new selection unless the notify is failed
- // iNewSelection may be CB_ERR if there's no match
- DummyStruct14 = Record
- hdr : NMHDR;
- fChanged : BOOL;
- iNewSelection : cint;
- szText : Array[0..CBEMAXSTRLEN-1] OF WCHAR;
- iWhy : cint;
- END;
- NMCBEENDEDITW = DummyStruct14;
- LPNMCBEENDEDITW = ^DummyStruct14;
- PNMCBEENDEDITW = ^DummyStruct14;
- TDummyStruct14 = DummyStruct14;
- PDummyStruct14 = ^DummyStruct14;
- DummyStruct15 = Record
- hdr : NMHDR;
- fChanged : BOOL;
- iNewSelection : cint;
- szText : Array[0..CBEMAXSTRLEN-1] OF char;
- iWhy : cint;
- END;
- NMCBEENDEDITA = DummyStruct15;
- LPNMCBEENDEDITA = ^DummyStruct15;
- PNMCBEENDEDITA = ^DummyStruct15;
- TDummyStruct15 = DummyStruct15;
- PDummyStruct15 = ^DummyStruct15;
- {$IFDEF UNICODE}
- NMCBEENDEDIT = NMCBEENDEDITW;
- LPNMCBEENDEDIT = LPNMCBEENDEDITW;
- PNMCBEENDEDIT = PNMCBEENDEDITW;
- {$ELSE}
- NMCBEENDEDIT = NMCBEENDEDITA;
- LPNMCBEENDEDIT = LPNMCBEENDEDITA;
- PNMCBEENDEDIT = PNMCBEENDEDITA;
- {$ENDIF}
- {$ENDIF}
- {$ENDIF} // _WIN32_IE >= 0x0300
- //====== TAB CONTROL ==========================================================
- {$IFNDEF NOTABCONTROL}
- {$IFDEF _WIN32}
- CONST
- WC_TABCONTROLA = 'SysTabControl32';
- WC_TABCONTROLW = {L}'SysTabControl32';
- {$IFDEF UNICODE}
- TYPE
- WC_TABCONTROL = WC_TABCONTROLW;
- {$ELSE}
- WC_TABCONTROL = WC_TABCONTROLA;
- {$ENDIF}
- {$ELSE}
- CONST
- WC_TABCONTROL = 'SysTabControl';
- {$ENDIF}
- // begin_r_commctrl
- {$ifdef ie3plus}
- TCS_SCROLLOPPOSITE = $0001; // assumes multiline tab
- TCS_BOTTOM = $0002;
- TCS_RIGHT = $0002;
- TCS_MULTISELECT = $0004; // allow multi-select in button mode
- {$ENDIF}
- {$ifdef ie4plus}
- TCS_FLATBUTTONS = $0008;
- {$ENDIF}
- TCS_FORCEICONLEFT = $0010;
- TCS_FORCELABELLEFT = $0020;
- {$ifdef ie3plus}
- TCS_HOTTRACK = $0040;
- TCS_VERTICAL = $0080;
- {$ENDIF}
- TCS_TABS = $0000;
- TCS_BUTTONS = $0100;
- TCS_SINGLELINE = $0000;
- TCS_MULTILINE = $0200;
- TCS_RIGHTJUSTIFY = $0000;
- TCS_FIXEDWIDTH = $0400;
- TCS_RAGGEDRIGHT = $0800;
- TCS_FOCUSONBUTTONDOWN = $1000;
- TCS_OWNERDRAWFIXED = $2000;
- TCS_TOOLTIPS = $4000;
- TCS_FOCUSNEVER = $8000;
- // end_r_commctrl
- {$ifdef ie4plus}
- // EX styles for use with TCM_SETEXTENDEDSTYLE
- TCS_EX_FLATSEPARATORS = $00000001;
- TCS_EX_REGISTERDROP = $00000002;
- {$ENDIF}
- TCM_GETIMAGELIST = (TCM_FIRST + 2);
- // Macro 217
- Function TabCtrl_GetImageList( hwnd : hwnd):HIMAGELIST;
- CONST
- TCM_SETIMAGELIST = (TCM_FIRST + 3);
- // Macro 218
- Function TabCtrl_SetImageList( hwnd : hwnd; himl : HIMAGELIST):HIMAGELIST;
- CONST
- TCM_GETITEMCOUNT = (TCM_FIRST + 4);
- // Macro 219
- Function TabCtrl_GetItemCount( hwnd : hwnd):cint;
- CONST
- TCIF_TEXT = $0001;
- TCIF_IMAGE = $0002;
- TCIF_RTLREADING = $0004;
- TCIF_PARAM = $0008;
- {$ifdef ie3plus}
- TCIF_STATE = $0010;
- TCIS_BUTTONPRESSED = $0001;
- {$ENDIF}
- {$ifdef ie4plus}
- TCIS_HIGHLIGHTED = $0002;
- {$ENDIF}
- TYPE
- tagTCITEMHEADERA = Record
- mask : UINT;
- lpReserved1 : UINT;
- lpReserved2 : UINT;
- pszText : LPSTR;
- cchTextMax : cint;
- iImage : cint;
- END;
- TCITEMHEADERA = tagTCITEMHEADERA;
- LPTCITEMHEADERA = ^tagTCITEMHEADERA;
- TTCITEMHEADERA = tagTCITEMHEADERA;
- PTCITEMHEADERA = ^tagTCITEMHEADERA;
- tagTCITEMHEADERW = Record
- mask : UINT;
- lpReserved1 : UINT;
- lpReserved2 : UINT;
- pszText : LPWSTR;
- cchTextMax : cint;
- iImage : cint;
- END;
- TCITEMHEADERW = tagTCITEMHEADERW;
- LPTCITEMHEADERW = ^tagTCITEMHEADERW;
- TTCITEMHEADERW = tagTCITEMHEADERW;
- PTCITEMHEADERW = ^tagTCITEMHEADERW;
- {$IFDEF UNICODE}
- TCITEMHEADER = TCITEMHEADERW;
- LPTCITEMHEADER = LPTCITEMHEADERW;
- {$ELSE}
- TCITEMHEADER = TCITEMHEADERA;
- LPTCITEMHEADER = LPTCITEMHEADERA;
- {$ENDIF}
- {$ifdef ie3plus}
- TC_ITEMHEADERA = TCITEMHEADERA;
- TC_ITEMHEADERW = TCITEMHEADERW;
- {$ELSE}
- tagTCITEMHEADERA = _TC_ITEMHEADERA;
- TCITEMHEADERA = TC_ITEMHEADERA;
- tagTCITEMHEADERW = _TC_ITEMHEADERW;
- TCITEMHEADERW = TC_ITEMHEADERW;
- {$ENDIF}
- TC_ITEMHEADER = TCITEMHEADER;
- tagTCITEMA = Record
- mask : UINT;
- {$ifdef ie3plus}
- dwState : DWORD;
- dwStateMask : DWORD;
- {$ELSE}
- lpReserved1 : UINT;
- lpReserved2 : UINT;
- {$ENDIF}
- pszText : LPSTR;
- cchTextMax : cint;
- iImage : cint;
- lParam : LPARAM;
- END;
- TCITEMA = tagTCITEMA;
- LPTCITEMA = ^tagTCITEMA;
- TTCITEMA = tagTCITEMA;
- PTCITEMA = ^tagTCITEMA;
- tagTCITEMW = Record
- mask : UINT;
- {$ifdef ie3plus}
- dwState : DWORD;
- dwStateMask : DWORD;
- {$ELSE}
- lpReserved1 : UINT;
- lpReserved2 : UINT;
- {$ENDIF}
- pszText : LPWSTR;
- cchTextMax : cint;
- iImage : cint;
- lParam : LPARAM;
- END;
- TCITEMW = tagTCITEMW;
- LPTCITEMW = ^tagTCITEMW;
- TTCITEMW = tagTCITEMW;
- PTCITEMW = ^tagTCITEMW;
- {$IFDEF UNICODE}
- TCITEM = TCITEMW;
- LPTCITEM = LPTCITEMW;
- {$ELSE}
- TCITEM = TCITEMA;
- LPTCITEM = LPTCITEMA;
- {$ENDIF}
- {$ifdef ie3plus}
- TC_ITEMA = TCITEMA;
- TC_ITEMW = TCITEMW;
- {$ELSE}
- tagTCITEMA = _TC_ITEMA;
- TCITEMA = TC_ITEMA;
- tagTCITEMW = _TC_ITEMW;
- TCITEMW = TC_ITEMW;
- {$ENDIF}
- TC_ITEM = TCITEM;
- CONST
- TCM_GETITEMA = (TCM_FIRST + 5);
- TCM_GETITEMW = (TCM_FIRST + 60);
- {$IFDEF UNICODE}
- TYPE
- TCM_GETITEM = TCM_GETITEMW;
- {$ELSE}
- TCM_GETITEM = TCM_GETITEMA;
- {$ENDIF}
- // Macro 220
- Function TabCtrl_GetItem( hwnd : hwnd; iItem : cint;var pitem : TC_ITEM ):BOOL;
- CONST
- TCM_SETITEMA = (TCM_FIRST + 6);
- TCM_SETITEMW = (TCM_FIRST + 61);
- {$IFDEF UNICODE}
- TYPE
- TCM_SETITEM = TCM_SETITEMW;
- {$ELSE}
- TCM_SETITEM = TCM_SETITEMA;
- {$ENDIF}
- // Macro 221
- Function TabCtrl_SetItem( hwnd : hwnd; iItem : cint;var pitem : TC_ITEM ):BOOL;
- CONST
- TCM_INSERTITEMA = (TCM_FIRST + 7);
- TCM_INSERTITEMW = (TCM_FIRST + 62);
- {$IFDEF UNICODE}
- TCM_INSERTITEM = TCM_INSERTITEMW;
- {$ELSE}
- TCM_INSERTITEM = TCM_INSERTITEMA;
- {$ENDIF}
- // Macro 222
- Function TabCtrl_InsertItem( hwnd : hwnd; iItem : cint;CONST pitem : TC_ITEM ):cint;
- CONST
- TCM_DELETEITEM = (TCM_FIRST + 8);
- // Macro 223
- Function TabCtrl_DeleteItem( hwnd : hwnd; i : cint):BOOL;
- CONST
- TCM_DELETEALLITEMS = (TCM_FIRST + 9);
- // Macro 224
- Function TabCtrl_DeleteAllItems( hwnd : hwnd):BOOL;
- CONST
- TCM_GETITEMRECT = (TCM_FIRST + 10);
- // Macro 225
- Function TabCtrl_GetItemRect( hwnd : hwnd; i : cint;var prc : RECT ):BOOL;
- CONST
- TCM_GETCURSEL = (TCM_FIRST + 11);
- // Macro 226
- Function TabCtrl_GetCurSel( hwnd : hwnd):cint;
- CONST
- TCM_SETCURSEL = (TCM_FIRST + 12);
- // Macro 227
- Function TabCtrl_SetCurSel( hwnd : hwnd; i : WPARAM):cint;
- CONST
- TCHT_NOWHERE = $0001;
- TCHT_ONITEMICON = $0002;
- TCHT_ONITEMLABEL = $0004;
- TCHT_ONITEM = (TCHT_ONITEMICON OR TCHT_ONITEMLABEL);
- TYPE
- tagTCHITTESTINFO = Record
- pt : POINT;
- flags : UINT;
- END;
- TCHITTESTINFO = tagTCHITTESTINFO;
- LPTCHITTESTINFO = ^tagTCHITTESTINFO;
- TTCHITTESTINFO = tagTCHITTESTINFO;
- PTCHITTESTINFO = ^tagTCHITTESTINFO;
- {$ifdef ie3plus}
- LPTC_HITTESTINFO = LPTCHITTESTINFO;
- TC_HITTESTINFO = TCHITTESTINFO;
- {$ELSE}
- tagTCHITTESTINFO = _TC_HITTESTINFO;
- TCHITTESTINFO = TC_HITTESTINFO;
- LPTCHITTESTINFO = LPTC_HITTESTINFO;
- {$ENDIF}
- CONST
- TCM_HITTEST = (TCM_FIRST + 13);
- // Macro 228
- Function TabCtrl_HitTest( hwndTC : hwnd;var pinfo : TC_HITTESTINFO ):cint;
- CONST
- TCM_SETITEMEXTRA = (TCM_FIRST + 14);
- // Macro 229
- Function TabCtrl_SetItemExtra( hwndTC : hwnd; cb : WPARAM):BOOL;
- CONST
- TCM_ADJUSTRECT = (TCM_FIRST + 40);
- // Macro 230
- Function TabCtrl_AdjustRect( hwnd : hwnd; bLarger : BOOL;var prc : RECT ):cint;
- CONST
- TCM_SETITEMSIZE = (TCM_FIRST + 41);
- // Macro 231
- Function TabCtrl_SetItemSize( hwnd : hwnd; x :lparam ; y : lparam ):DWORD;
- CONST
- TCM_REMOVEIMAGE = (TCM_FIRST + 42);
- // Macro 232
- Procedure TabCtrl_RemoveImage( hwnd : hwnd; i : wparam );
- CONST
- TCM_SETPADDING = (TCM_FIRST + 43);
- // Macro 233
- Procedure TabCtrl_SetPadding( hwnd : hwnd; cx : lparam ; cy : lparam );
- CONST
- TCM_GETROWCOUNT = (TCM_FIRST + 44);
- // Macro 234
- Function TabCtrl_GetRowCount( hwnd : hwnd):cint;
- CONST
- TCM_GETTOOLTIPS = (TCM_FIRST + 45);
- // Macro 235
- Function TabCtrl_GetToolTips( hwnd : hwnd):HWND;
- CONST
- TCM_SETTOOLTIPS = (TCM_FIRST + 46);
- // Macro 236
- Procedure TabCtrl_SetToolTips( hwnd : hwnd; hwndTT : WPARAM);
- CONST
- TCM_GETCURFOCUS = (TCM_FIRST + 47);
- // Macro 237
- Function TabCtrl_GetCurFocus( hwnd : hwnd):cint;
- CONST
- TCM_SETCURFOCUS = (TCM_FIRST + 48);
- // Macro 238
- Procedure TabCtrl_SetCurFocus( hwnd : hwnd; i : WParam );
- {$ifdef ie3plus}
- CONST
- TCM_SETMINTABWIDTH = (TCM_FIRST + 49);
- // Macro 239
- Function TabCtrl_SetMinTabWidth( hwnd : hwnd; x : WParam ):cint;
- CONST
- TCM_DESELECTALL = (TCM_FIRST + 50);
- // Macro 240
- Procedure TabCtrl_DeselectAll( hwnd : hwnd; fExcludeFocus : WPARAM );
- {$ENDIF}
- {$ifdef ie4plus}
- CONST
- TCM_HIGHLIGHTITEM = (TCM_FIRST + 51);
- // Macro 241
- Function TabCtrl_HighlightItem( hwnd : hwnd; i : WPARAM; fHighlight :bool):BOOL;
- CONST
- TCM_SETEXTENDEDSTYLE = (TCM_FIRST + 52); // optional wParam == mask
- // Macro 242
- Function TabCtrl_SetExtendedStyle( hwnd : hwnd; dw :LPAram ):DWORD;
- CONST
- TCM_GETEXTENDEDSTYLE = (TCM_FIRST + 53);
- // Macro 243
- Function TabCtrl_GetExtendedStyle( hwnd : hwnd):DWORD;
- CONST
- TCM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- // Macro 244
- Function TabCtrl_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
- CONST
- TCM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- // Macro 245
- Function TabCtrl_GetUnicodeFormat( hwnd : hwnd):BOOL;
- {$ENDIF} // _WIN32_IE >= 0x0400
- CONST
- TCN_KEYDOWN = (TCN_FIRST - 0);
- {$IFDEF _WIN32}
- #include <pshpack1.h>
- {$ENDIF}
- TYPE
- tagTCKEYDOWN = Record
- hdr : NMHDR;
- wVKey : WORD;
- flags : UINT;
- END;
- NMTCKEYDOWN = tagTCKEYDOWN;
- TTCKEYDOWN = tagTCKEYDOWN;
- PTCKEYDOWN = ^tagTCKEYDOWN;
- {$ifdef ie3plus}
- TC_KEYDOWN = NMTCKEYDOWN;
- {$ELSE}
- tagTCKEYDOWN = _TC_KEYDOWN;
- NMTCKEYDOWN = TC_KEYDOWN;
- {$ENDIF}
- {$IFDEF _WIN32}
- #include <poppack.h>
- {$ENDIF}
- CONST
- TCN_SELCHANGE = (TCN_FIRST - 1);
- TCN_SELCHANGING = (TCN_FIRST - 2);
- {$ifdef ie4plus}
- TCN_GETOBJECT = (TCN_FIRST - 3);
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$ifdef ie5plus}
- TCN_FOCUSCHANGE = (TCN_FIRST - 4);
- {$ENDIF} // _WIN32_IE >= 0x0500
- {$ENDIF} // NOTABCONTROL
- //====== ANIMATE CONTROL ======================================================
- {$IFNDEF NOANIMATE}
- {$IFDEF _WIN32}
- ANIMATE_CLASSW = {L}'SysAnimate32';
- ANIMATE_CLASSA = 'SysAnimate32';
- {$IFDEF UNICODE}
- ANIMATE_CLASS = ANIMATE_CLASSW;
- {$ELSE}
- ANIMATE_CLASS = ANIMATE_CLASSA;
- {$ENDIF}
- // begin_r_commctrl
- CONST
- ACS_CENTER = $0001;
- ACS_TRANSPARENT = $0002;
- ACS_AUTOPLAY = $0004;
- {$ifdef ie3plus}
- ACS_TIMER = $0008; // don't use threads... use timers
- {$ENDIF}
- // end_r_commctrl
- ACM_OPENA = (WM_USER+100);
- ACM_OPENW = (WM_USER+103);
- {$IFDEF UNICODE}
- ACM_OPEN = ACM_OPENW;
- {$ELSE}
- ACM_OPEN = ACM_OPENA;
- {$ENDIF}
- CONST
- ACM_PLAY = (WM_USER+101);
- ACM_STOP = (WM_USER+102);
- ACN_START = 1;
- ACN_STOP = 2;
- // Macro 246
- Procedure Animate_Create(hwndP :HWND;id:HMENU;dwStyle:dword;hInstance:HINST);
- // Macro 247
- // #define Animate_Open(hwnd, szName) (BOOL)SNDMSG(hwnd, ACM_OPEN, 0, (LPARAM)(LPTSTR)(szName))
- // Macro 248
- // #define Animate_OpenEx(hwnd, hInst, szName) (BOOL)SNDMSG(hwnd, ACM_OPEN, (WPARAM)(hInst), (LPARAM)(LPTSTR)(szName))
- // Macro 249
- // #define Animate_Play(hwnd, from, to, rep) (BOOL)SNDMSG(hwnd, ACM_PLAY, (WPARAM)(rep), (LPARAM)MAKELONG(from, to))
- // Macro 250
- // #define Animate_Stop(hwnd) (BOOL)SNDMSG(hwnd, ACM_STOP, 0, 0)
- // Macro 251
- // #define Animate_Close(hwnd) Animate_Open(hwnd, NULL)
- // Macro 252
- // #define Animate_Seek(hwnd, frame) Animate_Play(hwnd, frame, frame, 1)
- {$ENDIF}
- {$ENDIF} // NOANIMATE
- {$ifdef ie3plus}
- //====== MONTHCAL CONTROL ======================================================
- {$IFNDEF NOMONTHCAL}
- {$IFDEF WIN32}
- CONST
- MONTHCAL_CLASSW = {L}'SysMonthCal32';
- MONTHCAL_CLASSA = 'SysMonthCal32';
- {$IFDEF UNICODE}
- MONTHCAL_CLASS = MONTHCAL_CLASSW;
- {$ELSE}
- MONTHCAL_CLASS = MONTHCAL_CLASSA;
- {$ENDIF}
- TYPE
- // bit-packed array of "bold" info for a month
- // if a bit is on, that day is drawn bold
- MONTHDAYSTATE = DWORD;
- LPMONTHDAYSTATE = ^MONTHDAYSTATE;
- CONST
- MCM_FIRST = $1000;
- // BOOL MonthCal_GetCurSel(HWND hmc, LPSYSTEMTIME pst)
- // returns FALSE if MCS_MULTISELECT
- // returns TRUE and sets *pst to the currently selected date otherwise
- CONST
- MCM_GETCURSEL = (MCM_FIRST + 1);
- // Macro 253
- // #define MonthCal_GetCurSel(hmc, pst) (BOOL)SNDMSG(hmc, MCM_GETCURSEL, 0, (LPARAM)(pst))
- function MonthCal_GetCurSel(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
- // BOOL MonthCal_SetCurSel(HWND hmc, LPSYSTEMTIME pst)
- // returns FALSE if MCS_MULTISELECT
- // returns TURE and sets the currently selected date to *pst otherwise
- CONST
- MCM_SETCURSEL = (MCM_FIRST + 2);
- // Macro 254
- // #define MonthCal_SetCurSel(hmc, pst) (BOOL)SNDMSG(hmc, MCM_SETCURSEL, 0, (LPARAM)(pst))
- // DWORD MonthCal_GetMaxSelCount(HWND hmc)
- // returns the maximum number of selectable days allowed
- function MonthCal_SetCurSel(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
- CONST
- MCM_GETMAXSELCOUNT = (MCM_FIRST + 3);
- // Macro 255
- // #define MonthCal_GetMaxSelCount(hmc) (DWORD)SNDMSG(hmc, MCM_GETMAXSELCOUNT, 0, 0L)
- // BOOL MonthCal_SetMaxSelCount(HWND hmc, UINT n)
- // sets the max number days that can be selected iff MCS_MULTISELECT
- function MonthCal_GetMaxSelCount(hwndMC:HWND):Bool;
- CONST
- MCM_SETMAXSELCOUNT = (MCM_FIRST + 4);
- // Macro 256
- // #define MonthCal_SetMaxSelCount(hmc, n) (BOOL)SNDMSG(hmc, MCM_SETMAXSELCOUNT, (WPARAM)(n), 0L)
- function MonthCal_SetMaxSelCount(hwndMC:HWND;n:uint):Bool;
- // BOOL MonthCal_GetSelRange(HWND hmc, LPSYSTEMTIME rgst)
- // sets rgst[0] to the first day of the selection range
- // sets rgst[1] to the last day of the selection range
- CONST
- MCM_GETSELRANGE = (MCM_FIRST + 5);
- // Macro 257
- // #define MonthCal_GetSelRange(hmc, rgst) SNDMSG(hmc, MCM_GETSELRANGE, 0, (LPARAM)(rgst))
- // BOOL MonthCal_SetSelRange(HWND hmc, LPSYSTEMTIME rgst)
- // selects the range of days from rgst[0] to rgst[1]
- function MonthCal_GetSelRange(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
- CONST
- MCM_SETSELRANGE = (MCM_FIRST + 6);
- // Macro 258
- // #define MonthCal_SetSelRange(hmc, rgst) SNDMSG(hmc, MCM_SETSELRANGE, 0, (LPARAM)(rgst))
- // DWORD MonthCal_GetMonthRange(HWND hmc, DWORD gmr, LPSYSTEMTIME rgst)
- // if rgst specified, sets rgst[0] to the starting date and
- // and rgst[1] to the ending date of the the selectable (non-grayed)
- // days if GMR_VISIBLE or all the displayed days (including grayed)
- // if GMR_DAYSTATE.
- // returns the number of months spanned by the above range.
- function MonthCal_SetSelRange(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
- CONST
- MCM_GETMONTHRANGE = (MCM_FIRST + 7);
- // Macro 259
- // #define MonthCal_GetMonthRange(hmc, gmr, rgst) (DWORD)SNDMSG(hmc, MCM_GETMONTHRANGE, (WPARAM)(gmr), (LPARAM)(rgst))
- // BOOL MonthCal_SetDayState(HWND hmc, int cbds, DAYSTATE *rgds)
- // cbds is the count of DAYSTATE items in rgds and it must be equal
- // to the value returned from MonthCal_GetMonthRange(hmc, GMR_DAYSTATE, NULL)
- // This sets the DAYSTATE bits for each month (grayed and non-grayed
- // days) displayed in the calendar. The first bit in a month's DAYSTATE
- // corresponts to bolding day 1, the second bit affects day 2, etc.
- function MonthCal_GetMonthRange(hwndMC:HWND; gmr: DWORD;lpSysTime :LPSYSTEMTIME):Bool;
- CONST
- MCM_SETDAYSTATE = (MCM_FIRST + 8);
- // Macro 260
- // #define MonthCal_SetDayState(hmc, cbds, rgds) SNDMSG(hmc, MCM_SETDAYSTATE, (WPARAM)(cbds), (LPARAM)(rgds))
- // BOOL MonthCal_GetMinReqRect(HWND hmc, LPRECT prc)
- // sets *prc the minimal size needed to display one month
- // To display two months, undo the AdjustWindowRect calculation already done to
- // this rect, double the width, and redo the AdjustWindowRect calculation --
- // the monthcal control will display two calendars in this window (if you also
- // double the vertical size, you will get 4 calendars)
- // NOTE: if you want to gurantee that the "Today" string is not clipped,
- // get the MCM_GETMAXTODAYWIDTH and use the max of that width and this width
- function MonthCal_SetDayState(hwndMC:HWND; gmr: Longint;lpDay :LPMONTHDAYSTATE):Bool;
- CONST
- MCM_GETMINREQRECT = (MCM_FIRST + 9);
- // Macro 261
- // #define MonthCal_GetMinReqRect(hmc, prc) SNDMSG(hmc, MCM_GETMINREQRECT, 0, (LPARAM)(prc))
- // set colors to draw control with -- see MCSC_ bits below
- function MonthCal_GetMinReqRect(hwndMC:HWND; lpr :LPRect):Bool;
- CONST
- MCM_SETCOLOR = (MCM_FIRST + 10);
- // Macro 262
- // #define MonthCal_SetColor(hmc, iColor, clr) SNDMSG(hmc, MCM_SETCOLOR, iColor, clr)
- function MonthCal_SetColor(hwndMC:HWND; ic:longint;clr:COLORREF):Bool;
- CONST
- MCM_GETCOLOR = (MCM_FIRST + 11);
- // Macro 263
- // #define MonthCal_GetColor(hmc, iColor) SNDMSG(hmc, MCM_GETCOLOR, iColor, 0)
- function MonthCal_GetColor(hwndMC:HWND; ic:longint):Bool;
- CONST
- MCSC_BACKGROUND = 0; // the background color (between months)
- MCSC_TEXT = 1; // the dates
- MCSC_TITLEBK = 2; // background of the title
- MCSC_TITLETEXT = 3;
- MCSC_MONTHBK = 4; // background within the month cal
- MCSC_TRAILINGTEXT = 5; // the text color of header & trailing days
- // set what day is "today" send NULL to revert back to real date
- MCM_SETTODAY = (MCM_FIRST + 12);
- // Macro 264
- // #define MonthCal_SetToday(hmc, pst) SNDMSG(hmc, MCM_SETTODAY, 0, (LPARAM)(pst))
- // get what day is "today"
- // returns BOOL for success/failure
- function MonthCal_SetToday(hwndMC:HWND; lps:LPSYSTEMTIME):Bool;
- CONST
- MCM_GETTODAY = (MCM_FIRST + 13);
- // Macro 265
- // #define MonthCal_GetToday(hmc, pst) (BOOL)SNDMSG(hmc, MCM_GETTODAY, 0, (LPARAM)(pst))
- // determine what pinfo->pt is over
- function MonthCal_GetToday(hwndMC:HWND; lps:LPSYSTEMTIME):Bool;
- CONST
- MCM_HITTEST = (MCM_FIRST + 14);
- TYPE
- DummyStruct16 = Record
- cbSize : UINT;
- pt : POINT;
- uHit : UINT; // out param
- st : SYSTEMTIME;
- END;
- MCHITTESTINFO = DummyStruct16;
- PMCHITTESTINFO = ^DummyStruct16;
- TDummyStruct16 = DummyStruct16;
- PDummyStruct16 = ^DummyStruct16;
- // Macro 266
- FUNCTION MonthCal_HitTest( hmc :HWND ; pinfo : PMCHITTESTINFO):DWORD;
- CONST
- MCHT_TITLE = $00010000;
- MCHT_CALENDAR = $00020000;
- MCHT_TODAYLINK = $00030000;
- MCHT_NEXT = $01000000; // these indicate that hitting
- MCHT_PREV = $02000000; // here will go to the next/prev month
- MCHT_NOWHERE = $00000000;
- MCHT_TITLEBK = (MCHT_TITLE);
- MCHT_TITLEMONTH = (MCHT_TITLE OR $0001);
- MCHT_TITLEYEAR = (MCHT_TITLE OR $0002);
- MCHT_TITLEBTNNEXT = (MCHT_TITLE OR MCHT_NEXT OR $0003);
- MCHT_TITLEBTNPREV = (MCHT_TITLE OR MCHT_PREV OR $0003);
- MCHT_CALENDARBK = (MCHT_CALENDAR);
- MCHT_CALENDARDATE = (MCHT_CALENDAR OR $0001);
- MCHT_CALENDARDATENEXT = (MCHT_CALENDARDATE OR MCHT_NEXT);
- MCHT_CALENDARDATEPREV = (MCHT_CALENDARDATE OR MCHT_PREV);
- MCHT_CALENDARDAY = (MCHT_CALENDAR OR $0002);
- MCHT_CALENDARWEEKNUM = (MCHT_CALENDAR OR $0003);
- // set first day of week to iDay:
- // 0 for Monday, 1 for Tuesday, ..., 6 for Sunday
- // -1 for means use locale info
- MCM_SETFIRSTDAYOFWEEK = (MCM_FIRST + 15);
- // Macro 267
- function MonthCal_SetFirstDayOfWeek( hmc : HWND ; iDay :LONGINT ):DWORD;
- // DWORD result... low word has the day. high word is bool if this is app set
- // or not (FALSE == using locale info)
- CONST
- MCM_GETFIRSTDAYOFWEEK = (MCM_FIRST + 16);
- // Macro 268
- Function MonthCal_GetFirstDayOfWeek( hmc : HWND ):DWORD;
- // DWORD MonthCal_GetRange(HWND hmc, LPSYSTEMTIME rgst)
- // modifies rgst[0] to be the minimum ALLOWABLE systemtime (or 0 if no minimum)
- // modifies rgst[1] to be the maximum ALLOWABLE systemtime (or 0 if no maximum)
- // returns GDTR_MIN|GDTR_MAX if there is a minimum|maximum limit
- CONST
- MCM_GETRANGE = (MCM_FIRST + 17);
- // Macro 269
- Function MonthCal_GetRange( hmc : HWND ; rgst : LPSYSTEMTIME):DWORD;
- // BOOL MonthCal_SetRange(HWND hmc, DWORD gdtr, LPSYSTEMTIME rgst)
- // if GDTR_MIN, sets the minimum ALLOWABLE systemtime to rgst[0], otherwise removes minimum
- // if GDTR_MAX, sets the maximum ALLOWABLE systemtime to rgst[1], otherwise removes maximum
- // returns TRUE on success, FALSE on error (such as invalid parameters)
- CONST
- MCM_SETRANGE = (MCM_FIRST + 18);
- // Macro 270
- Function MonthCal_SetRange( hmc : HWND ; gd : DWORD; rgst : LPSYSTEMTIME):BOOL;
- // int MonthCal_GetMonthDelta(HWND hmc)
- // returns the number of months one click on a next/prev button moves by
- CONST
- MCM_GETMONTHDELTA = (MCM_FIRST + 19);
- // Macro 271
- Function MonthCal_GetMonthDelta( hmc :hwnd ):cint;
- // int MonthCal_SetMonthDelta(HWND hmc, int n)
- // sets the month delta to n. n==0 reverts to moving by a page of months
- // returns the previous value of n.
- CONST
- MCM_SETMONTHDELTA = (MCM_FIRST + 20);
- // Macro 272
- Function MonthCal_SetMonthDelta( hmc :hwnd ; n :cint ):cint;
- // DWORD MonthCal_GetMaxTodayWidth(HWND hmc, LPSIZE psz)
- // sets *psz to the maximum width/height of the "Today" string displayed
- // at the bottom of the calendar (as long as MCS_NOTODAY is not specified)
- CONST
- MCM_GETMAXTODAYWIDTH = (MCM_FIRST + 21);
- // Macro 273
- Function MonthCal_GetMaxTodayWidth( hmc :hwnd ):DWORD;
- {$ifdef ie4plus}
- CONST
- MCM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
- // Macro 274
- Function MonthCal_SetUnicodeFormat( hwnd : hwnd; fUnicode : bool):BOOL;
- CONST
- MCM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
- // Macro 275
- Function MonthCal_GetUnicodeFormat( hwnd : hwnd):BOOL;
- {$ENDIF}
- // MCN_SELCHANGE is sent whenever the currently displayed date changes
- // via month change, year change, keyboard navigation, prev/next button
- //
- TYPE
- tagNMSELCHANGE = Record
- nmhdr : NMHDR; // this must be first, so we don't break WM_NOTIFY
- stSelStart : SYSTEMTIME;
- stSelEnd : SYSTEMTIME;
- END;
- NMSELCHANGE = tagNMSELCHANGE;
- LPNMSELCHANGE = ^tagNMSELCHANGE;
- TNMSELCHANGE = tagNMSELCHANGE;
- PNMSELCHANGE = ^tagNMSELCHANGE;
- CONST
- MCN_SELCHANGE = (MCN_FIRST + 1);
- // MCN_GETDAYSTATE is sent for MCS_DAYSTATE controls whenever new daystate
- // information is needed (month or year scroll) to draw bolding information.
- // The app must fill in cDayState months worth of information starting from
- // stStart date. The app may fill in the array at prgDayState or change
- // prgDayState to point to a different array out of which the information
- // will be copied. (similar to tooltips)
- //
- TYPE
- tagNMDAYSTATE = Record
- nmhdr : NMHDR; // this must be first, so we don't break WM_NOTIFY
- stStart : SYSTEMTIME;
- cDayState : cint;
- prgDayState : LPMONTHDAYSTATE; // points to cDayState MONTHDAYSTATEs
- END;
- NMDAYSTATE = tagNMDAYSTATE;
- LPNMDAYSTATE = ^tagNMDAYSTATE;
- TNMDAYSTATE = tagNMDAYSTATE;
- PNMDAYSTATE = ^tagNMDAYSTATE;
- CONST
- MCN_GETDAYSTATE = (MCN_FIRST + 3);
- // MCN_SELECT is sent whenever a selection has occured (via mouse or keyboard)
- //
- TYPE
- NMSELECT = NMSELCHANGE;
- LPNMSELECT = ^NMSELCHANGE;
- CONST
- MCN_SELECT = (MCN_FIRST + 4);
- // begin_r_commctrl
- MCS_DAYSTATE = $0001;
- MCS_MULTISELECT = $0002;
- MCS_WEEKNUMBERS = $0004;
- {$ifdef ie4plus}
- MCS_NOTODAYCIRCLE = $0008;
- MCS_NOTODAY = $0010;
- {$ELSE}
- MCS_NOTODAY = $0008;
- {$ENDIF}
- // end_r_commctrl
- GMR_VISIBLE = 0; // visible portion of display
- GMR_DAYSTATE = 1; // above plus the grayed out parts of
- // partially displayed months
- {$ENDIF} // _WIN32
- {$ENDIF} // NOMONTHCAL
- //====== DATETIMEPICK CONTROL ==================================================
- {$IFNDEF NODATETIMEPICK}
- {$IFDEF _WIN32}
- DATETIMEPICK_CLASSW = {L}'SysDateTimePick32';
- DATETIMEPICK_CLASSA = 'SysDateTimePick32';
- {$IFDEF UNICODE}
- TYPE
- DATETIMEPICK_CLASS = DATETIMEPICK_CLASSW;
- {$ELSE}
- DATETIMEPICK_CLASS = DATETIMEPICK_CLASSA;
- {$ENDIF}
- CONST
- DTM_FIRST = $1000;
- // DWORD DateTimePick_GetSystemtime(HWND hdp, LPSYSTEMTIME pst)
- // returns GDT_NONE if "none" is selected (DTS_SHOWNONE only)
- // returns GDT_VALID and modifies *pst to be the currently selected value
- DTM_GETSYSTEMTIME = (DTM_FIRST + 1);
- // Macro 276
- // #define DateTime_GetSystemtime(hdp, pst) (DWORD)SNDMSG(hdp, DTM_GETSYSTEMTIME, 0, (LPARAM)(pst))
- // BOOL DateTime_SetSystemtime(HWND hdp, DWORD gd, LPSYSTEMTIME pst)
- // if gd==GDT_NONE, sets datetimepick to None (DTS_SHOWNONE only)
- // if gd==GDT_VALID, sets datetimepick to *pst
- // returns TRUE on success, FALSE on error (such as bad params)
- CONST
- DTM_SETSYSTEMTIME = (DTM_FIRST + 2);
- // Macro 277
- // #define DateTime_SetSystemtime(hdp, gd, pst) (BOOL)SNDMSG(hdp, DTM_SETSYSTEMTIME, (WPARAM)(gd), (LPARAM)(pst))
- // DWORD DateTime_GetRange(HWND hdp, LPSYSTEMTIME rgst)
- // modifies rgst[0] to be the minimum ALLOWABLE systemtime (or 0 if no minimum)
- // modifies rgst[1] to be the maximum ALLOWABLE systemtime (or 0 if no maximum)
- // returns GDTR_MIN|GDTR_MAX if there is a minimum|maximum limit
- CONST
- DTM_GETRANGE = (DTM_FIRST + 3);
- // Macro 278
- // #define DateTime_GetRange(hdp, rgst) (DWORD)SNDMSG(hdp, DTM_GETRANGE, 0, (LPARAM)(rgst))
- // BOOL DateTime_SetRange(HWND hdp, DWORD gdtr, LPSYSTEMTIME rgst)
- // if GDTR_MIN, sets the minimum ALLOWABLE systemtime to rgst[0], otherwise removes minimum
- // if GDTR_MAX, sets the maximum ALLOWABLE systemtime to rgst[1], otherwise removes maximum
- // returns TRUE on success, FALSE on error (such as invalid parameters)
- CONST
- DTM_SETRANGE = (DTM_FIRST + 4);
- // Macro 279
- // #define DateTime_SetRange(hdp, gd, rgst) (BOOL)SNDMSG(hdp, DTM_SETRANGE, (WPARAM)(gd), (LPARAM)(rgst))
- // BOOL DateTime_SetFormat(HWND hdp, LPCTSTR sz)
- // sets the display formatting string to sz (see GetDateFormat and GetTimeFormat for valid formatting chars)
- // NOTE: 'X' is a valid formatting character which indicates that the application
- // will determine how to display information. Such apps must support DTN_WMKEYDOWN,
- // DTN_FORMAT, and DTN_FORMATQUERY.
- CONST
- DTM_SETFORMATA = (DTM_FIRST + 5);
- DTM_SETFORMATW = (DTM_FIRST + 50);
- {$IFDEF UNICODE}
- TYPE
- DTM_SETFORMAT = DTM_SETFORMATW;
- {$ELSE}
- DTM_SETFORMAT = DTM_SETFORMATA;
- {$ENDIF}
- // Macro 280
- // #define DateTime_SetFormat(hdp, sz) (BOOL)SNDMSG(hdp, DTM_SETFORMAT, 0, (LPARAM)(sz))
- CONST
- DTM_SETMCCOLOR = (DTM_FIRST + 6);
- // Macro 281
- // #define DateTime_SetMonthCalColor(hdp, iColor, clr) SNDMSG(hdp, DTM_SETMCCOLOR, iColor, clr)
- CONST
- DTM_GETMCCOLOR = (DTM_FIRST + 7);
- // Macro 282
- // #define DateTime_GetMonthCalColor(hdp, iColor) SNDMSG(hdp, DTM_GETMCCOLOR, iColor, 0)
- // HWND DateTime_GetMonthCal(HWND hdp)
- // returns the HWND of the MonthCal popup window. Only valid
- // between DTN_DROPDOWN and DTN_CLOSEUP notifications.
- CONST
- DTM_GETMONTHCAL = (DTM_FIRST + 8);
- // Macro 283
- // #define DateTime_GetMonthCal(hdp) (HWND)SNDMSG(hdp, DTM_GETMONTHCAL, 0, 0)
- {$ifdef ie4plus}
- CONST
- DTM_SETMCFONT = (DTM_FIRST + 9);
- // Macro 284
- // #define DateTime_SetMonthCalFont(hdp, hfont, fRedraw) SNDMSG(hdp, DTM_SETMCFONT, (WPARAM)(hfont), (LPARAM)(fRedraw))
- CONST
- DTM_GETMCFONT = (DTM_FIRST + 10);
- // Macro 285
- // #define DateTime_GetMonthCalFont(hdp) SNDMSG(hdp, DTM_GETMCFONT, 0, 0)
- {$ENDIF} // _WIN32_IE >= 0x0400
- // begin_r_commctrl
- CONST
- DTS_UPDOWN = $0001; // use UPDOWN instead of MONTHCAL
- DTS_SHOWNONE = $0002; // allow a NONE selection
- DTS_SHORTDATEFORMAT = $0000; // use the short date format (app must forward WM_WININICHANGE messages)
- DTS_LONGDATEFORMAT = $0004; // use the long date format (app must forward WM_WININICHANGE messages)
- {$ifdef ie5plus}
- DTS_SHORTDATECENTURYFORMAT = $000C; // short date format with century (app must forward WM_WININICHANGE messages)
- {$ENDIF} // (_WIN32_IE >= 0x500)
- DTS_TIMEFORMAT = $0009; // use the time format (app must forward WM_WININICHANGE messages)
- DTS_APPCANPARSE = $0010; // allow user entered strings (app MUST respond to DTN_USERSTRING)
- DTS_RIGHTALIGN = $0020; // right-align popup instead of left-align it
- // end_r_commctrl
- DTN_DATETIMECHANGE = (DTN_FIRST + 1); // the systemtime has changed
- TYPE
- tagNMDATETIMECHANGE = Record
- nmhdr : NMHDR;
- dwFlags : DWORD; // GDT_VALID or GDT_NONE
- st : SYSTEMTIME; // valid iff dwFlags==GDT_VALID
- END;
- NMDATETIMECHANGE = tagNMDATETIMECHANGE;
- LPNMDATETIMECHANGE = ^tagNMDATETIMECHANGE;
- TNMDATETIMECHANGE = tagNMDATETIMECHANGE;
- PNMDATETIMECHANGE = ^tagNMDATETIMECHANGE;
- CONST
- DTN_USERSTRINGA = (DTN_FIRST + 2); // the user has entered a string
- DTN_USERSTRINGW = (DTN_FIRST + 15);
- TYPE
- tagNMDATETIMESTRINGA = Record
- nmhdr : NMHDR;
- pszUserString : LPCSTR; // string user entered
- st : SYSTEMTIME; // app fills this in
- dwFlags : DWORD; // GDT_VALID or GDT_NONE
- END;
- NMDATETIMESTRINGA = tagNMDATETIMESTRINGA;
- LPNMDATETIMESTRINGA = ^tagNMDATETIMESTRINGA;
- TNMDATETIMESTRINGA = tagNMDATETIMESTRINGA;
- PNMDATETIMESTRINGA = ^tagNMDATETIMESTRINGA;
- tagNMDATETIMESTRINGW = Record
- nmhdr : NMHDR;
- pszUserString : LPCWSTR; // string user entered
- st : SYSTEMTIME; // app fills this in
- dwFlags : DWORD; // GDT_VALID or GDT_NONE
- END;
- NMDATETIMESTRINGW = tagNMDATETIMESTRINGW;
- LPNMDATETIMESTRINGW = ^tagNMDATETIMESTRINGW;
- TNMDATETIMESTRINGW = tagNMDATETIMESTRINGW;
- PNMDATETIMESTRINGW = ^tagNMDATETIMESTRINGW;
- {$IFDEF UNICODE}
- DTN_USERSTRING = DTN_USERSTRINGW;
- NMDATETIMESTRING = NMDATETIMESTRINGW;
- LPNMDATETIMESTRING = LPNMDATETIMESTRINGW;
- {$ELSE}
- DTN_USERSTRING = DTN_USERSTRINGA;
- NMDATETIMESTRING = NMDATETIMESTRINGA;
- LPNMDATETIMESTRING = LPNMDATETIMESTRINGA;
- {$ENDIF}
- CONST
- DTN_WMKEYDOWNA = (DTN_FIRST + 3); // modify keydown on app format field (X)
- DTN_WMKEYDOWNW = (DTN_FIRST + 16);
- TYPE
- tagNMDATETIMEWMKEYDOWNA = Record
- nmhdr : NMHDR;
- nVirtKey : cint; // virtual key code of WM_KEYDOWN which MODIFIES an X field
- pszFormat : LPCSTR; // format substring
- st : SYSTEMTIME; // current systemtime, app should modify based on key
- END;
- NMDATETIMEWMKEYDOWNA = tagNMDATETIMEWMKEYDOWNA;
- LPNMDATETIMEWMKEYDOWNA = ^tagNMDATETIMEWMKEYDOWNA;
- TNMDATETIMEWMKEYDOWNA = tagNMDATETIMEWMKEYDOWNA;
- PNMDATETIMEWMKEYDOWNA = ^tagNMDATETIMEWMKEYDOWNA;
- tagNMDATETIMEWMKEYDOWNW = Record
- nmhdr : NMHDR;
- nVirtKey : cint; // virtual key code of WM_KEYDOWN which MODIFIES an X field
- pszFormat : LPCWSTR; // format substring
- st : SYSTEMTIME; // current systemtime, app should modify based on key
- END;
- NMDATETIMEWMKEYDOWNW = tagNMDATETIMEWMKEYDOWNW;
- LPNMDATETIMEWMKEYDOWNW = ^tagNMDATETIMEWMKEYDOWNW;
- TNMDATETIMEWMKEYDOWNW = tagNMDATETIMEWMKEYDOWNW;
- PNMDATETIMEWMKEYDOWNW = ^tagNMDATETIMEWMKEYDOWNW;
- {$IFDEF UNICODE}
- DTN_WMKEYDOWN = DTN_WMKEYDOWNW;
- NMDATETIMEWMKEYDOWN = NMDATETIMEWMKEYDOWNW;
- LPNMDATETIMEWMKEYDOWN= LPNMDATETIMEWMKEYDOWNW;
- {$ELSE}
- DTN_WMKEYDOWN = DTN_WMKEYDOWNA;
- NMDATETIMEWMKEYDOWN = NMDATETIMEWMKEYDOWNA;
- LPNMDATETIMEWMKEYDOWN= LPNMDATETIMEWMKEYDOWNA;
- {$ENDIF}
- CONST
- DTN_FORMATA = (DTN_FIRST + 4); // query display for app format field (X)
- DTN_FORMATW = (DTN_FIRST + 17);
- TYPE
- tagNMDATETIMEFORMATA = Record
- nmhdr : NMHDR;
- pszFormat : LPCSTR; // format substring
- st : SYSTEMTIME; // current systemtime
- pszDisplay : LPCSTR; // string to display
- szDisplay : Array [0..63] OF CHAR; // buffer pszDisplay originally points at
- END;
- NMDATETIMEFORMATA = tagNMDATETIMEFORMATA;
- LPNMDATETIMEFORMATA = ^tagNMDATETIMEFORMATA;
- TNMDATETIMEFORMATA = tagNMDATETIMEFORMATA;
- PNMDATETIMEFORMATA = ^tagNMDATETIMEFORMATA;
- tagNMDATETIMEFORMATW = Record
- nmhdr : NMHDR;
- pszFormat : LPCWSTR; // format substring
- st : SYSTEMTIME; // current systemtime
- pszDisplay : LPCWSTR; // string to display
- szDisplay : Array [0..63] OF WCHAR; // buffer pszDisplay originally points at
- END;
- NMDATETIMEFORMATW = tagNMDATETIMEFORMATW;
- LPNMDATETIMEFORMATW = ^tagNMDATETIMEFORMATW;
- TNMDATETIMEFORMATW = tagNMDATETIMEFORMATW;
- PNMDATETIMEFORMATW = ^tagNMDATETIMEFORMATW;
- {$IFDEF UNICODE}
- DTN_FORMAT = DTN_FORMATW;
- NMDATETIMEFORMAT = NMDATETIMEFORMATW;
- LPNMDATETIMEFORMAT = LPNMDATETIMEFORMATW;
- {$ELSE}
- DTN_FORMAT = DTN_FORMATA;
- NMDATETIMEFORMAT = NMDATETIMEFORMATA;
- LPNMDATETIMEFORMAT = LPNMDATETIMEFORMATA;
- {$ENDIF}
- CONST
- DTN_FORMATQUERYA = (DTN_FIRST + 5); // query formatting info for app format field (X)
- DTN_FORMATQUERYW = (DTN_FIRST + 18);
- TYPE
- tagNMDATETIMEFORMATQUERYA = Record
- nmhdr : NMHDR;
- pszFormat : LPCSTR; // format substring
- szMax : SIZE; // max bounding rectangle app will use for this format string
- END;
- NMDATETIMEFORMATQUERYA = tagNMDATETIMEFORMATQUERYA;
- LPNMDATETIMEFORMATQUERYA = ^tagNMDATETIMEFORMATQUERYA;
- TNMDATETIMEFORMATQUERYA = tagNMDATETIMEFORMATQUERYA;
- PNMDATETIMEFORMATQUERYA = ^tagNMDATETIMEFORMATQUERYA;
- tagNMDATETIMEFORMATQUERYW = Record
- nmhdr : NMHDR;
- pszFormat : LPCWSTR; // format substring
- szMax : SIZE; // max bounding rectangle app will use for this format string
- END;
- NMDATETIMEFORMATQUERYW = tagNMDATETIMEFORMATQUERYW;
- LPNMDATETIMEFORMATQUERYW = ^tagNMDATETIMEFORMATQUERYW;
- TNMDATETIMEFORMATQUERYW = tagNMDATETIMEFORMATQUERYW;
- PNMDATETIMEFORMATQUERYW = ^tagNMDATETIMEFORMATQUERYW;
- {$IFDEF UNICODE}
- DTN_FORMATQUERY = DTN_FORMATQUERYW;
- NMDATETIMEFORMATQUERY= NMDATETIMEFORMATQUERYW;
- LPNMDATETIMEFORMATQUERY= LPNMDATETIMEFORMATQUERYW;
- {$ELSE}
- DTN_FORMATQUERY = DTN_FORMATQUERYA;
- NMDATETIMEFORMATQUERY= NMDATETIMEFORMATQUERYA;
- LPNMDATETIMEFORMATQUERY= LPNMDATETIMEFORMATQUERYA;
- {$ENDIF}
- CONST
- DTN_DROPDOWN = (DTN_FIRST + 6); // MonthCal has dropped down
- DTN_CLOSEUP = (DTN_FIRST + 7); // MonthCal is popping up
- GDTR_MIN = $0001;
- GDTR_MAX = $0002;
- GDT_ERROR = -1;
- GDT_VALID = 0;
- GDT_NONE = 1;
- {$ENDIF} // _WIN32
- {$ENDIF} // NODATETIMEPICK
- {$ifdef ie4plus}
- {$IFNDEF NOIPADDRESS}
- ///////////////////////////////////////////////
- /// IP Address edit control
- // Messages sent to IPAddress controls
- IPM_CLEARADDRESS = (WM_USER+100); // no parameters
- IPM_SETADDRESS = (WM_USER+101); // lparam = TCP/IP address
- IPM_GETADDRESS = (WM_USER+102); // lresult = # of non black fields. lparam = LPDWORD for TCP/IP address
- IPM_SETRANGE = (WM_USER+103); // wparam = field, lparam = range
- IPM_SETFOCUS = (WM_USER+104); // wparam = field
- IPM_ISBLANK = (WM_USER+105); // no parameters
- WC_IPADDRESSW = {L}'SysIPAddress32';
- WC_IPADDRESSA = 'SysIPAddress32';
- {$IFDEF UNICODE}
- TYPE
- WC_IPADDRESS = WC_IPADDRESSW;
- {$ELSE}
- WC_IPADDRESS = WC_IPADDRESSA;
- {$ENDIF}
- CONST
- IPN_FIELDCHANGED = (IPN_FIRST - 0);
- TYPE
- tagNMIPADDRESS = Record
- hdr : NMHDR;
- iField : cint;
- iValue : cint;
- END;
- NMIPADDRESS = tagNMIPADDRESS;
- LPNMIPADDRESS = ^tagNMIPADDRESS;
- TNMIPADDRESS = tagNMIPADDRESS;
- PNMIPADDRESS = ^tagNMIPADDRESS;
- // The following is a useful macro for passing the range values in the
- // IPM_SETRANGE message.
- // Macro 286
- // #define MAKEIPRANGE(low, high) ((LPARAM)(WORD)(((BYTE)(high) << 8) + (BYTE)(low)))
- // And this is a useful macro for making the IP Address to be passed
- // as a LPARAM.
- // Macro 287
- // #define MAKEIPADDRESS(b1,b2,b3,b4) ((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
- // Get individual number
- // Macro 288
- // #define FIRST_IPADDRESS(x) ((x>>24) & 0xff)
- // Macro 289
- // #define SECOND_IPADDRESS(x) ((x>>16) & 0xff)
- // Macro 290
- // #define THIRD_IPADDRESS(x) ((x>>8) & 0xff)
- // Macro 291
- // #define FOURTH_IPADDRESS(x) (x & 0xff)
- {$ENDIF} // NOIPADDRESS
- //---------------------------------------------------------------------------------------
- //---------------------------------------------------------------------------------------
- /// ====================== Pager Control =============================
- //---------------------------------------------------------------------------------------
- //---------------------------------------------------------------------------------------
- {$IFNDEF NOPAGESCROLLER}
- //Pager Class Name
- CONST
- WC_PAGESCROLLERW = {L}'SysPager';
- WC_PAGESCROLLERA = 'SysPager';
- {$IFDEF UNICODE}
- TYPE
- WC_PAGESCROLLER = WC_PAGESCROLLERW;
- {$ELSE}
- WC_PAGESCROLLER = WC_PAGESCROLLERA;
- {$ENDIF}
- //---------------------------------------------------------------------------------------
- // Pager Control Styles
- //---------------------------------------------------------------------------------------
- // begin_r_commctrl
- CONST
- PGS_VERT = $00000000;
- PGS_HORZ = $00000001;
- PGS_AUTOSCROLL = $00000002;
- PGS_DRAGNDROP = $00000004;
- // end_r_commctrl
- //---------------------------------------------------------------------------------------
- // Pager Button State
- //---------------------------------------------------------------------------------------
- //The scroll can be in one of the following control State
- PGF_INVISIBLE = 0; // Scroll button is not visible
- PGF_NORMAL = 1; // Scroll button is in normal state
- PGF_GRAYED = 2; // Scroll button is in grayed state
- PGF_DEPRESSED = 4; // Scroll button is in depressed state
- PGF_HOT = 8; // Scroll button is in hot state
- // The following identifiers specifies the button control
- PGB_TOPORLEFT = 0;
- PGB_BOTTOMORRIGHT = 1;
- //---------------------------------------------------------------------------------------
- // Pager Control Messages
- //---------------------------------------------------------------------------------------
- PGM_SETCHILD = (PGM_FIRST + 1); // lParam == hwnd
- // Macro 292
- Procedure Pager_SetChild( hwnd : hwnd; hwndChild : LPARAM);
- CONST
- PGM_RECALCSIZE = (PGM_FIRST + 2);
- // Macro 293
- Procedure Pager_RecalcSize( hwnd : hwnd);
- CONST
- PGM_FORWARDMOUSE = (PGM_FIRST + 3);
- // Macro 294
- Procedure Pager_ForwardMouse( hwnd : hwnd; bForward : WPARAM);
- CONST
- PGM_SETBKCOLOR = (PGM_FIRST + 4);
- // Macro 295
- Function Pager_SetBkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- CONST
- PGM_GETBKCOLOR = (PGM_FIRST + 5);
- // Macro 296
- Function Pager_GetBkColor( hwnd : hwnd):COLORREF;
- CONST
- PGM_SETBORDER = (PGM_FIRST + 6);
- // Macro 297
- Function Pager_SetBorder( hwnd : hwnd; iBorder : LPARAM):cint;
- CONST
- PGM_GETBORDER = (PGM_FIRST + 7);
- // Macro 298
- Function Pager_GetBorder( hwnd : hwnd):cint;
- CONST
- PGM_SETPOS = (PGM_FIRST + 8);
- // Macro 299
- Function Pager_SetPos( hwnd : hwnd; iPos : LPARAM):cint;
- CONST
- PGM_GETPOS = (PGM_FIRST + 9);
- // Macro 300
- Function Pager_GetPos( hwnd : hwnd):cint;
- CONST
- PGM_SETBUTTONSIZE = (PGM_FIRST + 10);
- // Macro 301
- Function Pager_SetButtonSize( hwnd : hwnd; iSize : LPARAM):cint;
- CONST
- PGM_GETBUTTONSIZE = (PGM_FIRST + 11);
- // Macro 302
- Function Pager_GetButtonSize( hwnd : hwnd):cint;
- CONST
- PGM_GETBUTTONSTATE = (PGM_FIRST + 12);
- // Macro 303
- Function Pager_GetButtonState( hwnd : hwnd; iButton : LPARAM):DWORD;
- CONST
- PGM_GETDROPTARGET = CCM_GETDROPTARGET;
- // Macro 304
- Procedure Pager_GetDropTarget( hwnd : hwnd; ppdt : LPARAM);
- //---------------------------------------------------------------------------------------
- //Pager Control Notification Messages
- //---------------------------------------------------------------------------------------
- // PGN_SCROLL Notification Message
- CONST
- PGN_SCROLL = (PGN_FIRST-1);
- PGF_SCROLLUP = 1;
- PGF_SCROLLDOWN = 2;
- PGF_SCROLLLEFT = 4;
- PGF_SCROLLRIGHT = 8;
- //Keys down
- PGK_SHIFT = 1;
- PGK_CONTROL = 2;
- PGK_MENU = 4;
- {$IFDEF _WIN32}
- #include <pshpack1.h>
- {$ENDIF}
- // This structure is sent along with PGN_SCROLL notifications
- TYPE
- DummyStruct17 = Record
- hdr : NMHDR;
- fwKeys : WORD; // Specifies which keys are down when this notification is send
- rcParent : RECT; // Contains Parent Window Rect
- iDir : cint; // Scrolling Direction
- iXpos : cint; // Horizontal scroll position
- iYpos : cint; // Vertical scroll position
- iScroll : cint; // [in/out] Amount to scroll
- END;
- NMPGSCROLL = DummyStruct17;
- LPNMPGSCROLL = ^DummyStruct17;
- TDummyStruct17 = DummyStruct17;
- PDummyStruct17 = ^DummyStruct17;
- {$IFDEF _WIN32}
- #include <poppack.h>
- {$ENDIF}
- // PGN_CALCSIZE Notification Message
- CONST
- PGN_CALCSIZE = (PGN_FIRST-2);
- PGF_CALCWIDTH = 1;
- PGF_CALCHEIGHT = 2;
- TYPE
- DummyStruct18 = Record
- hdr : NMHDR;
- dwFlag : DWORD;
- iWidth : cint;
- iHeight : cint;
- END;
- NMPGCALCSIZE = DummyStruct18;
- LPNMPGCALCSIZE = ^DummyStruct18;
- TDummyStruct18 = DummyStruct18;
- PDummyStruct18 = ^DummyStruct18;
- // PGN_HOTITEMCHANGE Notification Message
- CONST
- PGN_HOTITEMCHANGE = (PGN_FIRST-3);
- {
- The PGN_HOTITEMCHANGE notification uses these notification
- flags defined in TOOLBAR:
- HICF_ENTERING = $00000010; // idOld is invalid
- HICF_LEAVING = $00000020; // idNew is invalid
- }
- // Structure for PGN_HOTITEMCHANGE notification
- //
- TYPE
- tagNMPGHOTITEM = Record
- hdr : NMHDR;
- idOld : cint;
- idNew : cint;
- dwFlags : DWORD; // HICF_*
- END;
- NMPGHOTITEM = tagNMPGHOTITEM;
- LPNMPGHOTITEM = ^tagNMPGHOTITEM;
- TNMPGHOTITEM = tagNMPGHOTITEM;
- PNMPGHOTITEM = ^tagNMPGHOTITEM;
- {$ENDIF} // NOPAGESCROLLER
- ////====================== End Pager Control ==========================================
- //
- // === Native Font Control ===
- //
- {$IFNDEF NONATIVEFONTCTL}
- //NativeFont Class Name
- CONST
- WC_NATIVEFONTCTLW = {L}'NativeFontCtl';
- WC_NATIVEFONTCTLA = 'NativeFontCtl';
- {$IFDEF UNICODE}
- TYPE
- WC_NATIVEFONTCTL = WC_NATIVEFONTCTLW;
- {$ELSE}
- WC_NATIVEFONTCTL = WC_NATIVEFONTCTLA;
- {$ENDIF}
- // begin_r_commctrl
- // style definition
- CONST
- NFS_EDIT = $0001;
- NFS_STATIC = $0002;
- NFS_LISTCOMBO = $0004;
- NFS_BUTTON = $0008;
- NFS_ALL = $0010;
- NFS_USEFONTASSOC = $0020;
- // end_r_commctrl
- {$ENDIF} // NONATIVEFONTCTL
- // === End Native Font Control ===
- /// ====================== Button Control =============================
- {$IFNDEF NOBUTTON}
- {$IFDEF WIN32}
- // Button Class Name
- WC_BUTTONA = 'Button';
- WC_BUTTONW = {L}'Button';
- CONST
- {$IFDEF UNICODE}
- WC_BUTTON = WC_BUTTONW;
- {$ELSE}
- WC_BUTTON = WC_BUTTONA;
- {$ENDIF}
- {$ELSE}
- WC_BUTTON = 'Button';
- {$ENDIF}
- {$ifdef win32xp}
- BUTTON_IMAGELIST_ALIGN_LEFT = 0;
- BUTTON_IMAGELIST_ALIGN_RIGHT = 1;
- BUTTON_IMAGELIST_ALIGN_TOP = 2;
- BUTTON_IMAGELIST_ALIGN_BOTTOM = 3;
- BUTTON_IMAGELIST_ALIGN_CENTER = 4; // Doesn't draw text
- TYPE
- DummyStruct19 = Record
- himl : HIMAGELIST; // Index: Normal, hot pushed, disabled. If count is less than 4, we use index 1
- margin : RECT; // Margin around icon.
- uAlign : UINT;
- END;
- BUTTON_IMAGELIST = DummyStruct19;
- PBUTTON_IMAGELIST = ^DummyStruct19;
- TDummyStruct19 = DummyStruct19;
- PDummyStruct19 = ^DummyStruct19;
- CONST
- BCM_GETIDEALSIZE = (BCM_FIRST + $0001);
- // Macro 305
- Function Button_GetIdealSize( hwnd : hwnd; psize : LPARAM):BOOL;
- CONST
- BCM_SETIMAGELIST = (BCM_FIRST + $0002);
- // Macro 306
- Function Button_SetImageList( hwnd : hwnd; pbuttonImagelist : LPARAM):BOOL;
- CONST
- BCM_GETIMAGELIST = (BCM_FIRST + $0003);
- // Macro 307
- Function Button_GetImageList( hwnd : hwnd; pbuttonImagelist : LPARAM):BOOL;
- CONST
- BCM_SETTEXTMARGIN = (BCM_FIRST + $0004);
- // Macro 308
- Function Button_SetTextMargin( hwnd : hwnd; pmargin : LPARAM):BOOL;
- CONST
- BCM_GETTEXTMARGIN = (BCM_FIRST + $0005);
- // Macro 309
- Function Button_GetTextMargin( hwnd : hwnd; pmargin : LPARAM):BOOL;
- TYPE
- tagNMBCHOTITEM = Record
- hdr : NMHDR;
- dwFlags : DWORD; // HICF_*
- END;
- NMBCHOTITEM = tagNMBCHOTITEM;
- LPNMBCHOTITEM = ^tagNMBCHOTITEM;
- TNMBCHOTITEM = tagNMBCHOTITEM;
- PNMBCHOTITEM = ^tagNMBCHOTITEM;
- CONST
- BCN_HOTITEMCHANGE = (BCN_FIRST + $0001);
- BST_HOT = $0200;
- {$ENDIF}
- {$ENDIF} // NOBUTTON
- /// ===================== End Button Control =========================
- /// ====================== Static Control =============================
- {$IFNDEF NOSTATIC}
- {$IFDEF _WIN32}
- // Static Class Name
- WC_STATICA = 'Static';
- WC_STATICW = {L}'Static';
- {$IFDEF UNICODE}
- TYPE
- WC_STATIC = WC_STATICW;
- {$ELSE}
- WC_STATIC = WC_STATICA;
- {$ENDIF}
- {$ELSE}
- CONST
- WC_STATIC = 'Static';
- {$ENDIF}
- {$ENDIF} // NOSTATIC
- /// ===================== End Static Control =========================
- /// ====================== Edit Control =============================
- {$IFNDEF NOEDIT}
- {$IFDEF _WIN32}
- // Edit Class Name
- WC_EDITA = 'Edit';
- WC_EDITW = {L}'Edit';
- {$IFDEF UNICODE}
- TYPE
- WC_EDIT = WC_EDITW;
- {$ELSE}
- WC_EDIT = WC_EDITA;
- {$ENDIF}
- {$ELSE}
- CONST
- WC_EDIT = 'Edit';
- {$ENDIF}
- {$ifdef win32xp}
- EM_SETCUEBANNER = (ECM_FIRST + 1); // Set the cue banner with the lParm = LPCWSTR
- // Macro 310
- Function Edit_SetCueBannerText( hwnd : hwnd; lpcwText : LPARAM):BOOL;
- CONST
- EM_GETCUEBANNER = (ECM_FIRST + 2); // Set the cue banner with the lParm = LPCWSTR
- // Macro 311
- Function Edit_GetCueBannerText( hwnd : hwnd; lpwText : WPARAM; cchText : LPARAM):BOOL;
- TYPE
- _tagEDITBALLOONTIP = Record
- cbStruct : DWORD;
- pszTitle : LPCWSTR;
- pszText : LPCWSTR;
- ttiIcon : cint; // From TTI_*
- END;
- EDITBALLOONTIP = _tagEDITBALLOONTIP;
- PEDITBALLOONTIP = ^_tagEDITBALLOONTIP;
- TEDITBALLOONTIP = _tagEDITBALLOONTIP;
- CONST
- EM_SHOWBALLOONTIP = (ECM_FIRST + 3); // Show a balloon tip associated to the edit control
- // Macro 312
- Function Edit_ShowBalloonTip( hwnd : hwnd; peditballoontip : LPARAM):BOOL;
- CONST
- EM_HIDEBALLOONTIP = (ECM_FIRST + 4); // Hide any balloon tip associated with the edit control
- // Macro 313
- Function Edit_HideBalloonTip( hwnd : hwnd):BOOL;
- {$ENDIF}
- {$ENDIF} // NOEDIT
- /// ===================== End Edit Control =========================
- /// ====================== Listbox Control =============================
- {$IFNDEF NOLISTBOX}
- {$IFDEF _WIN32}
- // Listbox Class Name
- CONST
- WC_LISTBOXA = 'ListBox';
- WC_LISTBOXW = {L}'ListBox';
- {$IFDEF UNICODE}
- TYPE
- WC_LISTBOX = WC_LISTBOXW;
- {$ELSE}
- WC_LISTBOX = WC_LISTBOXA;
- {$ENDIF}
- {$ELSE}
- CONST
- WC_LISTBOX = 'ListBox';
- {$ENDIF}
- {$ENDIF} // NOLISTBOX
- /// ===================== End Listbox Control =========================
- /// ====================== Combobox Control =============================
- {$IFNDEF NOCOMBOBOX}
- {$IFDEF _WIN32}
- // Combobox Class Name
- WC_COMBOBOXA = 'ComboBox';
- WC_COMBOBOXW = {L}'ComboBox';
- {$IFDEF UNICODE}
- TYPE
- WC_COMBOBOX = WC_COMBOBOXW;
- {$ELSE}
- WC_COMBOBOX = WC_COMBOBOXA;
- {$ENDIF}
- {$ELSE}
- CONST
- WC_COMBOBOX = 'ComboBox';
- {$ENDIF}
- {$ENDIF} // NOCOMBOBOX
- {$ifdef win32xp}
- // custom combobox control messages
- CB_SETMINVISIBLE = (CBM_FIRST + 1);
- CB_GETMINVISIBLE = (CBM_FIRST + 2);
- // Macro 314
- Function ComboBox_SetMinVisible( hwnd : hwnd; iMinVisible : WPARAM):BOOL;
- // Macro 315
- Function ComboBox_GetMinVisible( hwnd : hwnd):cint;
- {$ENDIF}
- /// ===================== End Combobox Control =========================
- /// ====================== Scrollbar Control ============================
- {$IFNDEF NOSCROLLBAR}
- {$IFDEF _WIN32}
- // Scrollbar Class Name
- CONST
- WC_SCROLLBARA = 'ScrollBar';
- WC_SCROLLBARW = {L}'ScrollBar';
- {$IFDEF UNICODE}
- TYPE
- WC_SCROLLBAR = WC_SCROLLBARW;
- {$ELSE}
- WC_SCROLLBAR = WC_SCROLLBARA;
- {$ENDIF}
- {$ELSE}
- CONST
- WC_SCROLLBAR = 'ScrollBar';
- {$ENDIF}
- {$ENDIF} // NOSCROLLBAR
- /// ===================== End Scrollbar Control =========================
- //====== SysLink control =========================================
- {$IFDEF _WIN32}
- {$ifdef win32xp}
- INVALID_LINK_INDEX = (-1);
- MAX_LINKID_TEXT = 48;
- L_MAX_URL_LENGTH = (2048 + 32 + sizeof("://"));
- WC_LINK = {L}'SysLink';
- LWS_TRANSPARENT = $0001;
- LWS_IGNORERETURN = $0002;
- LIF_ITEMINDEX = $00000001;
- LIF_STATE = $00000002;
- LIF_ITEMID = $00000004;
- LIF_URL = $00000008;
- LIS_FOCUSED = $00000001;
- LIS_ENABLED = $00000002;
- LIS_VISITED = $00000004;
- TYPE
- tagLITEM = Record
- mask : UINT;
- iLink : cint;
- state : UINT;
- stateMask : UINT;
- szID : Array [0..MAX_LINKID_TEXT-1] OF WCHAR;
- szUrl : Array [0..L_MAX_URL_LENGTH-1] OF WCHAR;
- END;
- LITEM = tagLITEM;
- PLITEM = ^tagLITEM;
- TLITEM = tagLITEM;
- PLITEM = ^tagLITEM;
- tagLHITTESTINFO = Record
- pt : POINT;
- item : LITEM;
- END;
- LHITTESTINFO = tagLHITTESTINFO;
- PLHITTESTINFO = ^tagLHITTESTINFO;
- TLHITTESTINFO = tagLHITTESTINFO;
- PLHITTESTINFO = ^tagLHITTESTINFO;
- tagNMLINK = Record
- hdr : NMHDR;
- item : LITEM;
- END;
- NMLINK = tagNMLINK;
- PNMLINK = ^tagNMLINK;
- TNMLINK = tagNMLINK;
- PNMLINK = ^tagNMLINK;
- // SysLink notifications
- // NM_CLICK // wParam: control ID, lParam: PNMLINK, ret: ignored.
- // LinkWindow messages
- CONST
- LM_HITTEST = (WM_USER+$300); // wParam: n/a, lparam: PLHITTESTINFO, ret: BOOL
- LM_GETIDEALHEIGHT = (WM_USER+$301); // wParam: n/a, lparam: n/a, ret: cy
- LM_SETITEM = (WM_USER+$302); // wParam: n/a, lparam: LITEM*, ret: BOOL
- LM_GETITEM = (WM_USER+$303); // wParam: n/a, lparam: LITEM*, ret: BOOL
- {$ENDIF}
- {$ENDIF} // _WIN32
- //====== End SysLink control =========================================
- //
- // === MUI APIs ===
- //
- {$IFNDEF NOMUI}
- procedure InitMUILanguage(uiLang:LANGID); external commctrldll name 'InitMUILanguage';
- function GetMUILanguage:LANGID; external commctrldll name 'GetMUILanguage';
- {$ENDIF} // NOMUI
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$IFDEF _WIN32}
- //====== TrackMouseEvent =====================================================
- {$IFNDEF NOTRACKMOUSEEVENT}
- //
- // If the messages for TrackMouseEvent have not been defined then define them
- // now.
- //
- {$IFNDEF WM_MOUSEHOVER}
- CONST
- WM_MOUSEHOVER = $02A1;
- WM_MOUSELEAVE = $02A3;
- {$ENDIF}
- //
- // If the TRACKMOUSEEVENT structure and associated flags havent been declared
- // then declare them now.
- //
- {$IFNDEF TME_HOVER}
- TME_HOVER = $00000001;
- TME_LEAVE = $00000002;
- {$ifdef win32xp}
- TME_NONCLIENT = $00000010;
- {$ENDIF} /* WINVER >= 0x0500 */
- TME_QUERY = $40000000;
- TME_CANCEL = $80000000;
- HOVER_DEFAULT = $FFFFFFFF;
- TYPE
- tagTRACKMOUSEEVENT = Record
- cbSize : DWORD;
- dwFlags : DWORD;
- hwndTrack : HWND;
- dwHoverTime : DWORD;
- END;
- TRACKMOUSEEVENT = tagTRACKMOUSEEVENT;
- LPTRACKMOUSEEVENT = ^tagTRACKMOUSEEVENT;
- TTRACKMOUSEEVENT = tagTRACKMOUSEEVENT;
- PTRACKMOUSEEVENT = ^tagTRACKMOUSEEVENT;
- {$ENDIF} // !TME_HOVER
- //
- // Declare _TrackMouseEvent. This API tries to use the window manager's
- // implementation of TrackMouseEvent if it is present, otherwise it emulates.
- //
- function _TrackMouseEvent(lpEventTrack:LPTRACKMOUSEEVENT):BOOL; external commctrldll name '_TrackMouseEvent';
- {$ENDIF} // !NOTRACKMOUSEEVENT
- {$ifdef ie4plus}
- //====== Flat Scrollbar APIs=========================================
- {$IFNDEF NOFLATSBAPIS}
- CONST
- WSB_PROP_CYVSCROLL = $00000001L;
- WSB_PROP_CXHSCROLL = $00000002L;
- WSB_PROP_CYHSCROLL = $00000004L;
- WSB_PROP_CXVSCROLL = $00000008L;
- WSB_PROP_CXHTHUMB = $00000010L;
- WSB_PROP_CYVTHUMB = $00000020L;
- WSB_PROP_VBKGCOLOR = $00000040L;
- WSB_PROP_HBKGCOLOR = $00000080L;
- WSB_PROP_VSTYLE = $00000100L;
- WSB_PROP_HSTYLE = $00000200L;
- WSB_PROP_WINSTYLE = $00000400L;
- WSB_PROP_PALETTE = $00000800L;
- WSB_PROP_MASK = $00000FFFL;
- FSB_FLAT_MODE = 2;
- FSB_ENCARTA_MODE = 1;
- FSB_REGULAR_MODE = 0;
- function FlatSB_EnableScrollBar(hwnd:HWND):BOOL; external commctrldll name 'FlatSB_EnableScrollBar';
- function FlatSB_ShowScrollBar(hwnd:HWND):BOOL; external commctrldll name 'FlatSB_ShowScrollBar';
- function FlatSB_GetScrollRange(hwnd:HWND):BOOL; external commctrldll name 'FlatSB_GetScrollRange';
- function FlatSB_GetScrollInfo(hwnd:HWND):BOOL; external commctrldll name 'FlatSB_GetScrollInfo';
- function FlatSB_GetScrollPos(hwnd:HWND):cint; external commctrldll name 'FlatSB_GetScrollPos';
- function FlatSB_GetScrollProp(hwnd:HWND):BOOL; external commctrldll name 'FlatSB_GetScrollProp';
- {$IFDEF _WIN64}
- function FlatSB_GetScrollPropPtr(hwnd:HWND):BOOL; external commctrldll name 'FlatSB_GetScrollPropPtr';
- {$ELSE}
- function FlatSB_GetScrollPropPtr(hwnd:HWND):BOOL; external commctrldll name 'FlatSB_GetScrollProp';
- {$ENDIF}
- function FlatSB_SetScrollPos(:HWND):cint; external commctrldll name 'FlatSB_SetScrollPos';
- function FlatSB_SetScrollInfo(:HWND):cint; external commctrldll name 'FlatSB_SetScrollInfo';
- function FlatSB_SetScrollRange(:HWND):cint; external commctrldll name 'FlatSB_SetScrollRange';
- function FlatSB_SetScrollProp(:HWND):BOOL; external commctrldll name 'FlatSB_SetScrollProp';
- CONST
- FlatSB_SetScrollPropPtr = FlatSB_SetScrollProp;
- function InitializeFlatSB(:HWND):BOOL; external commctrldll name 'InitializeFlatSB';
- function UninitializeFlatSB(:HWND):HRESULT; external commctrldll name 'UninitializeFlatSB';
- {$ENDIF} // NOFLATSBAPIS
- {$ENDIF} // _WIN32_IE >= 0x0400
- {$ENDIF} { _WIN32 }
- {$ENDIF} // _WIN32_IE >= 0x0300
- {$ifdef win32xp}
- //
- // subclassing stuff
- //
- TYPE
- subclassproc=function (hwnd:HWND;uMsg:cUINT; wParam:WPARAM;lparam:LPARAM;uISubClass : UINT_PTR;dwRefData:DWORD_PTR):LRESULT; stdcall;
- {
- (CALLBACK *SUBCLASSPROC)(HWND hWnd, UINT uMsg, WPARAM wParam, = LRESULT
- LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData);
- typedef LRESULT (CALLBACK *SUBCLASSPROC)(HWND hWnd, UINT uMsg, WPARAM wParam,
- LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData);
- hwnd:HWND;uMsg:cUINT; wParam:WPARAM;lparam:LPARAM;uISubClass : CUINT_PTR;dwRefData:DWORD_PTR):LRESULT; stdcall;
- }
- function SetWindowSubclass(hWnd:HWND;pfnSubclass:SUBCLASSPROC;uIdSubclass:UINT_PTR;dwRefData:DWORD_PTR):BOOL; external commctrldll name 'SetWindowSubclass';
- function GetWindowSubclass(hWnd:HWND;pfnSubclass:SUBCLASSPROC;uIdSubclass:UINT_PTR;pdwRefData:PDWORD_PTR):BOOL; external commctrldll name 'GetWindowSubclass';
- function RemoveWindowSubclass(hWnd:HWND;pfnSubclass:SUBCLASSPROC;uIdSubclass:UINT_PTR):BOOL; external commctrldll name 'RemoveWindowSubclass';
- function DefSubclassProc(hWnd:HWND;uMsg:UINT;wParam:WPARAM;lParam:LPARAM):LRESULT; external commctrldll name 'DefSubclassProc';
- {$ENDIF}
- {$ifdef win32xp}
- function DrawShadowText(hdc:HDC;pszText:LPCWSTR;cch:UINT;prc:PRECT;dwFlags:DWORD;crText:COLORREF;crShadow:COLORREF;ixOffset:cint;iyOffset:cint):cint; external commctrldll name 'DrawShadowText';
- {$ENDIF}
- IMPLEMENTATION
- // Macro 8
- //#define HANDLE_WM_NOTIFY(hwnd, wParam, lParam, fn) \
- // (fn)((hwnd), (int)(wParam), (NMHDR *)(lParam))
- Procedure HANDLE_WM_NOTIFY( hwnd : hwnd; wParam : cint;var lParam : NMHDR ;fn:Pointer);
- TYPE FnType=procedure ( hwnd : hwnd; wParam : cint;tst:longint); stdcall;
- Begin
- fnType(fn)(hwnd, wParam, Longint(@lParam));
- end;
- // Macro 9
- //#define FORWARD_WM_NOTIFY(hwnd, idFrom, pnmhdr, fn) \
- // (LRESULT)(fn)((hwnd), WM_NOTIFY, (WPARAM)(int)(idFrom), (LPARAM)(NMHDR *)(pnmhdr))
- Function FORWARD_WM_NOTIFY( hwnd : hwnd; idFrom : cint;var pnmhdr : NMHDR ; fn : pointer ):LRESULT;
- TYPE FnType=Function( hwnd : hwnd; wParam : cint;wparam2:cint;lparam1:lparam):LResult; stdcall;
- Begin
- Result:=LRESULT(fntype(fn)(hwnd, WM_NOTIFY, idFrom, Longint(@pnmhdr)));
- end;
- // Macro 10
- // #define CCSIZEOF_STRUCT(structname, member) (((int)((LPBYTE)(&((structname*)0)->member) - ((LPBYTE)((structname*)0)))) + sizeof(((structname*)0)->member))
- // Macro 11
- // #define ImageList_AddIcon(himl, hicon) ImageList_ReplaceIcon(himl, -1, hicon)
- Function ImageList_AddIcon(Himl:HIMAGELIST;hicon:HICON):cint;
- Begin
- Result:=ImageList_ReplaceIcon(himl,-1,hicon);
- end;
- // Macro 12
- // #define INDEXTOOVERLAYMASK(i) ((i) << 8)
- // Macro 13
- // #define ImageList_RemoveAll(himl) ImageList_Remove(himl, -1)
- Procedure ImageList_RemoveAll(himl:HIMAGELIST);
- Begin
- ImageList_Remove(himl, -1)
- End;
- // Macro 14
- // #define ImageList_ExtractIcon(hi, himl, i) ImageList_GetIcon(himl, i, 0)
- Procedure ImageList_ExtractIcon(hi:longint; {dummy?} himl:HIMAGELIST;i:cint);
- Begin
- ImageList_GetIcon(himl, i,0);
- end;
- // Macro 15
- // #define ImageList_LoadBitmap(hi, lpbmp, cx, cGrow, crMask)
- // ImageList_LoadImage(hi, lpbmp, cx, cGrow, crMask, IMAGE_BITMAP, 0)
- Procedure ImageList_LoadBitmap(hi:HINST;lpbmp:LPCTSTR;cx:cint;cGrow:cint;crMask:COLORREF);
- Begin
- ImageList_LoadImage(hi, lpbmp, cx, cGrow, crMask, IMAGE_BITMAP, 0);
- End;
- // Macro 16
- // #define Header_GetItemCount(hwndHD) \
- // (int)SNDMSG((hwndHD), HDM_GETITEMCOUNT, 0, DWord(0))
- Function Header_GetItemCount( hwndHD : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwndHD), HDM_GETITEMCOUNT, 0, DWord(0)))
- end;
- // Macro 17
- //#define Header_InsertItem(hwndHD, i, phdi) \
- // (int)SNDMSG((hwndHD), HDM_INSERTITEM, (WPARAM)(int)(i), (LPARAM)(const HD_ITEM *)(phdi))
- Function Header_InsertItem( hwndHD : hwnd; i : cint;const phdi : HD_ITEM ):cint;
- Begin
- Result:=cint(SendMessage((hwndHD), HDM_INSERTITEM, (i), Longint(@phdi)));
- end;
- // Macro 18
- //#define Header_DeleteItem(hwndHD, i) \
- // (BOOL)SNDMSG((hwndHD), HDM_DELETEITEM, (WPARAM)(int)(i), DWord(0))
- Function Header_DeleteItem( hwndHD : hwnd; i : cint):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndHD), HDM_DELETEITEM, (i), DWord(0)));
- end;
- // Macro 19
- // #define Header_GetItem(hwndHD, i, phdi) \
- // (BOOL)SNDMSG((hwndHD), HDM_GETITEM, (WPARAM)(int)(i), (LPARAM)(HD_ITEM *)(phdi))
- Function Header_GetItem( hwndHD : hwnd; i : cint;var phdi : HD_ITEM ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndHD), HDM_GETITEM, (i), Longint(@phdi)));
- end;
- // Macro 20
- // #define Header_SetItem(hwndHD, i, phdi) \
- // (BOOL)SNDMSG((hwndHD), HDM_SETITEM, (WPARAM)(int)(i), (LPARAM)(const HD_ITEM *)(phdi))
- Function Header_SetItem( hwndHD : hwnd; i : cint;const phdi : HD_ITEM ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndHD), HDM_SETITEM, (i), Longint(@phdi)));
- end;
- // Macro 21
- // #define Header_Layout(hwndHD, playout) \
- // (BOOL)SNDMSG((hwndHD), HDM_LAYOUT, 0, (LPARAM)(HD_LAYOUT *)(playout))
- Function Header_Layout( hwndHD : hwnd;var playout : HD_LAYOUT ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndHD), HDM_LAYOUT, 0, Longint(@playout)))
- end;
- // Macro 22
- // #define Header_GetItemRect(hwnd, iItem, lprc) \
- // (BOOL)SNDMSG((hwnd), HDM_GETITEMRECT, (WPARAM)(iItem), (LPARAM)(lprc))
- Function Header_GetItemRect( hwnd : hwnd; iItem : WPARAM; lprc : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), HDM_GETITEMRECT, iItem, lprc));
- end;
- // Macro 23
- // #define Header_SetImageList(hwnd, himl) \
- // (HIMAGELIST)SNDMSG((hwnd), HDM_SETIMAGELIST, 0, (LPARAM)(himl))
- Function Header_SetImageList( hwnd : hwnd; himl : LPARAM):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), HDM_SETIMAGELIST, 0, himl))
- end;
- // Macro 24
- // #define Header_GetImageList(hwnd) \
- // (HIMAGELIST)SNDMSG((hwnd), HDM_GETIMAGELIST, 0, 0)
- Function Header_GetImageList( hwnd : hwnd):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), HDM_GETIMAGELIST, 0, 0))
- end;
- // Macro 25
- // #define Header_OrderToIndex(hwnd, i) \
- // (int)SNDMSG((hwnd), HDM_ORDERTOINDEX, (WPARAM)(i), 0)
- Function Header_OrderToIndex( hwnd : hwnd; i : WPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), HDM_ORDERTOINDEX, (i), 0))
- end;
- // Macro 26
- // #define Header_CreateDragImage(hwnd, i) \
- // (HIMAGELIST)SNDMSG((hwnd), HDM_CREATEDRAGIMAGE, (WPARAM)(i), 0)
- Function Header_CreateDragImage( hwnd : hwnd; i : WPARAM):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), HDM_CREATEDRAGIMAGE, (i), 0))
- end;
- // Macro 27
- // #define Header_GetOrderArray(hwnd, iCount, lpi) \
- // (BOOL)SNDMSG((hwnd), HDM_GETORDERARRAY, (WPARAM)(iCount), (LPARAM)(lpi))
- Function Header_GetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), HDM_GETORDERARRAY, iCount, lpi))
- end;
- // Macro 28
- // #define Header_SetOrderArray(hwnd, iCount, lpi) \
- // (BOOL)SNDMSG((hwnd), HDM_SETORDERARRAY, (WPARAM)(iCount), (LPARAM)(lpi))
- Function Header_SetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), HDM_SETORDERARRAY, iCount, lpi))
- end;
- // Macro 29
- // #define Header_SetHotDivider(hwnd, fPos, dw) \
- // (int)SNDMSG((hwnd), HDM_SETHOTDIVIDER, (WPARAM)(fPos), (LPARAM)(dw))
- Function Header_SetHotDivider( hwnd : hwnd; fPos : WPARAM; dw : LPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), HDM_SETHOTDIVIDER, fPos, dw))
- end;
- {$ifdef ie5plus}
- // Macro 30
- // #define Header_SetBitmapMargin(hwnd, iWidth) \
- // (int)SNDMSG((hwnd), HDM_SETBITMAPMARGIN, (WPARAM)(iWidth), 0)
- Function Header_SetBitmapMargin( hwnd : hwnd; iWidth : WPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), HDM_SETBITMAPMARGIN, iWidth, 0))
- end;
- // Macro 31
- // #define Header_GetBitmapMargin(hwnd) \
- // (int)SNDMSG((hwnd), HDM_GETBITMAPMARGIN, 0, 0)
- Function Header_GetBitmapMargin( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), HDM_GETBITMAPMARGIN, 0, 0))
- end;
- {$ENDIF}
- // Macro 32
- // #define Header_SetUnicodeFormat(hwnd, fUnicode) \
- // (BOOL)SNDMSG((hwnd), HDM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
- Function Header_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), HDM_SETUNICODEFORMAT, fUnicode, 0));
- end;
- // Macro 33
- // #define Header_GetUnicodeFormat(hwnd) \
- // (BOOL)SNDMSG((hwnd), HDM_GETUNICODEFORMAT, 0, 0)
- Function Header_GetUnicodeFormat( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), HDM_GETUNICODEFORMAT, 0, 0))
- end;
- {$ifdef IE5plus}
- // Macro 34
- // #define Header_SetFilterChangeTimeout(hwnd, i) \
- // (int)SNDMSG((hwnd), HDM_SETFILTERCHANGETIMEOUT, 0, (LPARAM)(i))
- Function Header_SetFilterChangeTimeout( hwnd : hwnd; i : LPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), HDM_SETFILTERCHANGETIMEOUT, 0, (i)))
- end;
- // Macro 35
- // #define Header_EditFilter(hwnd, i, fDiscardChanges) \
- // (int)SNDMSG((hwnd), HDM_EDITFILTER, (WPARAM)(i), MAKELPARAM(fDiscardChanges, 0))
- Function Header_EditFilter( hwnd : hwnd; i : WPARAM; fDiscardChanges :cint ):cint;
- Begin
- Result:=cint(SendMessage((hwnd), HDM_EDITFILTER, (i), MAKELPARAM(fDiscardChanges, 0)));
- end;
- // Macro 36
- // #define Header_ClearFilter(hwnd, i) \
- // (int)SNDMSG((hwnd), HDM_CLEARFILTER, (WPARAM)(i), 0)
- Function Header_ClearFilter( hwnd : hwnd; i : WPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), HDM_CLEARFILTER, (i), 0))
- end;
- // Macro 37
- // #define Header_ClearAllFilters(hwnd) \
- // (int)SNDMSG((hwnd), HDM_CLEARFILTER, (WPARAM)-1, 0)
- Function Header_ClearAllFilters( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), HDM_CLEARFILTER, WPARAM(-1), 0))
- end;
- {$endif}
- // Macro 38
- // #define ListView_SetUnicodeFormat(hwnd, fUnicode) \
- // (BOOL)SNDMSG((hwnd), LVM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
- Function ListView_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETUNICODEFORMAT, fUnicode, 0));
- end;
- // Macro 39
- // #define ListView_GetUnicodeFormat(hwnd) \
- // (BOOL)SNDMSG((hwnd), LVM_GETUNICODEFORMAT, 0, 0)
- Function ListView_GetUnicodeFormat( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETUNICODEFORMAT, 0, 0))
- end;
- // Macro 40
- // #define ListView_GetBkColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), LVM_GETBKCOLOR, 0, DWord(0))
- Function ListView_GetBkColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), LVM_GETBKCOLOR, 0, DWord(0)))
- end;
- // Macro 41
- // #define ListView_SetBkColor(hwnd, clrBk) \
- // (BOOL)SNDMSG((hwnd), LVM_SETBKCOLOR, 0, (LPARAM)(COLORREF)(clrBk))
- Function ListView_SetBkColor( hwnd : hwnd; clrBk : COLORREF):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETBKCOLOR, 0, clrBk))
- end;
- // Macro 42
- // #define ListView_GetImageList(hwnd, iImageList) \
- // (HIMAGELIST)SNDMSG((hwnd), LVM_GETIMAGELIST, (WPARAM)(INT)(iImageList), DWord(0))
- Function ListView_GetImageList( hwnd : hwnd; iImageList : CINT):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), LVM_GETIMAGELIST, iImageList, DWord(0)))
- end;
- // Macro 43
- // #define ListView_SetImageList(hwnd, himl, iImageList) \
- // (HIMAGELIST)SNDMSG((hwnd), LVM_SETIMAGELIST, (WPARAM)(iImageList), (LPARAM)(HIMAGELIST)(himl))
- Function ListView_SetImageList( hwnd : hwnd; himl : HIMAGELIST; iImageList : WPARAM):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), LVM_SETIMAGELIST, iImageList, himl))
- end;
- // Macro 44
- // #define ListView_GetItemCount(hwnd) \
- // (int)SNDMSG((hwnd), LVM_GETITEMCOUNT, 0, DWord(0))
- Function ListView_GetItemCount( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_GETITEMCOUNT, 0, DWord(0)))
- end;
- // Macro 45
- // #define INDEXTOSTATEIMAGEMASK(i) ((i) << 12)
- // Macro 46
- // #define ListView_GetItem(hwnd, pitem) \
- // (BOOL)SNDMSG((hwnd), LVM_GETITEM, 0, (LPARAM)(LV_ITEM *)(pitem))
- Function ListView_GetItem( hwnd : hwnd;var pitem : LV_ITEM ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETITEM, 0, Longint(@pitem)))
- end;
- // Macro 47
- // #define ListView_SetItem(hwnd, pitem) \
- // (BOOL)SNDMSG((hwnd), LVM_SETITEM, 0, (LPARAM)(const LV_ITEM *)(pitem))
- Function ListView_SetItem( hwnd : hwnd;const pitem : LV_ITEM ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETITEM, 0, Longint(@pitem)))
- end;
- // Macro 48
- // #define ListView_InsertItem(hwnd, pitem) \
- // (int)SNDMSG((hwnd), LVM_INSERTITEM, 0, (LPARAM)(const LV_ITEM *)(pitem))
- Function ListView_InsertItem( hwnd : hwnd;Const pitem : LV_ITEM ):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_INSERTITEM, 0, Longint(@pitem)))
- end;
- // Macro 49
- // #define ListView_DeleteItem(hwnd, i) \
- // (BOOL)SNDMSG((hwnd), LVM_DELETEITEM, (WPARAM)(int)(i), DWord(0))
- Function ListView_DeleteItem( hwnd : hwnd; i : cint):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_DELETEITEM, (i), DWord(0)))
- end;
- // Macro 50
- // #define ListView_DeleteAllItems(hwnd) \
- // (BOOL)SNDMSG((hwnd), LVM_DELETEALLITEMS, 0, DWord(0))
- Function ListView_DeleteAllItems( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_DELETEALLITEMS, 0, DWord(0)))
- end;
- // Macro 51
- // #define ListView_GetCallbackMask(hwnd) \
- // (BOOL)SNDMSG((hwnd), LVM_GETCALLBACKMASK, 0, 0)
- Function ListView_GetCallbackMask( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETCALLBACKMASK, 0, 0))
- end;
- // Macro 52
- // #define ListView_SetCallbackMask(hwnd, mask) \
- // (BOOL)SNDMSG((hwnd), LVM_SETCALLBACKMASK, (WPARAM)(UINT)(mask), 0)
- Function ListView_SetCallbackMask( hwnd : hwnd; mask : UINT):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETCALLBACKMASK, mask, 0))
- end;
- // Macro 53
- // #define ListView_GetNextItem(hwnd, i, flags) \
- // (int)SNDMSG((hwnd), LVM_GETNEXTITEM, (WPARAM)(int)(i), MAKELPARAM((flags), 0))
- Function ListView_GetNextItem( hwnd : hwnd; i : cint; flags : cint):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_GETNEXTITEM, (i), MAKELPARAM((flags), 0)))
- end;
- // Macro 54
- // #define ListView_FindItem(hwnd, iStart, plvfi) \
- // (int)SNDMSG((hwnd), LVM_FINDITEM, (WPARAM)(int)(iStart), (LPARAM)(const LV_FINDINFO *)(plvfi))
- Function ListView_FindItem( hwnd : hwnd; iStart : cint;const plvfi : LV_FINDINFO ):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_FINDITEM, iStart, Longint(@plvfi)))
- end;
- // Macro 55
- // #define ListView_GetItemRect(hwnd, i, prc, code) \
- // (BOOL)SNDMSG((hwnd), LVM_GETITEMRECT, (WPARAM)(int)(i), \
- // ((prc) ? (((RECT *)(prc))->left = (code),(LPARAM)(RECT *)(prc)) : (LPARAM)(RECT *)NULL))
- // Function ListView_GetItemRect( hwnd : hwnd; i : cint;prc {!};code {!}):BOOL;
- //
- // Begin
- // Result:=BOOL(SendMessage((hwnd), LVM_GETITEMRECT, (i), \)
- // end;
- // Macro 56
- // #define ListView_SetItemPosition(hwndLV, i, x, y) \
- // (BOOL)SNDMSG((hwndLV), LVM_SETITEMPOSITION, (WPARAM)(int)(i), MAKELPARAM((x), (y)))
- Function ListView_SetItemPosition( hwndLV : hwnd; i : cint; x : cint ; y : cint ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_SETITEMPOSITION, (i), MAKELPARAM((x), (y))))
- end;
- // Macro 57
- // #define ListView_GetItemPosition(hwndLV, i, ppt) \
- // (BOOL)SNDMSG((hwndLV), LVM_GETITEMPOSITION, (WPARAM)(int)(i), (LPARAM)(POINT *)(ppt))
- Function ListView_GetItemPosition( hwndLV : hwnd; i : cint;var ppt : POINT ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_GETITEMPOSITION, (i), LPAram(@ppt)))
- end;
- // Macro 58
- // #define ListView_GetStringWidth(hwndLV, psz) \
- // (int)SNDMSG((hwndLV), LVM_GETSTRINGWIDTH, 0, (LPARAM)(LPCTSTR)(psz))
- Function ListView_GetStringWidth( hwndLV : hwnd; psz : LPCTSTR):cint;
- Begin
- Result:=cint(SendMessage((hwndLV), LVM_GETSTRINGWIDTH, 0, LPARAM(psz)))
- end;
- // Macro 59
- // #define ListView_HitTest(hwndLV, pinfo) \
- // (int)SNDMSG((hwndLV), LVM_HITTEST, 0, (LPARAM)(LV_HITTESTINFO *)(pinfo))
- Function ListView_HitTest( hwndLV : hwnd;var pinfo : LV_HITTESTINFO ):cint;
- Begin
- Result:=cint(SendMessage((hwndLV), LVM_HITTEST, 0, LParam(@pinfo)))
- end;
- // Macro 60
- // #define ListView_EnsureVisible(hwndLV, i, fPartialOK) \
- // (BOOL)SNDMSG((hwndLV), LVM_ENSUREVISIBLE, (WPARAM)(int)(i), MAKELPARAM((fPartialOK), 0))
- Function ListView_EnsureVisible( hwndLV : hwnd; i : cint; fPartialOK : cint ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_ENSUREVISIBLE, (i), MAKELPARAM((fPartialOK), 0)))
- end;
- // Macro 61
- // #define ListView_Scroll(hwndLV, dx, dy) \
- // (BOOL)SNDMSG((hwndLV), LVM_SCROLL, (WPARAM)(int)(dx), (LPARAM)(int)(dy))
- Function ListView_Scroll( hwndLV : hwnd; dx : cint; dy : cint):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_SCROLL, dx, dy))
- end;
- // Macro 62
- // #define ListView_RedrawItems(hwndLV, iFirst, iLast) \
- // (BOOL)SNDMSG((hwndLV), LVM_REDRAWITEMS, (WPARAM)(int)(iFirst), (LPARAM)(int)(iLast))
- Function ListView_RedrawItems( hwndLV : hwnd; iFirst : cint; iLast : cint):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_REDRAWITEMS, iFirst, iLast))
- end;
- // Macro 63
- // #define ListView_Arrange(hwndLV, code) \
- // (BOOL)SNDMSG((hwndLV), LVM_ARRANGE, (WPARAM)(UINT)(code), DWord(0))
- Function ListView_Arrange( hwndLV : hwnd; code : UINT):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_ARRANGE, code, DWord(0)))
- end;
- // Macro 64
- // #define ListView_EditLabel(hwndLV, i) \
- // (HWND)SNDMSG((hwndLV), LVM_EDITLABEL, (WPARAM)(int)(i), DWord(0))
- Function ListView_EditLabel( hwndLV : hwnd; i : cint):HWND;
- Begin
- Result:=HWND(SendMessage((hwndLV), LVM_EDITLABEL, (i), DWord(0)))
- end;
- // Macro 65
- // #define ListView_GetEditControl(hwndLV) \
- // (HWND)SNDMSG((hwndLV), LVM_GETEDITCONTROL, 0, DWord(0))
- Function ListView_GetEditControl( hwndLV : hwnd):HWND;
- Begin
- Result:=HWND(SendMessage((hwndLV), LVM_GETEDITCONTROL, 0, DWord(0)))
- end;
- // Macro 66
- // #define ListView_GetColumn(hwnd, iCol, pcol) \
- // (BOOL)SNDMSG((hwnd), LVM_GETCOLUMN, (WPARAM)(int)(iCol), (LPARAM)(LV_COLUMN *)(pcol))
- Function ListView_GetColumn( hwnd : hwnd; iCol : cint;var pcol : LV_COLUMN ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETCOLUMN, iCol, Longint(@pcol)))
- end;
- // Macro 67
- // #define ListView_SetColumn(hwnd, iCol, pcol) \
- // (BOOL)SNDMSG((hwnd), LVM_SETCOLUMN, (WPARAM)(int)(iCol), (LPARAM)(const LV_COLUMN *)(pcol))
- Function ListView_SetColumn( hwnd : hwnd; iCol : cint; Const pcol : LV_COLUMN ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETCOLUMN, iCol, Longint(@pcol)))
- end;
- // Macro 68
- // #define ListView_InsertColumn(hwnd, iCol, pcol) \
- // (int)SNDMSG((hwnd), LVM_INSERTCOLUMN, (WPARAM)(int)(iCol), (LPARAM)(const LV_COLUMN *)(pcol))
- Function ListView_InsertColumn( hwnd : hwnd; iCol : cint;const pcol : LV_COLUMN ):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_INSERTCOLUMN, iCol, Longint(@pcol)))
- end;
- // Macro 69
- // #define ListView_DeleteColumn(hwnd, iCol) \
- // (BOOL)SNDMSG((hwnd), LVM_DELETECOLUMN, (WPARAM)(int)(iCol), 0)
- Function ListView_DeleteColumn( hwnd : hwnd; iCol : cint):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_DELETECOLUMN, iCol, 0))
- end;
- // Macro 70
- // #define ListView_GetColumnWidth(hwnd, iCol) \
- // (int)SNDMSG((hwnd), LVM_GETCOLUMNWIDTH, (WPARAM)(int)(iCol), 0)
- Function ListView_GetColumnWidth( hwnd : hwnd; iCol : cint):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_GETCOLUMNWIDTH, iCol, 0))
- end;
- // Macro 71
- // #define ListView_SetColumnWidth(hwnd, iCol, cx) \
- // (BOOL)SNDMSG((hwnd), LVM_SETCOLUMNWIDTH, (WPARAM)(int)(iCol), MAKELPARAM((cx), 0))
- Function ListView_SetColumnWidth( hwnd : hwnd; iCol : cint; cx :cint ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETCOLUMNWIDTH, iCol, MAKELPARAM((cx), 0)))
- end;
- // Macro 72
- // #define ListView_GetHeader(hwnd)\
- // (HWND)SNDMSG((hwnd), LVM_GETHEADER, 0, DWord(0))
- Function ListView_GetHeader( hwnd : hwnd):HWND;
- Begin
- Result:=Windows.HWND(SendMessage((hwnd), LVM_GETHEADER, 0, DWord(0)));
- end;
- // Macro 73
- // #define ListView_CreateDragImage(hwnd, i, lpptUpLeft) \
- // (HIMAGELIST)SNDMSG((hwnd), LVM_CREATEDRAGIMAGE, (WPARAM)(int)(i), (LPARAM)(LPPOINT)(lpptUpLeft))
- Function ListView_CreateDragImage( hwnd : hwnd; i : cint; lpptUpLeft : LPPOINT):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), LVM_CREATEDRAGIMAGE, WPARAM(i), LPARAM(lpptUpLeft)))
- end;
- // Macro 74
- // #define ListView_GetViewRect(hwnd, prc) \
- // (BOOL)SNDMSG((hwnd), LVM_GETVIEWRECT, 0, (LPARAM)(RECT *)(prc))
- Function ListView_GetViewRect( hwnd : hwnd;var prc : RECT ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETVIEWRECT, 0, Longint(@prc)))
- end;
- // Macro 75
- // #define ListView_GetTextColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), LVM_GETTEXTCOLOR, 0, DWord(0))
- Function ListView_GetTextColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), LVM_GETTEXTCOLOR, 0, DWord(0)))
- end;
- // Macro 76
- // #define ListView_SetTextColor(hwnd, clrText) \
- // (BOOL)SNDMSG((hwnd), LVM_SETTEXTCOLOR, 0, (LPARAM)(COLORREF)(clrText))
- Function ListView_SetTextColor( hwnd : hwnd; clrText : COLORREF):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETTEXTCOLOR, 0, clrText))
- end;
- // Macro 77
- // #define ListView_GetTextBkColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), LVM_GETTEXTBKCOLOR, 0, DWord(0))
- Function ListView_GetTextBkColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), LVM_GETTEXTBKCOLOR, 0, DWord(0)))
- end;
- // Macro 78
- // #define ListView_SetTextBkColor(hwnd, clrTextBk) \
- // (BOOL)SNDMSG((hwnd), LVM_SETTEXTBKCOLOR, 0, (LPARAM)(COLORREF)(clrTextBk))
- Function ListView_SetTextBkColor( hwnd : hwnd; clrTextBk : COLORREF):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETTEXTBKCOLOR, 0, clrTextBk))
- end;
- // Macro 79
- // #define ListView_GetTopIndex(hwndLV) \
- // (int)SNDMSG((hwndLV), LVM_GETTOPINDEX, 0, 0)
- Function ListView_GetTopIndex( hwndLV : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwndLV), LVM_GETTOPINDEX, 0, 0))
- end;
- // Macro 80
- // #define ListView_GetCountPerPage(hwndLV) \
- // (int)SNDMSG((hwndLV), LVM_GETCOUNTPERPAGE, 0, 0)
- Function ListView_GetCountPerPage( hwndLV : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwndLV), LVM_GETCOUNTPERPAGE, 0, 0))
- end;
- // Macro 81
- //
- // #define ListView_GetOrigin(hwndLV, ppt) \
- // (BOOL)SNDMSG((hwndLV), LVM_GETORIGIN, (WPARAM)0, (LPARAM)(POINT *)(ppt))
- Function ListView_GetOrigin( hwndLV : hwnd;var ppt : POINT ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_GETORIGIN, WPARAM(0), Longint(@ppt)))
- end;
- // Macro 82
- // #define ListView_Update(hwndLV, i) \
- // (BOOL)SNDMSG((hwndLV), LVM_UPDATE, (WPARAM)(i), DWord(0))
- Function ListView_Update( hwndLV : hwnd; i : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_UPDATE, (i), DWord(0)))
- end;
- // Macro 83
- // #define ListView_SetItemState(hwndLV, i, data, mask) \
- // { LV_ITEM _ms_lvi;\
- // _ms_lvi.stateMask = mask;\
- // _ms_lvi.state = data;\
- // SNDMSG((hwndLV), LVM_SETITEMSTATE, (WPARAM)(i), (LPARAM)(LV_ITEM *)&_ms_lvi);\
- // }
- Procedure ListView_SetItemState(hwndLV :hwnd; i :cint ;data,mask:UINT);
- Var _ms_lvi : LV_ITEM;
- Begin
- _ms_lvi.stateMask:=mask;
- _ms_lvi.state:=data;
- SendMessage(hwndLV, LVM_SETITEMSTATE, i,longint(@_ms_lvi));
- end;
- // Macro 84
- // #define ListView_SetCheckState(hwndLV, i, fCheck) \
- // ListView_SetItemState(hwndLV, i, INDEXTOSTATEIMAGEMASK((fCheck)?2:1), LVIS_STATEIMAGEMASK)
- Procedure ListView_SetCheckState( hwndLV : hwnd; i : cint ; fCheck : BOOL );
- var j:longint;
- Begin
- IF not fCheck Then // (or inc(longint(fCheck)) if you like it dirty)
- j:=1
- Else
- j:=2;
- ListView_SetItemState(hwndLV, i, INDEXTOSTATEIMAGEMASK(j), LVIS_STATEIMAGEMASK);
- end;
- // Macro 85
- // #define ListView_GetItemState(hwndLV, i, mask) \
- // (UINT)SNDMSG((hwndLV), LVM_GETITEMSTATE, (WPARAM)(i), (LPARAM)(mask))
- Function ListView_GetItemState( hwndLV : hwnd; i : WPARAM; mask : LPARAM):UINT;
- Begin
- Result:=UINT(SendMessage((hwndLV), LVM_GETITEMSTATE, (i), mask))
- end;
- // Macro 86
- // #define ListView_GetCheckState(hwndLV, i) \
- // ((((UINT)(SNDMSG((hwndLV), LVM_GETITEMSTATE, (WPARAM)(i), LVIS_STATEIMAGEMASK))) >> 12) -1)
- Function ListView_GetCheckState( hwndLV : hwnd; i : WPARAM):UINT;
- Begin
- Result:=(SendMessage((hwndLV), LVM_GETITEMSTATE, (i), LVIS_STATEIMAGEMASK) shl 12) -1;
- end;
- // Macro 87
- // #define ListView_GetItemText(hwndLV, i, iSubItem_, pszText_, cchTextMax_) \
- // { LV_ITEM _ms_lvi;\
- // _ms_lvi.iSubItem = iSubItem_;\
- // _ms_lvi.cchTextMax = cchTextMax_;\
- // _ms_lvi.pszText = pszText_;\
- // SNDMSG((hwndLV), LVM_GETITEMTEXT, (WPARAM)(i), (LPARAM)(LV_ITEM *)&_ms_lvi);\
- // }
- Procedure ListView_GetItemText(hwndLV:hwnd; i : WPARAM ;iSubItem : cint ;pszText : Pointer;cchTextMax :cint);
- Var _ms_lvi : LV_ITEM;
- Begin
- _ms_lvi.iSubItem := iSubItem;
- _ms_lvi.cchTextMax := cchTextMax;
- _ms_lvi.pszText := pszText; // unicode dependant!
- SendMessage(hwndLV, LVM_GETITEMTEXT, i, LPARAM(@_ms_LVI));
- end;
- // Macro 88
- // #define ListView_SetItemText(hwndLV, i, iSubItem_, pszText_) \
- // { LV_ITEM _ms_lvi;\
- // _ms_lvi.iSubItem = iSubItem_;\
- // _ms_lvi.pszText = pszText_;\
- // SNDMSG((hwndLV), LVM_SETITEMTEXT, (WPARAM)(i), (LPARAM)(LV_ITEM *)&_ms_lvi);\
- // }
- Procedure ListView_SetItemText(hwndLV:hwnd; i : WPARAM ;iSubItem : cint ;pszText : Pointer);
- Var _ms_lvi : LV_ITEM;
- Begin
- _ms_lvi.iSubItem := iSubItem;
- _ms_lvi.pszText := pszText; // unicode dependant!
- SendMessage(hwndLV, LVM_SETITEMTEXT, i, LPARAM(@_ms_lvi));
- End;
- // Macro 89
- // #define ListView_SetItemCount(hwndLV, cItems) \
- // SNDMSG((hwndLV), LVM_SETITEMCOUNT, (WPARAM)(cItems), 0)
- Procedure ListView_SetItemCount( hwndLV : hwnd; cItems : WPARAM);
- Begin
- SendMessage((hwndLV), LVM_SETITEMCOUNT, cItems, 0)
- end;
- // Macro 90
- // #define ListView_SetItemCountEx(hwndLV, cItems, dwFlags) \
- // SNDMSG((hwndLV), LVM_SETITEMCOUNT, (WPARAM)(cItems), (LPARAM)(dwFlags))
- Procedure ListView_SetItemCountEx( hwndLV : hwnd; cItems : WPARAM; dwFlags : LPARAM);
- Begin
- SendMessage((hwndLV), LVM_SETITEMCOUNT, cItems, dwFlags)
- end;
- // Macro 91
- // #define ListView_SortItems(hwndLV, _pfnCompare, _lPrm) \
- // (BOOL)SNDMSG((hwndLV), LVM_SORTITEMS, (WPARAM)(LPARAM)(_lPrm), \
- // (LPARAM)(PFNLVCOMPARE)(_pfnCompare))
- Function ListView_SortItems( hwndLV : hwnd;pfnCompare : PFNLVCOMPARE; lPrm : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_SORTITEMS, lPrm, LPARAM(@pfncompare)));
- end;
- // Macro 92
- // #define ListView_SetItemPosition32(hwndLV, i, x0, y0) \
- // { POINT ptNewPos; \
- // ptNewPos.x = x0; ptNewPos.y = y0; \
- // SNDMSG((hwndLV), LVM_SETITEMPOSITION32, (WPARAM)(int)(i), (LPARAM)&ptNewPos); \
- // }
- Procedure ListView_SetItemPosition32(hwndLV:hwnd; i:cint;x0,y0:long);
- Var ptNewPos:POINT;
- Begin
- ptNewPos.X:=x0; ptNewPos.Y:=y0;
- SendMessage(hwndlv, LVM_SETITEMPOSITION32, I,Longint(@ptNewPos));
- end;
- // Macro 93
- // #define ListView_GetSelectedCount(hwndLV) \
- // (UINT)SNDMSG((hwndLV), LVM_GETSELECTEDCOUNT, 0, DWord(0))
- Function ListView_GetSelectedCount( hwndLV : hwnd):UINT;
- Begin
- Result:=SendMessage(hwndLV, LVM_GETSELECTEDCOUNT, 0, DWord(0));
- end;
- // Macro 94
- // #define ListView_GetItemSpacing(hwndLV, fSmall) \
- // (DWORD)SNDMSG((hwndLV), LVM_GETITEMSPACING, fSmall, DWord(0))
- Function ListView_GetItemSpacing( hwndLV : hwnd; fSmall : cint ):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwndLV), LVM_GETITEMSPACING, fSmall, DWord(0)));
- end;
- // Macro 95
- // #define ListView_GetISearchString(hwndLV, lpsz) \
- // (BOOL)SNDMSG((hwndLV), LVM_GETISEARCHSTRING, 0, (LPARAM)(LPTSTR)(lpsz))
- Function ListView_GetISearchString( hwndLV : hwnd; lpsz : LPTSTR):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_GETISEARCHSTRING, 0, LPARAM(lpsz)))
- end;
- // Macro 96
- // #define ListView_SetIconSpacing(hwndLV, cx, cy) \
- // (DWORD)SNDMSG((hwndLV), LVM_SETICONSPACING, 0, MAKELONG(cx,cy))
- Function ListView_SetIconSpacing( hwndLV : hwnd; cx,cy : cint ):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwndLV), LVM_SETICONSPACING, 0, MAKELONG(cx,cy)))
- end;
- // Macro 97
- // #define ListView_SetExtendedListViewStyle(hwndLV, dw)\
- // (DWORD)SNDMSG((hwndLV), LVM_SETEXTENDEDLISTVIEWSTYLE, 0, dw)
- Function ListView_SetExtendedListViewStyle( hwndLV : hwnd; dw :cint ):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwndLV), LVM_SETEXTENDEDLISTVIEWSTYLE, 0, dw))
- end;
- // Macro 98
- // #define ListView_SetExtendedListViewStyleEx(hwndLV, dwMask, dw)\
- // (DWORD)SNDMSG((hwndLV), LVM_SETEXTENDEDLISTVIEWSTYLE, dwMask, dw)
- Function ListView_SetExtendedListViewStyleEx( hwndLV : hwnd; dwMask, dw : cint ):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwndLV), LVM_SETEXTENDEDLISTVIEWSTYLE, dwMask, dw))
- end;
- // Macro 99
- // #define ListView_GetExtendedListViewStyle(hwndLV)\
- // (DWORD)SNDMSG((hwndLV), LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
- Function ListView_GetExtendedListViewStyle( hwndLV : hwnd):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwndLV), LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0))
- end;
- // Macro 100
- // #define ListView_GetSubItemRect(hwnd, iItem, iSubItem, code, prc) \
- // (BOOL)SNDMSG((hwnd), LVM_GETSUBITEMRECT, (WPARAM)(int)(iItem), \
- // ((prc) ? ((((LPRECT)(prc))->top = iSubItem), (((LPRECT)(prc))->left = code), (LPARAM)(prc)) : (LPARAM)(LPRECT)NULL))
- Function ListView_GetSubItemRect( hwnd : hwnd; iItem : cint;iSubItem, code :cint ;prc:LPRECT):BOOL;
- VAR LastParam : LPRECT;
- Begin
- if prc<>nil then
- begin
- prc^.top:=iSubItem;
- prc^.left:=code;
- lastparam:=prc;
- end
- else
- lastparam:=nil;
- Result:=bool(SendMessage((hwnd), LVM_GETSUBITEMRECT, iItem, LPARAM(lastparam)));
- End;
- // Macro 101
- // #define ListView_SubItemHitTest(hwnd, plvhti) \
- // (int)SNDMSG((hwnd), LVM_SUBITEMHITTEST, 0, (LPARAM)(LPLVHITTESTINFO)(plvhti))
- Function ListView_SubItemHitTest( hwnd : hwnd; plvhti : LPLVHITTESTINFO):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_SUBITEMHITTEST, 0, LParam(plvhti)))
- end;
- // Macro 102
- // #define ListView_SetColumnOrderArray(hwnd, iCount, pi) \
- // (BOOL)SNDMSG((hwnd), LVM_SETCOLUMNORDERARRAY, (WPARAM)(iCount), (LPARAM)(LPINT)(pi))
- Function ListView_SetColumnOrderArray( hwnd : hwnd; iCount : WPARAM; pi : LPINT):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETCOLUMNORDERARRAY, iCount, LPARAM(pi)));
- end;
- // Macro 103
- // #define ListView_GetColumnOrderArray(hwnd, iCount, pi) \
- // (BOOL)SNDMSG((hwnd), LVM_GETCOLUMNORDERARRAY, (WPARAM)(iCount), (LPARAM)(LPINT)(pi))
- Function ListView_GetColumnOrderArray( hwnd : hwnd; iCount : WPARAM; pi : LPINT):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETCOLUMNORDERARRAY, iCount, LPARAM(pi)))
- end;
- // Macro 104
- // #define ListView_SetHotItem(hwnd, i) \
- // (int)SNDMSG((hwnd), LVM_SETHOTITEM, (WPARAM)(i), 0)
- Function ListView_SetHotItem( hwnd : hwnd; i : WPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_SETHOTITEM, (i), 0))
- end;
- // Macro 105
- // #define ListView_GetHotItem(hwnd) \
- // (int)SNDMSG((hwnd), LVM_GETHOTITEM, 0, 0)
- Function ListView_GetHotItem( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_GETHOTITEM, 0, 0))
- end;
- // Macro 106
- // #define ListView_SetHotCursor(hwnd, hcur) \
- // (HCURSOR)SNDMSG((hwnd), LVM_SETHOTCURSOR, 0, (LPARAM)(hcur))
- Function ListView_SetHotCursor( hwnd : hwnd; hcur : LPARAM):HCURSOR;
- Begin
- Result:=HCURSOR(SendMessage((hwnd), LVM_SETHOTCURSOR, 0, hcur))
- end;
- // Macro 107
- // #define ListView_GetHotCursor(hwnd) \
- // (HCURSOR)SNDMSG((hwnd), LVM_GETHOTCURSOR, 0, 0)
- Function ListView_GetHotCursor( hwnd : hwnd):HCURSOR;
- Begin
- Result:=HCURSOR(SendMessage((hwnd), LVM_GETHOTCURSOR, 0, 0))
- end;
- // Macro 108
- // #define ListView_ApproximateViewRect(hwnd, iWidth, iHeight, iCount) \
- // (DWORD)SNDMSG((hwnd), LVM_APPROXIMATEVIEWRECT, iCount, MAKELPARAM(iWidth, iHeight))
- Function ListView_ApproximateViewRect( hwnd : hwnd; iWidth, iHeight, iCount : cint ):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwnd), LVM_APPROXIMATEVIEWRECT, iCount, MAKELPARAM(iWidth, iHeight)));
- end;
- // Macro 109
- // #define ListView_SetWorkAreas(hwnd, nWorkAreas, prc) \
- // (BOOL)SNDMSG((hwnd), LVM_SETWORKAREAS, (WPARAM)(int)(nWorkAreas), (LPARAM)(RECT *)(prc))
- Function ListView_SetWorkAreas( hwnd : hwnd; nWorkAreas : cint;var prc : RECT ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETWORKAREAS, nWorkAreas, Longint(@prc)))
- end;
- // Macro 110
- // #define ListView_GetWorkAreas(hwnd, nWorkAreas, prc) \
- // (BOOL)SNDMSG((hwnd), LVM_GETWORKAREAS, (WPARAM)(int)(nWorkAreas), (LPARAM)(RECT *)(prc))
- Function ListView_GetWorkAreas( hwnd : hwnd; nWorkAreas : cint;var prc : RECT ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETWORKAREAS, nWorkAreas, Longint(@prc)))
- end;
- // Macro 111
- // #define ListView_GetNumberOfWorkAreas(hwnd, pnWorkAreas) \
- // (BOOL)SNDMSG((hwnd), LVM_GETNUMBEROFWORKAREAS, 0, (LPARAM)(UINT *)(pnWorkAreas))
- Function ListView_GetNumberOfWorkAreas( hwnd : hwnd;var pnWorkAreas : UINT ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETNUMBEROFWORKAREAS, 0, Longint(@pnWorkAreas)))
- end;
- // Macro 112
- // #define ListView_GetSelectionMark(hwnd) \
- // (int)SNDMSG((hwnd), LVM_GETSELECTIONMARK, 0, 0)
- Function ListView_GetSelectionMark( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_GETSELECTIONMARK, 0, 0))
- end;
- // Macro 113
- // #define ListView_SetSelectionMark(hwnd, i) \
- // (int)SNDMSG((hwnd), LVM_SETSELECTIONMARK, 0, (LPARAM)(i))
- Function ListView_SetSelectionMark( hwnd : hwnd; i : LPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_SETSELECTIONMARK, 0, (i)))
- end;
- // Macro 114
- // #define ListView_SetHoverTime(hwndLV, dwHoverTimeMs)\
- // (DWORD)SNDMSG((hwndLV), LVM_SETHOVERTIME, 0, (LPARAM)(dwHoverTimeMs))
- Function ListView_SetHoverTime( hwndLV : hwnd; dwHoverTimeMs : LPARAM):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwndLV), LVM_SETHOVERTIME, 0, dwHoverTimeMs))
- end;
- // Macro 115
- // #define ListView_GetHoverTime(hwndLV)\
- // (DWORD)SNDMSG((hwndLV), LVM_GETHOVERTIME, 0, 0)
- Function ListView_GetHoverTime( hwndLV : hwnd):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwndLV), LVM_GETHOVERTIME, 0, 0))
- end;
- // Macro 116
- // #define ListView_SetToolTips(hwndLV, hwndNewHwnd)\
- // (HWND)SNDMSG((hwndLV), LVM_SETTOOLTIPS, (WPARAM)(hwndNewHwnd), 0)
- Function ListView_SetToolTips( hwndLV : hwnd; hwndNewHwnd : WPARAM):HWND;
- Begin
- Result:=HWND(SendMessage((hwndLV), LVM_SETTOOLTIPS, hwndNewHwnd, 0))
- end;
- // Macro 117
- // #define ListView_GetToolTips(hwndLV)\
- // (HWND)SNDMSG((hwndLV), LVM_GETTOOLTIPS, 0, 0)
- Function ListView_GetToolTips( hwndLV : hwnd):HWND;
- Begin
- Result:=HWND(SendMessage((hwndLV), LVM_GETTOOLTIPS, 0, 0))
- end;
- // Macro 118
- // #define ListView_SortItemsEx(hwndLV, _pfnCompare, _lPrm) \
- // (BOOL)SNDMSG((hwndLV), LVM_SORTITEMSEX, (WPARAM)(LPARAM)(_lPrm), (LPARAM)(PFNLVCOMPARE)(_pfnCompare))
- Function ListView_SortItemsEx( hwndLV : hwnd; _pfnCompare : PFNLVCOMPARE; _lPrm : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_SORTITEMSEX, _lPrm, LPAram(@_pfnCompare)))
- end;
- {$ifdef win32xp}
- // Macro 119
- // #define ListView_SetSelectedColumn(hwnd, iCol) \
- // SNDMSG((hwnd), LVM_SETSELECTEDCOLUMN, (WPARAM)iCol, 0)
- Procedure ListView_SetSelectedColumn( hwnd : hwnd; iCol : WPARAM);
- Begin
- SendMessage((hwnd), LVM_SETSELECTEDCOLUMN, iCol, 0)
- end;
- // Macro 120
- // #define ListView_SetTileWidth(hwnd, cpWidth) \
- // SNDMSG((hwnd), LVM_SETTILEWIDTH, (WPARAM)cpWidth, 0)
- Procedure ListView_SetTileWidth( hwnd : hwnd; cpWidth : WPARAM);
- Begin
- SendMessage((hwnd), LVM_SETTILEWIDTH, cpWidth, 0)
- end;
- // Macro 121
- // #define ListView_SetView(hwnd, iView) \
- // (DWORD)SNDMSG((hwnd), LVM_SETVIEW, (WPARAM)(DWORD)iView, 0)
- Function ListView_SetView( hwnd : hwnd; iView : DWORD):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwnd), LVM_SETVIEW, iView, 0))
- end;
- // Macro 122
- // #define ListView_GetView(hwnd) \
- // (DWORD)SNDMSG((hwnd), LVM_GETVIEW, 0, 0)
- Function ListView_GetView( hwnd : hwnd):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwnd), LVM_GETVIEW, 0, 0))
- end;
- // Macro 123
- // #define ListView_InsertGroup(hwnd, index, pgrp) \
- // SNDMSG((hwnd), LVM_INSERTGROUP, (WPARAM)index, (LPARAM)pgrp)
- Procedure ListView_InsertGroup( hwnd : hwnd; index : WPARAM; pgrp : LPARAM);
- Begin
- SendMessage((hwnd), LVM_INSERTGROUP, index, pgrp)
- end;
- // Macro 124
- // #define ListView_SetGroupInfo(hwnd, iGroupId, pgrp) \
- // SNDMSG((hwnd), LVM_SETGROUPINFO, (WPARAM)iGroupId, (LPARAM)pgrp)
- Procedure ListView_SetGroupInfo( hwnd : hwnd; iGroupId : WPARAM; pgrp : LPARAM);
- Begin
- SendMessage((hwnd), LVM_SETGROUPINFO, iGroupId, pgrp)
- end;
- // Macro 125
- // #define ListView_GetGroupInfo(hwnd, iGroupId, pgrp) \
- // SNDMSG((hwnd), LVM_GETGROUPINFO, (WPARAM)iGroupId, (LPARAM)pgrp)
- Procedure ListView_GetGroupInfo( hwnd : hwnd; iGroupId : WPARAM; pgrp : LPARAM);
- Begin
- SendMessage((hwnd), LVM_GETGROUPINFO, iGroupId, pgrp)
- end;
- // Macro 126
- // #define ListView_RemoveGroup(hwnd, iGroupId) \
- // SNDMSG((hwnd), LVM_REMOVEGROUP, (WPARAM)iGroupId, 0)
- Procedure ListView_RemoveGroup( hwnd : hwnd; iGroupId : WPARAM);
- Begin
- SendMessage((hwnd), LVM_REMOVEGROUP, iGroupId, 0)
- end;
- // Macro 127
- // #define ListView_MoveGroup(hwnd, iGroupId, toIndex) \
- // SNDMSG((hwnd), LVM_MOVEGROUP, (WPARAM)iGroupId, (LPARAM)toIndex)
- Procedure ListView_MoveGroup( hwnd : hwnd; iGroupId : WPARAM; toIndex : LPARAM);
- Begin
- SendMessage((hwnd), LVM_MOVEGROUP, iGroupId, toIndex)
- end;
- // Macro 128
- // #define ListView_MoveItemToGroup(hwnd, idItemFrom, idGroupTo) \
- // SNDMSG((hwnd), LVM_MOVEITEMTOGROUP, (WPARAM)idItemFrom, (LPARAM)idGroupTo)
- Procedure ListView_MoveItemToGroup( hwnd : hwnd; idItemFrom : WPARAM; idGroupTo : LPARAM);
- Begin
- SendMessage((hwnd), LVM_MOVEITEMTOGROUP, idItemFrom, idGroupTo)
- end;
- // Macro 129
- // #define ListView_SetGroupMetrics(hwnd, pGroupMetrics) \
- // SNDMSG((hwnd), LVM_SETGROUPMETRICS, 0, (LPARAM)pGroupMetrics)
- Procedure ListView_SetGroupMetrics( hwnd : hwnd; pGroupMetrics : LPARAM);
- Begin
- SendMessage((hwnd), LVM_SETGROUPMETRICS, 0, pGroupMetrics)
- end;
- // Macro 130
- // #define ListView_GetGroupMetrics(hwnd, pGroupMetrics) \
- // SNDMSG((hwnd), LVM_GETGROUPMETRICS, 0, (LPARAM)pGroupMetrics)
- Procedure ListView_GetGroupMetrics( hwnd : hwnd; pGroupMetrics : LPARAM);
- Begin
- SendMessage((hwnd), LVM_GETGROUPMETRICS, 0, pGroupMetrics)
- end;
- // Macro 131
- // #define ListView_EnableGroupView(hwnd, fEnable) \
- // SNDMSG((hwnd), LVM_ENABLEGROUPVIEW, (WPARAM)fEnable, 0)
- Procedure ListView_EnableGroupView( hwnd : hwnd; fEnable : WPARAM);
- Begin
- SendMessage((hwnd), LVM_ENABLEGROUPVIEW, fEnable, 0)
- end;
- // Macro 132
- // #define ListView_SortGroups(hwnd, _pfnGroupCompate, _plv) \
- // SNDMSG((hwnd), LVM_SORTGROUPS, (WPARAM)_pfnGroupCompate, (LPARAM)_plv)
- Procedure ListView_SortGroups( hwnd : hwnd; _pfnGroupCompate : WPARAM; _plv : LPARAM);
- Begin
- SendMessage((hwnd), LVM_SORTGROUPS, _pfnGroupCompate, _plv)
- end;
- // Macro 133
- // #define ListView_InsertGroupSorted(hwnd, structInsert) \
- // SNDMSG((hwnd), LVM_INSERTGROUPSORTED, (WPARAM)structInsert, 0)
- Procedure ListView_InsertGroupSorted( hwnd : hwnd; structInsert : WPARAM);
- Begin
- SendMessage((hwnd), LVM_INSERTGROUPSORTED, structInsert, 0)
- end;
- // Macro 134
- // #define ListView_RemoveAllGroups(hwnd) \
- // SNDMSG((hwnd), LVM_REMOVEALLGROUPS, 0, 0)
- Procedure ListView_RemoveAllGroups( hwnd : hwnd);
- Begin
- SendMessage((hwnd), LVM_REMOVEALLGROUPS, 0, 0)
- end;
- // Macro 135
- // #define ListView_HasGroup(hwnd, dwGroupId) \
- // SNDMSG((hwnd), LVM_HASGROUP, dwGroupId, 0)
- Procedure ListView_HasGroup( hwnd : hwnd; dwGroupId :DWORD );
- Begin
- SendMessage((hwnd), LVM_HASGROUP, dwGroupId, 0)
- end;
- // Macro 136
- // #define ListView_SetTileViewInfo(hwnd, ptvi) \
- // SNDMSG((hwnd), LVM_SETTILEVIEWINFO, 0, (LPARAM)ptvi)
- Procedure ListView_SetTileViewInfo( hwnd : hwnd; ptvi : LPARAM);
- Begin
- SendMessage((hwnd), LVM_SETTILEVIEWINFO, 0, ptvi)
- end;
- // Macro 137
- // #define ListView_GetTileViewInfo(hwnd, ptvi) \
- // SNDMSG((hwnd), LVM_GETTILEVIEWINFO, 0, (LPARAM)ptvi)
- Procedure ListView_GetTileViewInfo( hwnd : hwnd; ptvi : LPARAM);
- Begin
- SendMessage((hwnd), LVM_GETTILEVIEWINFO, 0, ptvi)
- end;
- // Macro 138
- // #define ListView_SetTileInfo(hwnd, pti) \
- // SNDMSG((hwnd), LVM_SETTILEINFO, 0, (LPARAM)pti)
- Procedure ListView_SetTileInfo( hwnd : hwnd; pti : LPARAM);
- Begin
- SendMessage((hwnd), LVM_SETTILEINFO, 0, pti)
- end;
- // Macro 139
- // #define ListView_GetTileInfo(hwnd, pti) \
- // SNDMSG((hwnd), LVM_GETTILEINFO, 0, (LPARAM)pti)
- Procedure ListView_GetTileInfo( hwnd : hwnd; pti : LPARAM);
- Begin
- SendMessage((hwnd), LVM_GETTILEINFO, 0, pti)
- end;
- // Macro 140
- // #define ListView_SetInsertMark(hwnd, lvim) \
- // (BOOL)SNDMSG((hwnd), LVM_SETINSERTMARK, (WPARAM) 0, (LPARAM) (lvim))
- Function ListView_SetInsertMark( hwnd : hwnd; lvim : lparam ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETINSERTMARK, 0, lvim));
- end;
- // Macro 141
- // #define ListView_GetInsertMark(hwnd, lvim) \
- // (BOOL)SNDMSG((hwnd), LVM_GETINSERTMARK, (WPARAM) 0, (LPARAM) (lvim))
- Function ListView_GetInsertMark( hwnd : hwnd; lvim : lparam ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETINSERTMARK, WPARAM (0), LPARAM (lvim)));
- end;
- // Macro 142
- // #define ListView_InsertMarkHitTest(hwnd, point, lvim) \
- // (int)SNDMSG((hwnd), LVM_INSERTMARKHITTEST, (WPARAM)(LPPOINT)(point), (LPARAM)(LPLVINSERTMARK)(lvim))
- Function ListView_InsertMarkHitTest( hwnd : hwnd; point : LPPOINT; lvim : LPLVINSERTMARK):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_INSERTMARKHITTEST, wparam(point), lparam(lvim)));
- end;
- // Macro 143
- // #define ListView_GetInsertMarkRect(hwnd, rc) \
- // (int)SNDMSG((hwnd), LVM_GETINSERTMARKRECT, (WPARAM)0, (LPARAM)(LPRECT)(rc))
- Function ListView_GetInsertMarkRect( hwnd : hwnd; rc : LPRECT):cint;
- Begin
- Result:=cint(SendMessage((hwnd), LVM_GETINSERTMARKRECT, WPARAM(0), LPARAM(rc)))
- end;
- // Macro 144
- // #define ListView_SetInsertMarkColor(hwnd, color) \
- // (COLORREF)SNDMSG((hwnd), LVM_SETINSERTMARKCOLOR, (WPARAM)0, (LPARAM)(COLORREF)(color))
- Function ListView_SetInsertMarkColor( hwnd : hwnd; color : COLORREF):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), LVM_SETINSERTMARKCOLOR, WPARAM(0), color));
- end;
- // Macro 145
- // #define ListView_GetInsertMarkColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), LVM_GETINSERTMARKCOLOR, (WPARAM)0, (LPARAM)0)
- Function ListView_GetInsertMarkColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), LVM_GETINSERTMARKCOLOR, WPARAM(0), LPARAM(0)));
- end;
- // Macro 146
- // #define ListView_SetInfoTip(hwndLV, plvInfoTip)\
- // (BOOL)SNDMSG((hwndLV), LVM_SETINFOTIP, (WPARAM)0, (LPARAM)plvInfoTip)
- Function ListView_SetInfoTip( hwndLV : hwnd; plvInfoTip : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndLV), LVM_SETINFOTIP, WPARAM(0), plvInfoTip));
- end;
- // Macro 147
- // #define ListView_GetSelectedColumn(hwnd) \
- // (UINT)SNDMSG((hwnd), LVM_GETSELECTEDCOLUMN, 0, 0)
- Function ListView_GetSelectedColumn( hwnd : hwnd):UINT;
- Begin
- Result:=UINT(SendMessage((hwnd), LVM_GETSELECTEDCOLUMN, 0, 0));
- end;
- // Macro 148
- // #define ListView_IsGroupViewEnabled(hwnd) \
- // (BOOL)SNDMSG((hwnd), LVM_ISGROUPVIEWENABLED, 0, 0)
- Function ListView_IsGroupViewEnabled( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_ISGROUPVIEWENABLED, 0, 0));
- end;
- // Macro 149
- // #define ListView_GetOutlineColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), LVM_GETOUTLINECOLOR, 0, 0)
- Function ListView_GetOutlineColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), LVM_GETOUTLINECOLOR, 0, 0));
- end;
- // Macro 150
- // #define ListView_SetOutlineColor(hwnd, color) \
- // (COLORREF)SNDMSG((hwnd), LVM_SETOUTLINECOLOR, (WPARAM)0, (LPARAM)(COLORREF)(color))
- Function ListView_SetOutlineColor( hwnd : hwnd; color : COLORREF):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), LVM_SETOUTLINECOLOR, WPARAM(0), color));
- end;
- // Macro 151
- // #define ListView_CancelEditLabel(hwnd) \
- // (VOID)SNDMSG((hwnd), LVM_CANCELEDITLABEL, (WPARAM)0, (LPARAM)0)
- procedure ListView_CancelEditLabel( hwnd : hwnd);
- Begin
- SendMessage((hwnd), LVM_CANCELEDITLABEL, WPARAM(0), LPARAM(0));
- end;
- // Macro 152
- // #define ListView_MapIndexToID(hwnd, index) \
- // (UINT)SNDMSG((hwnd), LVM_MAPINDEXTOID, (WPARAM)index, (LPARAM)0)
- Function ListView_MapIndexToID( hwnd : hwnd; index : WPARAM):UINT;
- Begin
- Result:=UINT(SendMessage((hwnd), LVM_MAPINDEXTOID, index, LPARAM(0)));
- end;
- // Macro 153
- // #define ListView_MapIDToIndex(hwnd, id) \
- // (UINT)SNDMSG((hwnd), LVM_MAPIDTOINDEX, (WPARAM)id, (LPARAM)0)
- Function ListView_MapIDToIndex( hwnd : hwnd; id : WPARAM):UINT;
- Begin
- Result:=UINT(SendMessage((hwnd), LVM_MAPIDTOINDEX, id, LPARAM(0)));
- end;
- {$ENDIF}
- // Macro 154
- // #define ListView_SetBkImage(hwnd, plvbki) \
- // (BOOL)SNDMSG((hwnd), LVM_SETBKIMAGE, 0, (LPARAM)(plvbki))
- Function ListView_SetBkImage( hwnd : hwnd; plvbki : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_SETBKIMAGE, 0, plvbki));
- end;
- // Macro 155
- // #define ListView_GetBkImage(hwnd, plvbki) \
- // (BOOL)SNDMSG((hwnd), LVM_GETBKIMAGE, 0, (LPARAM)(plvbki))
- Function ListView_GetBkImage( hwnd : hwnd; plvbki : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), LVM_GETBKIMAGE, 0, plvbki));
- end;
- // Macro 156
- // #define TreeView_InsertItem(hwnd, lpis) \
- // (HTREEITEM)SNDMSG((hwnd), TVM_INSERTITEM, 0, (LPARAM)(LPTV_INSERTSTRUCT)(lpis))
- Function TreeView_InsertItem( hwnd : hwnd; lpis : LPTV_INSERTSTRUCT):HTREEITEM;
- Begin
- Result:=HTREEITEM(SendMessage((hwnd), TVM_INSERTITEM, 0, LPARAM(lpis)));
- end;
- // Macro 157
- // #define TreeView_DeleteItem(hwnd, hitem) \
- // (BOOL)SNDMSG((hwnd), TVM_DELETEITEM, 0, (LPARAM)(HTREEITEM)(hitem))
- Function TreeView_DeleteItem( hwnd : hwnd; hitem : HTREEITEM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_DELETEITEM, 0, LPARAM(hitem)));
- end;
- // Macro 158
- // #define TreeView_DeleteAllItems(hwnd) \
- // (BOOL)SNDMSG((hwnd), TVM_DELETEITEM, 0, (LPARAM)TVI_ROOT)
- Function TreeView_DeleteAllItems( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_DELETEITEM, 0, LPARAM(HTREEITEM(TVI_ROOT))));
- end;
- // Macro 159
- // #define TreeView_Expand(hwnd, hitem, code) \
- // (BOOL)SNDMSG((hwnd), TVM_EXPAND, (WPARAM)(code), (LPARAM)(HTREEITEM)(hitem))
- Function TreeView_Expand( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_EXPAND, code, lparam(hitem)))
- end;
- // Macro 160
- // #define TreeView_GetItemRect(hwnd, hitem, prc, code) \
- // (*(HTREEITEM *)prc = (hitem), (BOOL)SNDMSG((hwnd), TVM_GETITEMRECT, (WPARAM)(code), (LPARAM)(RECT *)(prc)))
- Function TreeView_GetItemRect( hwnd : hwnd; hitem: TREEITEM; code : WPARAM; prc : pRECT):BOOL;
- Begin
- HTREEITEM(prc)^:=HITEM;
- Result:=Bool(SendMessage((hwnd), TVM_GETITEMRECT, code, longint(prc)));
- end;
- // Macro 161
- // #define TreeView_GetCount(hwnd) \
- // (UINT)SNDMSG((hwnd), TVM_GETCOUNT, 0, 0)
- Function TreeView_GetCount( hwnd : hwnd):UINT;
- Begin
- Result:=UINT(SendMessage((hwnd), TVM_GETCOUNT, 0, 0))
- end;
- // Macro 162
- // #define TreeView_GetIndent(hwnd) \
- // (UINT)SNDMSG((hwnd), TVM_GETINDENT, 0, 0)
- Function TreeView_GetIndent( hwnd : hwnd):UINT;
- Begin
- Result:=UINT(SendMessage((hwnd), TVM_GETINDENT, 0, 0))
- end;
- // Macro 163
- // #define TreeView_SetIndent(hwnd, indent) \
- // (BOOL)SNDMSG((hwnd), TVM_SETINDENT, (WPARAM)(indent), 0)
- Function TreeView_SetIndent( hwnd : hwnd; indent : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_SETINDENT, indent, 0))
- end;
- // Macro 164
- // #define TreeView_GetImageList(hwnd, iImage) \
- // (HIMAGELIST)SNDMSG((hwnd), TVM_GETIMAGELIST, iImage, 0)
- Function TreeView_GetImageList( hwnd : hwnd; iImage : cint ):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), TVM_GETIMAGELIST, iImage, 0))
- end;
- // Macro 165
- // #define TreeView_SetImageList(hwnd, himl, iImage) \
- // (HIMAGELIST)SNDMSG((hwnd), TVM_SETIMAGELIST, iImage, (LPARAM)(HIMAGELIST)(himl))
- Function TreeView_SetImageList( hwnd : hwnd; himl : HIMAGELIST; iImage : cint ):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), TVM_SETIMAGELIST, iImage, himl))
- end;
- // Macro 166
- // #define TreeView_GetNextItem(hwnd, hitem, code) \
- // (HTREEITEM)SNDMSG((hwnd), TVM_GETNEXTITEM, (WPARAM)(code), (LPARAM)(HTREEITEM)(hitem))
- Function TreeView_GetNextItem( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):HTREEITEM;
- Begin
- Result:=HTREEITEM(SendMessage((hwnd), TVM_GETNEXTITEM, code, lparam(hitem)))
- end;
- // Macro 167
- procedure TreeView_GetChild(hwnd:hwnd; hitem:HTREEITEM);
- Begin
- TreeView_GetNextItem(hwnd, hitem, TVGN_CHILD)
- End;
- // Macro 168
- // #define TreeView_GetNextSibling(hwnd:hwnd; hitem:HTREEITEM);
- // (hwnd, hitem)
- // TreeView_GetNextItem(hwnd, hitem, TVGN_NEXT)
- procedure TreeView_GetNextSibling(hwnd:hwnd; hitem:HTREEITEM);
- // (hwnd, hitem)
- // TreeView_GetNextItem(hwnd, hitem, TVGN_NEXT)
- Begin
- TreeView_getNextItem(hwnd,hitem,TVGN_NEXT);
- end;
- // Macro 169
- Procedure TreeView_GetPrevSibling(hwnd:hwnd; hitem:HTREEITEM);
- begin
- TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUS);
- end;
- // Macro 170
- procedure TreeView_GetParent(hwnd:hwnd; hitem:HTREEITEM);
- begin
- TreeView_GetNextItem(hwnd, hitem, TVGN_PARENT)
- end;
- // Macro 171
- // #define TreeView_GetFirstVisible(hwnd:hwnd);
- // TreeView_GetNextItem(hwnd, NULL, TVGN_FIRSTVISIBLE)
- Procedure TreeView_GetFirstVisible(hwnd:hwnd);
- begin
- TreeView_GetNextItem(hwnd, NIL, TVGN_FIRSTVISIBLE)
- end;
- // Macro 172
- //#define TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM);
- //(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE)
- Procedure TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM);
- begin
- TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE)
- end;
- // Macro 173
- //#define TreeView_GetPrevVisible(hwnd:hwnd; hitem:HTREEITEM);
- // (hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE)
- Procedure TreeView_GetPrevVisible(hwnd:hwnd; hitem:HTREEITEM);
- Begin
- TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE)
- end;
- // Macro 174
- Procedure TreeView_GetSelection(hwnd:hwnd);
- begin
- TreeView_GetNextItem(hwnd, NIL, TVGN_CARET)
- end;
- // Macro 175
- //#define TreeView_GetDropHilight(hwnd:hwnd);
- //TreeView_GetNextItem(hwnd, NULL, TVGN_DROPHILITE)
- Procedure TreeView_GetDropHilight(hwnd:hwnd);
- begin
- TreeView_GetNextItem(hwnd, NIL, TVGN_DROPHILITE)
- end;
- // Macro 176
- Procedure TreeView_GetRoot(hwnd:hwnd);
- begin
- TreeView_GetNextItem(hwnd, NIL, TVGN_ROOT)
- end;
- // Macro 177
- //#define TreeView_GetLastVisible(hwnd:hwnd);
- //TreeView_GetNextItem(hwnd, NULL, TVGN_LASTVISIBLE)
- Procedure TreeView_GetLastVisible(hwnd:hwnd);
- begin
- TreeView_GetNextItem(hwnd, NIL, TVGN_LASTVISIBLE)
- end;
- // Macro 178
- Function TreeView_Select( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_SELECTITEM, code, LPARAM(hitem)))
- end;
- // Macro 179
- // #define TreeView_SelectItem(hwnd, hitem) TreeView_Select(hwnd, hitem, TVGN_CARET)
- // Macro 180
- // #define TreeView_SelectDropTarget(hwnd, hitem) TreeView_Select(hwnd, hitem, TVGN_DROPHILITE)
- // Macro 181
- // #define TreeView_SelectSetFirstVisible(hwnd, hitem) TreeView_Select(hwnd, hitem, TVGN_FIRSTVISIBLE)
- // Macro 179
- Procedure TreeView_SelectItem(hwnd:hwnd; hitem:HTREEITEM);
- Begin
- TreeView_Select(hwnd, hitem, TVGN_CARET)
- End;
- // Macro 180
- Procedure TreeView_SelectDropTarget(hwnd:hwnd; hitem:HTREEITEM);
- Begin
- TreeView_Select(hwnd, hitem, TVGN_DROPHILITE)
- End;
- // Macro 181
- Procedure TreeView_SelectSetFirstVisible(hwnd:hwnd; hitem:HTREEITEM);
- Begin
- TreeView_Select(hwnd, hitem, TVGN_FIRSTVISIBLE)
- End;
- // Macro 182
- // #define TreeView_GetItem(hwnd, pitem) \
- // (BOOL)SNDMSG((hwnd), TVM_GETITEM, 0, (LPARAM)(TV_ITEM *)(pitem))
- Function TreeView_GetItem( hwnd : hwnd;var pitem : TV_ITEM ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_GETITEM, 0, Longint(@pitem)))
- end;
- // Macro 183
- //#define TreeView_SetItem(hwnd, pitem) \
- // (BOOL)SNDMSG((hwnd), TVM_SETITEM, 0, (LPARAM)(const TV_ITEM *)(pitem))
- Function TreeView_SetItem( hwnd : hwnd;const pitem : TV_ITEM ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_SETITEM, 0, LParam(@pitem)))
- end;
- // Macro 184
- //#define TreeView_EditLabel(hwnd, hitem) \
- // (HWND)SNDMSG((hwnd), TVM_EDITLABEL, 0, (LPARAM)(HTREEITEM)(hitem))
- Function TreeView_EditLabel( hwnd : hwnd; hitem : HTREEITEM):HWND;
- Begin
- Result:=Windows.HWND(SendMessage((hwnd), TVM_EDITLABEL, 0, LParam(hitem)))
- end;
- // Macro 185
- //#define TreeView_GetEditControl(hwnd) \
- // (HWND)SNDMSG((hwnd), TVM_GETEDITCONTROL, 0, 0)
- Function TreeView_GetEditControl( hwnd : hwnd):HWND;
- Begin
- Result:=Windows.HWND(SendMessage((hwnd), TVM_GETEDITCONTROL, 0, 0))
- end;
- // Macro 186
- //#define TreeView_GetVisibleCount(hwnd) \
- // (UINT)SNDMSG((hwnd), TVM_GETVISIBLECOUNT, 0, 0)
- Function TreeView_GetVisibleCount( hwnd : hwnd):UINT;
- Begin
- Result:=UINT(SendMessage((hwnd), TVM_GETVISIBLECOUNT, 0, 0))
- end;
- // Macro 187
- //#define TreeView_HitTest(hwnd, lpht) \
- // (HTREEITEM)SNDMSG((hwnd), TVM_HITTEST, 0, (LPARAM)(LPTV_HITTESTINFO)(lpht))
- Function TreeView_HitTest( hwnd : hwnd; lpht : LPTV_HITTESTINFO):HTREEITEM;
- Begin
- Result:=HTREEITEM(SendMessage((hwnd), TVM_HITTEST, 0, lparam(lpht)))
- end;
- // Macro 188
- //#define TreeView_CreateDragImage(hwnd, hitem) \
- // (HIMAGELIST)SNDMSG((hwnd), TVM_CREATEDRAGIMAGE, 0, (LPARAM)(HTREEITEM)(hitem))
- Function TreeView_CreateDragImage( hwnd : hwnd; hitem : HTREEITEM):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), TVM_CREATEDRAGIMAGE, 0, Lparam(hitem)))
- end;
- // Macro 189
- //#define TreeView_SortChildren(hwnd, hitem, recurse) \
- // (BOOL)SNDMSG((hwnd), TVM_SORTCHILDREN, (WPARAM)(recurse), (LPARAM)(HTREEITEM)(hitem))
- Function TreeView_SortChildren( hwnd : hwnd; hitem : HTREEITEM; recurse : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_SORTCHILDREN, recurse, LParam(hitem)))
- end;
- // Macro 190
- //#define TreeView_EnsureVisible(hwnd, hitem) \
- // (BOOL)SNDMSG((hwnd), TVM_ENSUREVISIBLE, 0, (LPARAM)(HTREEITEM)(hitem))
- Function TreeView_EnsureVisible( hwnd : hwnd; hitem : HTREEITEM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_ENSUREVISIBLE, 0, LParam(hitem)))
- end;
- // Macro 191
- //#define TreeView_SortChildrenCB(hwnd, psort, recurse) \
- // (BOOL)SNDMSG((hwnd), TVM_SORTCHILDRENCB, (WPARAM)(recurse), \
- // (LPARAM)(LPTV_SORTCB)(psort))
- Function TreeView_SortChildrenCB( hwnd : hwnd;psort :lpTV_sortcb; recurse : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_SORTCHILDRENCB, recurse, LPARAM(psort)))
- end;
- // Macro 192
- //#define TreeView_EndEditLabelNow(hwnd, fCancel) \
- // (BOOL)SNDMSG((hwnd), TVM_ENDEDITLABELNOW, (WPARAM)(fCancel), 0)
- Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_ENDEDITLABELNOW, fCancel, 0))
- end;
- // Macro 193
- //#define TreeView_SetToolTips(hwnd, hwndTT) \
- // (HWND)SNDMSG((hwnd), TVM_SETTOOLTIPS, (WPARAM)(hwndTT), 0)
- Function TreeView_SetToolTips( hwnd : hwnd; hwndTT : WPARAM):HWND;
- Begin
- Result:=Windows.HWND(SendMessage((hwnd), TVM_SETTOOLTIPS, hwndTT, 0))
- end;
- // Macro 194
- //#define TreeView_GetToolTips(hwnd) \
- // (HWND)SNDMSG((hwnd), TVM_GETTOOLTIPS, 0, 0)
- Function TreeView_GetToolTips( hwnd : hwnd):HWND;
- Begin
- Result:=Windows.HWND(SendMessage((hwnd), TVM_GETTOOLTIPS, 0, 0))
- end;
- // Macro 195
- //#define TreeView_GetISearchString(hwndTV, lpsz) \
- // (BOOL)SNDMSG((hwndTV), TVM_GETISEARCHSTRING, 0, (LPARAM)(LPTSTR)(lpsz))
- Function TreeView_GetISearchString( hwndTV : hwnd; lpsz : LPTSTR):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndTV), TVM_GETISEARCHSTRING, 0, LPARAM(lpsz)))
- end;
- // Macro 196
- //#define TreeView_SetInsertMark(hwnd, hItem, fAfter) \
- // (BOOL)SNDMSG((hwnd), TVM_SETINSERTMARK, (WPARAM) (fAfter), (LPARAM) (hItem))
- Function TreeView_SetInsertMark( hwnd : hwnd; hItem : LParam ; fAfter : WParam ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_SETINSERTMARK, (fAfter), (hItem)))
- end;
- // Macro 197
- //#define TreeView_SetUnicodeFormat(hwnd, fUnicode) \
- // (BOOL)SNDMSG((hwnd), TVM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
- Function TreeView_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_SETUNICODEFORMAT, fUnicode, 0))
- end;
- // Macro 198
- //#define TreeView_GetUnicodeFormat(hwnd) \
- // (BOOL)SNDMSG((hwnd), TVM_GETUNICODEFORMAT, 0, 0)
- Function TreeView_GetUnicodeFormat( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TVM_GETUNICODEFORMAT, 0, 0))
- end;
- // Macro 199
- //#define TreeView_SetItemHeight(hwnd, iHeight) \
- // (int)SNDMSG((hwnd), TVM_SETITEMHEIGHT, (WPARAM)(iHeight), 0)
- Function TreeView_SetItemHeight( hwnd : hwnd; iHeight : WPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), TVM_SETITEMHEIGHT, iHeight, 0))
- end;
- // Macro 200
- //#define TreeView_GetItemHeight(hwnd) \
- // (int)SNDMSG((hwnd), TVM_GETITEMHEIGHT, 0, 0)
- Function TreeView_GetItemHeight( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), TVM_GETITEMHEIGHT, 0, 0))
- end;
- // Macro 201
- //#define TreeView_SetBkColor(hwnd, clr) \
- // (COLORREF)SNDMSG((hwnd), TVM_SETBKCOLOR, 0, (LPARAM)(clr))
- Function TreeView_SetBkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), TVM_SETBKCOLOR, 0, clr))
- end;
- // Macro 202
- //#define TreeView_SetTextColor(hwnd, clr) \
- // (COLORREF)SNDMSG((hwnd), TVM_SETTEXTCOLOR, 0, (LPARAM)(clr))
- Function TreeView_SetTextColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), TVM_SETTEXTCOLOR, 0, clr))
- end;
- // Macro 203
- //#define TreeView_GetBkColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), TVM_GETBKCOLOR, 0, 0)
- Function TreeView_GetBkColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), TVM_GETBKCOLOR, 0, 0))
- end;
- // Macro 204
- //#define TreeView_GetTextColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), TVM_GETTEXTCOLOR, 0, 0)
- Function TreeView_GetTextColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), TVM_GETTEXTCOLOR, 0, 0))
- end;
- // Macro 205
- //#define TreeView_SetScrollTime(hwnd, uTime) \
- // (UINT)SNDMSG((hwnd), TVM_SETSCROLLTIME, uTime, 0)
- Function TreeView_SetScrollTime( hwnd : hwnd; uTime : wparam ):UINT;
- Begin
- Result:=UINT(SendMessage((hwnd), TVM_SETSCROLLTIME, uTime, 0))
- end;
- // Macro 206
- //#define TreeView_GetScrollTime(hwnd) \
- // (UINT)SNDMSG((hwnd), TVM_GETSCROLLTIME, 0, 0)
- Function TreeView_GetScrollTime( hwnd : hwnd):UINT;
- Begin
- Result:=UINT(SendMessage((hwnd), TVM_GETSCROLLTIME, 0, 0))
- end;
- // Macro 207
- //#define TreeView_SetInsertMarkColor(hwnd, clr) \
- // (COLORREF)SNDMSG((hwnd), TVM_SETINSERTMARKCOLOR, 0, (LPARAM)(clr))
- Function TreeView_SetInsertMarkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), TVM_SETINSERTMARKCOLOR, 0, clr))
- end;
- // Macro 208
- //#define TreeView_GetInsertMarkColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), TVM_GETINSERTMARKCOLOR, 0, 0)
- Function TreeView_GetInsertMarkColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), TVM_GETINSERTMARKCOLOR, 0, 0))
- end;
- // Macro 209
- //#define TreeView_SetItemState(hwndTV, hti, data, _mask) \
- // { TVITEM _ms_TVi;\
- // _ms_TVi.mask = TVIF_STATE; \
- // _ms_TVi.hItem = hti; \
- // _ms_TVi.stateMask = _mask;\
- // _ms_TVi.state = data;\
- // SNDMSG((hwndTV), TVM_SETITEM, 0, (LPARAM)(TV_ITEM *)&_ms_TVi);\
- // }
- Procedure TreeView_SetItemState(hwndTV:HWND;hti:HTreeItem;data:UINT;_mask:UINT);
- var _ms_TVi : TVITEM;
- Begin
- _ms_TVi.mask:=TVIF_STATE;
- _ms_TVi.hItem := hti;
- _ms_TVi.stateMask := _mask;
- _ms_TVi.state := data;
- SendMessage(hwndTV,TVM_SETITEM, 0, LPARAM(@_ms_TVi));
- end;
- // Macro 210
- //#define TreeView_SetCheckState(hwndTV, hti, fCheck) \
- // TreeView_SetItemState(hwndTV, hti, INDEXTOSTATEIMAGEMASK((fCheck)?2:1), TVIS_STATEIMAGEMASK)
- Procedure TreeView_SetCheckState( hwndTV : hwnd; hti : HTreeItem ; fCheck : bool );
- var j : cint;
- Begin
- IF not fCheck Then // (or inc(longint(fCheck)) if you like it dirty)
- j:=1
- Else
- j:=2;
- TreeView_SetItemState(hwndTV, hti, INDEXTOSTATEIMAGEMASK(j), TVIS_STATEIMAGEMASK)
- end;
- {$ifdef IE5plus}
- // Macro 211
- //#define TreeView_GetItemState(hwndTV, hti, mask) \
- // (UINT)SNDMSG((hwndTV), TVM_GETITEMSTATE, (WPARAM)(hti), (LPARAM)(mask))
- Function TreeView_GetItemState( hwndTV : hwnd; hti : WPARAM; mask : LPARAM):UINT;
- Begin
- Result:=UINT(SendMessage((hwndTV), TVM_GETITEMSTATE, hti, mask))
- end;
- // Macro 212
- // #define TreeView_GetCheckState(hwndTV, hti) \
- // ((((UINT)(SNDMSG((hwndTV), TVM_GETITEMSTATE, (WPARAM)(hti), TVIS_STATEIMAGEMASK))) >> 12) -1)
- Function TreeView_GetCheckState( hwndTV : hwnd; hti : WPARAM):UINT;
- Begin
- Result:=((UINT(SendMessage((hwndTV), TVM_GETITEMSTATE, hti, TVIS_STATEIMAGEMASK) shr 12) -1));
- end;
- // Macro 213
- // #define TreeView_SetLineColor(hwnd, clr) \
- // (COLORREF)SNDMSG((hwnd), TVM_SETLINECOLOR, 0, (LPARAM)(clr))
- Function TreeView_SetLineColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), TVM_SETLINECOLOR, 0, clr))
- end;
- // Macro 214
- // #define TreeView_GetLineColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), TVM_GETLINECOLOR, 0, 0)
- Function TreeView_GetLineColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), TVM_GETLINECOLOR, 0, 0))
- end;
- // Macro 215
- // #define TreeView_MapAccIDToHTREEITEM(hwnd, id) \
- // (HTREEITEM)SNDMSG((hwnd), TVM_MAPACCIDTOHTREEITEM, id, 0)
- Function TreeView_MapAccIDToHTREEITEM( hwnd : hwnd; id :uint):HTREEITEM;
- Begin
- Result:=HTREEITEM(SendMessage((hwnd), TVM_MAPACCIDTOHTREEITEM, id, 0))
- end;
- // Macro 216
- // #define TreeView_MapHTREEITEMToAccID(hwnd, htreeitem) \
- // (UINT)SNDMSG((hwnd), TVM_MAPHTREEITEMTOACCID, (WPARAM)htreeitem, 0)
- Function TreeView_MapHTREEITEMToAccID( hwnd : hwnd; htreeitem : WPARAM):UINT;
- Begin
- Result:=UINT(SendMessage((hwnd), TVM_MAPHTREEITEMTOACCID, htreeitem, 0))
- end;
- {$endif}
- // Macro 217
- //#define TabCtrl_GetImageList(hwnd) \
- // (HIMAGELIST)SNDMSG((hwnd), TCM_GETIMAGELIST, 0, DWord(0))
- Function TabCtrl_GetImageList( hwnd : hwnd):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), TCM_GETIMAGELIST, 0, DWord(0)))
- end;
- // Macro 218
- //#define TabCtrl_SetImageList(hwnd, himl) \
- // (HIMAGELIST)SNDMSG((hwnd), TCM_SETIMAGELIST, 0, (LPARAM)(HIMAGELIST)(himl))
- Function TabCtrl_SetImageList( hwnd : hwnd; himl : HIMAGELIST):HIMAGELIST;
- Begin
- Result:=HIMAGELIST(SendMessage((hwnd), TCM_SETIMAGELIST, 0, himl))
- end;
- // Macro 219
- //#define TabCtrl_GetItemCount(hwnd) \
- // (int)SNDMSG((hwnd), TCM_GETITEMCOUNT, 0, DWord(0))
- Function TabCtrl_GetItemCount( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), TCM_GETITEMCOUNT, 0, DWord(0)))
- end;
- // Macro 220
- //#define TabCtrl_GetItem(hwnd, iItem, pitem) \
- // (BOOL)SNDMSG((hwnd), TCM_GETITEM, (WPARAM)(int)(iItem), (LPARAM)(TC_ITEM *)(pitem))
- Function TabCtrl_GetItem( hwnd : hwnd; iItem : cint;var pitem : TC_ITEM ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TCM_GETITEM, iItem, Longint(@pitem)))
- end;
- // Macro 221
- //#define TabCtrl_SetItem(hwnd, iItem, pitem) \
- // (BOOL)SNDMSG((hwnd), TCM_SETITEM, (WPARAM)(int)(iItem), (LPARAM)(TC_ITEM *)(pitem))
- Function TabCtrl_SetItem( hwnd : hwnd; iItem : cint;var pitem : TC_ITEM ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TCM_SETITEM, iItem, Longint(@pitem)))
- end;
- // Macro 222
- //#define TabCtrl_InsertItem(hwnd, iItem, pitem) \
- // (int)SNDMSG((hwnd), TCM_INSERTITEM, (WPARAM)(int)(iItem), (LPARAM)(const TC_ITEM *)(pitem))
- Function TabCtrl_InsertItem( hwnd : hwnd; iItem : cint;const pitem : TC_ITEM ):cint;
- Begin
- Result:=cint(SendMessage((hwnd), TCM_INSERTITEM, iItem, Longint(@pitem)))
- end;
- // Macro 223
- //#define TabCtrl_DeleteItem(hwnd, i) \
- // (BOOL)SNDMSG((hwnd), TCM_DELETEITEM, (WPARAM)(int)(i), DWord(0))
- Function TabCtrl_DeleteItem( hwnd : hwnd; i : cint):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TCM_DELETEITEM, (i), DWord(0)))
- end;
- // Macro 224
- //#define TabCtrl_DeleteAllItems(hwnd) \
- // (BOOL)SNDMSG((hwnd), TCM_DELETEALLITEMS, 0, DWord(0))
- Function TabCtrl_DeleteAllItems( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TCM_DELETEALLITEMS, 0, DWord(0)))
- end;
- // Macro 225
- //#define TabCtrl_GetItemRect(hwnd, i, prc) \
- // (BOOL)SNDMSG((hwnd), TCM_GETITEMRECT, (WPARAM)(int)(i), (LPARAM)(RECT *)(prc))
- Function TabCtrl_GetItemRect( hwnd : hwnd; i : cint;var prc : RECT ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TCM_GETITEMRECT, (i), Longint(@prc)))
- end;
- // Macro 226
- //#define TabCtrl_GetCurSel(hwnd) \
- // (int)SNDMSG((hwnd), TCM_GETCURSEL, 0, 0)
- Function TabCtrl_GetCurSel( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), TCM_GETCURSEL, 0, 0))
- end;
- // Macro 227
- //#define TabCtrl_SetCurSel(hwnd, i) \
- // (int)SNDMSG((hwnd), TCM_SETCURSEL, (WPARAM)(i), 0)
- Function TabCtrl_SetCurSel( hwnd : hwnd; i : WPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), TCM_SETCURSEL, (i), 0))
- end;
- // Macro 228
- //#define TabCtrl_HitTest(hwndTC, pinfo) \
- // (int)SNDMSG((hwndTC), TCM_HITTEST, 0, (LPARAM)(TC_HITTESTINFO *)(pinfo))
- Function TabCtrl_HitTest( hwndTC : hwnd;var pinfo : TC_HITTESTINFO ):cint;
- Begin
- Result:=cint(SendMessage((hwndTC), TCM_HITTEST, 0, Longint(@pinfo)))
- end;
- // Macro 229
- //#define TabCtrl_SetItemExtra(hwndTC, cb) \
- // (BOOL)SNDMSG((hwndTC), TCM_SETITEMEXTRA, (WPARAM)(cb), DWord(0))
- Function TabCtrl_SetItemExtra( hwndTC : hwnd; cb : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwndTC), TCM_SETITEMEXTRA, cb, DWord(0)))
- end;
- // Macro 230
- //#define TabCtrl_AdjustRect(hwnd, bLarger, prc) \
- // (int)SNDMSG(hwnd, TCM_ADJUSTRECT, (WPARAM)(BOOL)(bLarger), (LPARAM)(RECT *)prc)
- Function TabCtrl_AdjustRect( hwnd : hwnd; bLarger : BOOL;var prc : RECT ):cint;
- Begin
- Result:=cint(SendMessage(hwnd, TCM_ADJUSTRECT, Wparam(bLarger), Lparam(@prc)));
- end;
- // Macro 231
- //#define TabCtrl_SetItemSize(hwnd, x, y) \
- // (DWORD)SNDMSG((hwnd), TCM_SETITEMSIZE, 0, MAKELPARAM(x,y))
- Function TabCtrl_SetItemSize( hwnd : hwnd; x : cint ; y : cint ):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwnd), TCM_SETITEMSIZE, 0, MAKELPARAM(x,y)))
- end;
- // Macro 232
- //#define TabCtrl_RemoveImage(hwnd, i) \
- // (void)SNDMSG((hwnd), TCM_REMOVEIMAGE, i, DWord(0))
- Procedure TabCtrl_RemoveImage( hwnd : hwnd; i : cint);
- Begin
- SendMessage((hwnd), TCM_REMOVEIMAGE, i, DWord(0))
- end;
- // Macro 233
- //#define TabCtrl_SetPadding(hwnd, cx, cy) \
- // (void)SNDMSG((hwnd), TCM_SETPADDING, 0, MAKELPARAM(cx, cy))
- Procedure TabCtrl_SetPadding( hwnd : hwnd; cx : cint ; cy : cint );
- Begin
- SendMessage((hwnd), TCM_SETPADDING, 0, MAKELPARAM(cx, cy))
- end;
- // Macro 234
- //#define TabCtrl_GetRowCount(hwnd) \
- // (int)SNDMSG((hwnd), TCM_GETROWCOUNT, 0, DWord(0))
- Function TabCtrl_GetRowCount( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), TCM_GETROWCOUNT, 0, DWord(0)))
- end;
- // Macro 235
- //#define TabCtrl_GetToolTips(hwnd) \
- // (HWND)SNDMSG((hwnd), TCM_GETTOOLTIPS, 0, DWord(0))
- Function TabCtrl_GetToolTips( hwnd : hwnd):HWND;
- Begin
- Result:=Windows.HWND(SendMessage((hwnd), TCM_GETTOOLTIPS, 0, DWord(0)))
- end;
- // Macro 236
- //#define TabCtrl_SetToolTips(hwnd, hwndTT) \
- // (void)SNDMSG((hwnd), TCM_SETTOOLTIPS, (WPARAM)(hwndTT), DWord(0))
- Procedure TabCtrl_SetToolTips( hwnd : hwnd; hwndTT : WPARAM);
- Begin
- SendMessage((hwnd), TCM_SETTOOLTIPS, hwndTT, DWord(0))
- end;
- // Macro 237
- //#define TabCtrl_GetCurFocus(hwnd) \
- // (int)SNDMSG((hwnd), TCM_GETCURFOCUS, 0, 0)
- Function TabCtrl_GetCurFocus( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), TCM_GETCURFOCUS, 0, 0))
- end;
- // Macro 238
- //#define TabCtrl_SetCurFocus(hwnd, i) \
- // SNDMSG((hwnd),TCM_SETCURFOCUS, i, 0)
- Procedure TabCtrl_SetCurFocus( hwnd : hwnd; i : cint );
- Begin
- SendMessage((hwnd),TCM_SETCURFOCUS, i, 0)
- end;
- // Macro 239
- //#define TabCtrl_SetMinTabWidth(hwnd, x) \
- // (int)SNDMSG((hwnd), TCM_SETMINTABWIDTH, 0, x)
- Function TabCtrl_SetMinTabWidth( hwnd : hwnd; x : cint ):cint;
- Begin
- Result:=cint(SendMessage((hwnd), TCM_SETMINTABWIDTH, 0, x))
- end;
- // Macro 240
- //#define TabCtrl_DeselectAll(hwnd, fExcludeFocus)\
- // (void)SNDMSG((hwnd), TCM_DESELECTALL, fExcludeFocus, 0)
- Procedure TabCtrl_DeselectAll( hwnd : hwnd; fExcludeFocus :cint );
- Begin
- SendMessage((hwnd), TCM_DESELECTALL, fExcludeFocus, 0)
- end;
- // Macro 241
- //#define TabCtrl_HighlightItem(hwnd, i, fHighlight) \
- // (BOOL)SNDMSG((hwnd), TCM_HIGHLIGHTITEM, (WPARAM)(i), (LPARAM)MAKELONG (fHighlight, 0))
- Function TabCtrl_HighlightItem( hwnd : hwnd; i : WPARAM; fHighlight :bool ):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TCM_HIGHLIGHTITEM, (i), LPARAM(MAKELONG (cint(fHighlight), 0))))
- end;
- // Macro 242
- //#define TabCtrl_SetExtendedStyle(hwnd, dw)\
- // (DWORD)SNDMSG((hwnd), TCM_SETEXTENDEDSTYLE, 0, dw)
- Function TabCtrl_SetExtendedStyle( hwnd : hwnd; dw : cint):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwnd), TCM_SETEXTENDEDSTYLE, 0,lparam(dw)))
- end;
- // Macro 243
- //#define TabCtrl_GetExtendedStyle(hwnd)\
- // (DWORD)SNDMSG((hwnd), TCM_GETEXTENDEDSTYLE, 0, 0)
- Function TabCtrl_GetExtendedStyle( hwnd : hwnd):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwnd), TCM_GETEXTENDEDSTYLE, 0, 0))
- end;
- // Macro 244
- //#define TabCtrl_SetUnicodeFormat(hwnd, fUnicode) \
- // (BOOL)SNDMSG((hwnd), TCM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
- Function TabCtrl_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TCM_SETUNICODEFORMAT, fUnicode, 0))
- end;
- // Macro 245
- //#define TabCtrl_GetUnicodeFormat(hwnd) \
- // (BOOL)SNDMSG((hwnd), TCM_GETUNICODEFORMAT, 0, 0)
- Function TabCtrl_GetUnicodeFormat( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), TCM_GETUNICODEFORMAT, 0, 0));
- end;
- // Macro 246
- //#define Animate_Create(hwndP, id, dwStyle, hInstance) \
- // CreateWindow(ANIMATE_CLASS, NULL, \
- // dwStyle, 0, 0, 0, 0, hwndP, (HMENU)(id), hInstance, NULL)
- Function Animate_Create(hwndP :HWND;id:HMENU;dwStyle:dword;hInstance:HINST):HWND;
- Begin
- result:=CreateWindow(ANIMATE_CLASS, NIL,
- dwStyle, 0, 0, 0, 0, hwndP, id, hInstance, NIL);
- end;
- // Macro 247
- //#define Animate_Open(hwnd, szName) (BOOL)SNDMSG(hwnd, ACM_OPEN, 0, (LPARAM)(LPTSTR)(szName))
- Function Animate_Open(hwndP :HWND;szName:LPTSTR):BOOL;
- Begin
- Result:=BOOL(SendMessage(hwndp, ACM_OPEN, 0, LPARAM(szName)));
- end;
- // Macro 248
- //#define Animate_OpenEx(hwnd, hInst, szName) (BOOL)SNDMSG(hwnd, ACM_OPEN, (WPARAM)(hInst), (LPARAM)(LPTSTR)(szName))
- Function Animate_OpenEx(hwndP :HWND;HInst:HInst; szName:LPTSTR):BOOL;
- Begin
- Result:=BOOL(SendMessage(hwndp, ACM_OPEN, hinst, LPARAM(szName)));
- end;
- // Macro 249
- //#define Animate_Play(hwnd, from, to, rep) (BOOL)SNDMSG(hwnd, ACM_PLAY, (WPARAM)(rep), (LPARAM)MAKELONG(from, to))
- Function Animate_Play(hwndP :HWND;from,_to,rep:uint):BOOL;
- Begin
- Result:=BOOL(SendMessage(hwndP, ACM_PLAY, wparam(rep), LPARAM(MAKELONG(From,_to))));
- end;
- // Macro 250
- //#define Animate_Stop(hwnd) (BOOL)SNDMSG(hwnd, ACM_STOP, 0, 0)
- Function Animate_stop(hwndP :HWND):BOOL;
- Begin
- Result:=BOOL(SendMessage(hwndP, ACM_STOP, 0, 0));
- end;
- // Macro 251
- //#define Animate_Close(hwnd) Animate_Open(hwnd, NULL)
- Function Animate_close(hwndP :HWND):BOOL;
- Begin
- Result:=BOOL(Animate_Open(hwndP,NIL));
- end;
- // Macro 252
- //#define Animate_Seek(hwnd, frame) Animate_Play(hwnd, frame, frame, 1)
- Function Animate_Seek(hwndP :HWND;frame:uint):BOOL;
- Begin
- Result:=BOOL(Animate_Play(hwndP,frame,frame,1));
- end;
- // Macro 253
- //#define MonthCal_GetCurSel(hmc, pst) (BOOL)SNDMSG(hmc, MCM_GETCURSEL, 0, (LPARAM)(pst))
- function MonthCal_GetCurSel(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_GETCURSEL , 0, LPARAM(lpsystime)));
- end;
- // Macro 254
- //#define MonthCal_SetCurSel(hmc, pst) (BOOL)SNDMSG(hmc, MCM_SETCURSEL, 0, (LPARAM)(pst))
- function MonthCal_SetCurSel(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_SETCURSEL, 0, LPARAM(lpsystime)));
- end;
- // Macro 255
- //#define MonthCal_GetMaxSelCount(hmc) (DWORD)SNDMSG(hmc, MCM_GETMAXSELCOUNT, 0, DWord(0))
- function MonthCal_GetMaxSelCount(hwndMC:HWND):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_GETMAXSELCOUNT, 0, LPARAM(0)));
- end;
- // Macro 256
- //#define MonthCal_SetMaxSelCount(hmc, n) (BOOL)SNDMSG(hmc, MCM_SETMAXSELCOUNT, (WPARAM)(n), DWord(0))
- function MonthCal_SetMaxSelCount(hwndMC:HWND;n:uint):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_SETMAXSELCOUNT,WPARAM(N), LPARAM(0)));
- end;
- // Macro 257
- //#define MonthCal_GetSelRange(hmc, rgst) SNDMSG(hmc, MCM_GETSELRANGE, 0, (LPARAM)(rgst))
- function MonthCal_GetSelRange(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_GETSELRANGE,WPARAM(0), LPARAM(lpsystime)));
- end;
- // Macro 258
- //#define MonthCal_SetSelRange(hmc, rgst) SNDMSG(hmc, MCM_SETSELRANGE, 0, (LPARAM)(rgst))
- function MonthCal_SetSelRange(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_SETSELRANGE,WPARAM(0), LPARAM(lpsystime)));
- end;
- // Macro 259
- //#define MonthCal_GetMonthRange(hmc, gmr, rgst) (DWORD)SNDMSG(hmc, MCM_GETMONTHRANGE, (WPARAM)(gmr), (LPARAM)(rgst))
- function MonthCal_GetMonthRange(hwndMC:HWND; gmr: DWORD;lpSysTime :LPSYSTEMTIME):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_GETMONTHRANGE,WPARAM(gmr), LPARAM(lpsystime)));
- end;
- // Macro 260
- //#define MonthCal_SetDayState(hmc, cbds, rgds) SNDMSG(hmc, MCM_SETDAYSTATE, (WPARAM)(cbds), (LPARAM)(rgds))
- function MonthCal_SetDayState(hwndMC:HWND; gmr: Longint;lpDay :LPMONTHDAYSTATE):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_SETDAYSTATE,WPARAM(gmr), LPARAM(lpDay)));
- end;
- // Macro 261
- // #define MonthCal_GetMinReqRect(hmc, prc) SNDMSG(hmc, MCM_GETMINREQRECT, 0, (LPARAM)(prc))
- function MonthCal_GetMinReqRect(hwndMC:HWND; lpr :LPRect):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_GETMINREQRECT,0, LPARAM(lpr)));
- end;
- // Macro 262
- // #define MonthCal_SetColor(hmc, iColor, clr) SNDMSG(hmc, MCM_SETCOLOR, iColor, clr)
- function MonthCal_SetColor(hwndMC:HWND; ic:longint;clr:COLORREF):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_SETCOLOR,ic, LPARAM(clr)));
- end;
- // Macro 263
- // #define MonthCal_GetColor(hmc, iColor) SNDMSG(hmc, MCM_GETCOLOR, iColor, 0)
- function MonthCal_GetColor(hwndMC:HWND; ic:longint):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_GETCOLOR,ic, 0));
- end;
- // Macro 264
- // #define MonthCal_SetToday(hmc, pst) SNDMSG(hmc, MCM_SETTODAY, 0, (LPARAM)(pst))
- function MonthCal_SetToday(hwndMC:HWND; lps:LPSYSTEMTIME):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_SETTODAY,0, LPARAM(lps)));
- end;
- // Macro 265
- // #define MonthCal_GetToday(hmc, pst) (BOOL)SNDMSG(hmc, MCM_GETTODAY, 0, (LPARAM)(pst))
- function MonthCal_GetToday(hwndMC:HWND; lps:LPSYSTEMTIME):Bool;
- begin
- Result:=BOOL(SendMessage(hwndmc, MCM_GETTODAY,0, LPARAM(lps)));
- end;
- // Macro 266
- // #define MonthCal_HitTest(hmc, pinfo) \
- // SNDMSG(hmc, MCM_HITTEST, 0, (LPARAM)(PMCHITTESTINFO)(pinfo))
- FUNCTION MonthCal_HitTest( hmc :HWND ; pinfo : PMCHITTESTINFO):DWORD;
- Begin
- Result:=DWORD(SendMessage(hmc, MCM_HITTEST, 0, LPARAM(pinfo)));
- end;
- // Macro 267
- // #define MonthCal_SetFirstDayOfWeek(hmc, iDay) \
- // SNDMSG(hmc, MCM_SETFIRSTDAYOFWEEK, 0, iDay)
- function MonthCal_SetFirstDayOfWeek( hmc : HWND ; iDay :LONGINT ):DWORD;
- Begin
- Result:=SendMessage(hmc, MCM_SETFIRSTDAYOFWEEK, 0, iDay);
- end;
- // Macro 268
- // #define MonthCal_GetFirstDayOfWeek(hmc) \
- // (DWORD)SNDMSG(hmc, MCM_GETFIRSTDAYOFWEEK, 0, 0)
- Function MonthCal_GetFirstDayOfWeek( hmc : HWND ):DWORD;
- Begin
- Result:=DWORD(SendMessage(hmc, MCM_GETFIRSTDAYOFWEEK, 0, 0))
- end;
- // Macro 269
- // #define MonthCal_GetRange(hmc, rgst) \
- // (DWORD)SNDMSG(hmc, MCM_GETRANGE, 0, (LPARAM)(rgst))
- Function MonthCal_GetRange( hmc : HWND ; rgst : LPSYSTEMTIME):DWORD;
- Begin
- Result:=DWORD(SendMessage(hmc, MCM_GETRANGE, 0, lparam(rgst)));
- end;
- // Macro 270
- // #define MonthCal_SetRange(hmc, gd, rgst) \
- // (BOOL)SNDMSG(hmc, MCM_SETRANGE, (WPARAM)(gd), (LPARAM)(rgst))
- Function MonthCal_SetRange( hmc : HWND ; gd : DWORD; rgst : LPSYSTEMTIME):BOOL;
- Begin
- Result:=BOOL(SendMessage(hmc, MCM_SETRANGE, gd,LPARAM(rgst)))
- end;
- // Macro 271
- // #define MonthCal_GetMonthDelta(hmc) \
- // (int)SNDMSG(hmc, MCM_GETMONTHDELTA, 0, 0)
- Function MonthCal_GetMonthDelta( hmc :hwnd ):cint;
- Begin
- Result:=cint(SendMessage(hmc, MCM_GETMONTHDELTA, 0, 0))
- end;
- // Macro 272
- // #define MonthCal_SetMonthDelta(hmc, n) \
- // (int)SNDMSG(hmc, MCM_SETMONTHDELTA, n, 0)
- Function MonthCal_SetMonthDelta( hmc :hwnd ; n :cint ):cint;
- Begin
- Result:=cint(SendMessage(hmc, MCM_SETMONTHDELTA, n, 0))
- end;
- // Macro 273
- // #define MonthCal_GetMaxTodayWidth(hmc) \
- // (DWORD)SNDMSG(hmc, MCM_GETMAXTODAYWIDTH, 0, 0)
- Function MonthCal_GetMaxTodayWidth( hmc :hwnd ):DWORD;
- Begin
- Result:=DWORD(SendMessage(hmc, MCM_GETMAXTODAYWIDTH, 0, 0))
- end;
- // Macro 274
- // #define MonthCal_SetUnicodeFormat(hwnd, fUnicode) \
- // (BOOL)SNDMSG((hwnd), MCM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
- Function MonthCal_SetUnicodeFormat( hwnd : hwnd; fUnicode : bool):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), MCM_SETUNICODEFORMAT, wparam(fUnicode), 0))
- end;
- // Macro 275
- // #define MonthCal_GetUnicodeFormat(hwnd) \
- // (BOOL)SNDMSG((hwnd), MCM_GETUNICODEFORMAT, 0, 0)
- Function MonthCal_GetUnicodeFormat( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), MCM_GETUNICODEFORMAT, 0, 0))
- end;
- // Macro 276
- // #define DateTime_GetSystemtime(hdp, pst) (DWORD)SNDMSG(hdp, DTM_GETSYSTEMTIME, 0, (LPARAM)(pst))
- // Macro 277
- //#define DateTime_SetSystemtime(hdp, gd, pst) (BOOL)SNDMSG(hdp, DTM_SETSYSTEMTIME, (WPARAM)(gd), (LPARAM)(pst))
- // Macro 278
- //#define DateTime_GetRange(hdp, rgst) (DWORD)SNDMSG(hdp, DTM_GETRANGE, 0, (LPARAM)(rgst))
- // Macro 279
- //#define DateTime_SetRange(hdp, gd, rgst) (BOOL)SNDMSG(hdp, DTM_SETRANGE, (WPARAM)(gd), (LPARAM)(rgst))
- // Macro 280
- //#define DateTime_SetFormat(hdp, sz) (BOOL)SNDMSG(hdp, DTM_SETFORMAT, 0, (LPARAM)(sz))
- // Macro 281
- //#define DateTime_SetMonthCalColor(hdp, iColor, clr) SNDMSG(hdp, DTM_SETMCCOLOR, iColor, clr)
- // Macro 282
- //#define DateTime_GetMonthCalColor(hdp, iColor) SNDMSG(hdp, DTM_GETMCCOLOR, iColor, 0)
- // Macro 283
- //#define DateTime_GetMonthCal(hdp) (HWND)SNDMSG(hdp, DTM_GETMONTHCAL, 0, 0)
- // Macro 284
- //#define DateTime_SetMonthCalFont(hdp, hfont, fRedraw) SNDMSG(hdp, DTM_SETMCFONT, (WPARAM)(hfont), (LPARAM)(fRedraw))
- // Macro 285
- //#define DateTime_GetMonthCalFont(hdp) SNDMSG(hdp, DTM_GETMCFONT, 0, 0)
- // Macro 286
- //#define MAKEIPRANGE(low, high) ((LPARAM)(WORD)(((BYTE)(high) << 8) + (BYTE)(low)))
- // Macro 287
- //#define MAKEIPADDRESS(b1,b2,b3,b4) ((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
- // Macro 288
- //#define FIRST_IPADDRESS(x) ((x>>24) & 0xff)
- // Macro 289
- //#define SECOND_IPADDRESS(x) ((x>>16) & 0xff)
- // Macro 290
- //#define THIRD_IPADDRESS(x) ((x>>8) & 0xff)
- // Macro 291
- //#define FOURTH_IPADDRESS(x) (x & 0xff)
- // Macro 292
- //#define Pager_SetChild(hwnd, hwndChild) \
- // (void)SNDMSG((hwnd), PGM_SETCHILD, 0, (LPARAM)(hwndChild))
- Procedure Pager_SetChild( hwnd : hwnd; hwndChild : LPARAM);
- Begin
- SendMessage((hwnd), PGM_SETCHILD, 0, hwndChild)
- end;
- // Macro 293
- //#define Pager_RecalcSize(hwnd) \
- // (void)SNDMSG((hwnd), PGM_RECALCSIZE, 0, 0)
- Procedure Pager_RecalcSize( hwnd : hwnd);
- Begin
- SendMessage((hwnd), PGM_RECALCSIZE, 0, 0)
- end;
- // Macro 294
- //#define Pager_ForwardMouse(hwnd, bForward) \
- // (void)SNDMSG((hwnd), PGM_FORWARDMOUSE, (WPARAM)(bForward), 0)
- Procedure Pager_ForwardMouse( hwnd : hwnd; bForward : WPARAM);
- Begin
- SendMessage((hwnd), PGM_FORWARDMOUSE, bForward, 0)
- end;
- // Macro 295
- //#define Pager_SetBkColor(hwnd, clr) \
- // (COLORREF)SNDMSG((hwnd), PGM_SETBKCOLOR, 0, (LPARAM)(clr))
- Function Pager_SetBkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), PGM_SETBKCOLOR, 0, clr))
- end;
- // Macro 296
- //#define Pager_GetBkColor(hwnd) \
- // (COLORREF)SNDMSG((hwnd), PGM_GETBKCOLOR, 0, 0)
- Function Pager_GetBkColor( hwnd : hwnd):COLORREF;
- Begin
- Result:=COLORREF(SendMessage((hwnd), PGM_GETBKCOLOR, 0, 0))
- end;
- // Macro 297
- //#define Pager_SetBorder(hwnd, iBorder) \
- // (int)SNDMSG((hwnd), PGM_SETBORDER, 0, (LPARAM)(iBorder))
- Function Pager_SetBorder( hwnd : hwnd; iBorder : LPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), PGM_SETBORDER, 0, iBorder))
- end;
- // Macro 298
- // #define Pager_GetBorder(hwnd) \
- // (int)SNDMSG((hwnd), PGM_GETBORDER, 0, 0)
- Function Pager_GetBorder( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), PGM_GETBORDER, 0, 0))
- end;
- // Macro 299
- //#define Pager_SetPos(hwnd, iPos) \
- // (int)SNDMSG((hwnd), PGM_SETPOS, 0, (LPARAM)(iPos))
- Function Pager_SetPos( hwnd : hwnd; iPos : LPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), PGM_SETPOS, 0, iPos))
- end;
- // Macro 300
- //#define Pager_GetPos(hwnd) \
- // (int)SNDMSG((hwnd), PGM_GETPOS, 0, 0)
- Function Pager_GetPos( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), PGM_GETPOS, 0, 0))
- end;
- // Macro 301
- //#define Pager_SetButtonSize(hwnd, iSize) \
- // (int)SNDMSG((hwnd), PGM_SETBUTTONSIZE, 0, (LPARAM)(iSize))
- Function Pager_SetButtonSize( hwnd : hwnd; iSize : LPARAM):cint;
- Begin
- Result:=cint(SendMessage((hwnd), PGM_SETBUTTONSIZE, 0, iSize))
- end;
- // Macro 302
- //#define Pager_GetButtonSize(hwnd) \
- // (int)SNDMSG((hwnd), PGM_GETBUTTONSIZE, 0,0)
- Function Pager_GetButtonSize( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), PGM_GETBUTTONSIZE, 0,0))
- end;
- // Macro 303
- //#define Pager_GetButtonState(hwnd, iButton) \
- // (DWORD)SNDMSG((hwnd), PGM_GETBUTTONSTATE, 0, (LPARAM)(iButton))
- Function Pager_GetButtonState( hwnd : hwnd; iButton : LPARAM):DWORD;
- Begin
- Result:=DWORD(SendMessage((hwnd), PGM_GETBUTTONSTATE, 0, iButton))
- end;
- // Macro 304
- // #define Pager_GetDropTarget(hwnd, ppdt) \
- // (void)SNDMSG((hwnd), PGM_GETDROPTARGET, 0, (LPARAM)(ppdt))
- Procedure Pager_GetDropTarget( hwnd : hwnd; ppdt : LPARAM);
- Begin
- SendMessage((hwnd), PGM_GETDROPTARGET, 0, ppdt)
- end;
- // Macro 305
- // #define Button_GetIdealSize(hwnd, psize)\
- // (BOOL)SNDMSG((hwnd), BCM_GETIDEALSIZE, 0, (LPARAM)(psize))
- Function Button_GetIdealSize( hwnd : hwnd; psize : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), BCM_GETIDEALSIZE, 0, psize))
- end;
- // Macro 306
- // #define Button_SetImageList(hwnd, pbuttonImagelist)\
- // (BOOL)SNDMSG((hwnd), BCM_SETIMAGELIST, 0, (LPARAM)(pbuttonImagelist))
- Function Button_SetImageList( hwnd : hwnd; pbuttonImagelist : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), BCM_SETIMAGELIST, 0, pbuttonImagelist))
- end;
- // Macro 307
- // #define Button_GetImageList(hwnd, pbuttonImagelist)\
- // (BOOL)SNDMSG((hwnd), BCM_GETIMAGELIST, 0, (LPARAM)(pbuttonImagelist))
- Function Button_GetImageList( hwnd : hwnd; pbuttonImagelist : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), BCM_GETIMAGELIST, 0, pbuttonImagelist))
- end;
- // Macro 308
- // #define Button_SetTextMargin(hwnd, pmargin)\
- // (BOOL)SNDMSG((hwnd), BCM_SETTEXTMARGIN, 0, (LPARAM)(pmargin))
- Function Button_SetTextMargin( hwnd : hwnd; pmargin : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), BCM_SETTEXTMARGIN, 0, pmargin))
- end;
- // Macro 309
- // #define Button_GetTextMargin(hwnd, pmargin)\
- // (BOOL)SNDMSG((hwnd), BCM_GETTEXTMARGIN, 0, (LPARAM)(pmargin))
- Function Button_GetTextMargin( hwnd : hwnd; pmargin : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), BCM_GETTEXTMARGIN, 0, pmargin))
- end;
- // Macro 310
- // #define Edit_SetCueBannerText(hwnd, lpcwText) \
- // (BOOL)SNDMSG((hwnd), EM_SETCUEBANNER, 0, (LPARAM)(lpcwText))
- Function Edit_SetCueBannerText( hwnd : hwnd; lpcwText : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), EM_SETCUEBANNER, 0, lpcwText))
- end;
- // Macro 311
- //#define Edit_GetCueBannerText(hwnd, lpwText, cchText) \
- // (BOOL)SNDMSG((hwnd), EM_GETCUEBANNER, (WPARAM)(lpwText), (LPARAM)(cchText))
- Function Edit_GetCueBannerText( hwnd : hwnd; lpwText : WPARAM; cchText : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), EM_GETCUEBANNER, lpwText, cchText))
- end;
- // Macro 312
- // #define Edit_ShowBalloonTip(hwnd, peditballoontip) \
- // (BOOL)SNDMSG((hwnd), EM_SHOWBALLOONTIP, 0, (LPARAM)(peditballoontip))
- Function Edit_ShowBalloonTip( hwnd : hwnd; peditballoontip : LPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), EM_SHOWBALLOONTIP, 0, peditballoontip))
- end;
- // Macro 313
- // #define Edit_HideBalloonTip(hwnd) \
- // (BOOL)SNDMSG((hwnd), EM_HIDEBALLOONTIP, 0, 0)
- Function Edit_HideBalloonTip( hwnd : hwnd):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), EM_HIDEBALLOONTIP, 0, 0))
- end;
- // Macro 314
- //#define ComboBox_SetMinVisible(hwnd, iMinVisible) \
- // (BOOL)SNDMSG((hwnd), CB_SETMINVISIBLE, (WPARAM)iMinVisible, 0)
- Function ComboBox_SetMinVisible( hwnd : hwnd; iMinVisible : WPARAM):BOOL;
- Begin
- Result:=BOOL(SendMessage((hwnd), CB_SETMINVISIBLE, iMinVisible, 0))
- end;
- // Macro 315
- // #define ComboBox_GetMinVisible(hwnd) \
- // (int)SNDMSG((hwnd), CB_GETMINVISIBLE, 0, 0)
- Function ComboBox_GetMinVisible( hwnd : hwnd):cint;
- Begin
- Result:=cint(SendMessage((hwnd), CB_GETMINVISIBLE, 0, 0))
- end;
- End.
|