----boundary-LibPST-iamunique-483531520_-_-
Content-type: text/plain
Hello Helmut,
You are right, compiling the deprecated sources in 1.6 is a bad idea. I just wanted to show Robert
how he could get a readable copy of KERNEL32.
Brgds,
Koen.
On Fri, 4 May 2007 14:33:36 +0200, you wrote:
>Dear Koen,
>
>thats not a good idear. You move the problems to a later time.
>
>The best way is to change the source and use the knowledge of OM.
>
>How?
>
>That's the way:
>
>1. Write KERNEL32 into Log window and select that word
>2. Search for KERNEL32 thru the source of BB 1.5
> via Menus Info -> Search In source
>2. Open the file which you found form BB 1.5
>3. Open the same file from BB 1.6
>4. compare both files and you see what you have to change.
>
>That's the way I get CpcMenus running just a minute ago.
>
>Here are the changes for CpcMenus:
>
>PROCEDURE Exist (IN path, name: ARRAY OF CHAR): BOOLEAN;
>VAR fullname: ARRAY 260 OF CHAR; ref: WinApi.HANDLE; found: BOLEAN; res: INTEGER;
>BEGIN
> fullname := path + '/' + name;
> ref := WinApi.CreateFileW(fullname, WinApi.GENERIC_READ + WinApi.FILE_SHARE_READ,
> {}, NIL, WinApi.OPEN_EXISTING, {}, 0);
> found := ref # WinApi.INVALID_HANDLE_VALUE;
> res := WinApi.CloseHandle(ref);
> RETURN found;
>END Exist;
>
>Regards
>
>Helmut
>
>
>
>-----Ursprüngliche Nachricht-----
>Von: blackbox{([at]})nowhere.xy>Gesendet: Freitag, 4. Mai 2007 10:21
>An: BlackBox Mailing List
>Betreff: [BlackBox] - Component-Pascal Collection & BlackBox 1.6
>
>Hello Robert,
>
>These deprecated modules are available as symbol files in the 1.5 release, so one could save theme
>as text in 1.5 and transfer them to 1.6.
>
>Brgds,
>Koen.
>
>
>On Fri, 4 May 2007 09:00:08 +0100, you wrote:
>
>
>>
>>
>>Oms, all
>>
>>Many years ago I wrote some code using USER32 (and probably
>>some other deprecated Modules). I now forget the detailed design
>>thinking.
>>
>>To translate this to be 1.6 compatible I think it would be helpful
>>to be able to read the USER32 source so that I can directly call
>>the corresponding WinApi functions in the same way.
>>
>>Am I correct, and can these sources be made available for this purpose?
>>
>>
>>
>>Regards
>>
>>Robert
>>
>>SELEX Sensors and Airborne Systems Limited
>>Registered Office: Sigma House, Christopher Martin Road, Basildon, Essex SS14 3EL
>>A company registered in England & Wales. Company no. 02426132
>>********************************************************************
>>This email and any attachments are confidential to the intended
>>recipient and may also be privileged. If you are not the intended
>>recipient please delete it from your system and notify the sender.
>>You should not copy it or use it for any purpose nor disclose or
>>distribute its contents to any other person.
>>********************************************************************
>>
>>--- BlackBox
>>--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy>>
>
>--- BlackBox
>--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy>
>--- BlackBox
>--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy>
--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy
----boundary-LibPST-iamunique-483531520_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzc1xmY2hhcnNldDAgQXJpYWw7fQ0Ke1xmMVxmbW9kZXJuIENvdXJpZXIgTmV3O30NCntcZjJc
Zm5pbFxmY2hhcnNldDIgU3ltYm9sO30NCntcZjNcZm1vZGVyblxmY2hhcnNldDAgQ291cmllciBO
ZXc7fX0NCntcY29sb3J0YmxccmVkMFxncmVlbjBcYmx1ZTA7XHJlZDBcZ3JlZW4wXGJsdWUyNTU7
fQ0KXHVjMVxwYXJkXHBsYWluXGRlZnRhYjM2MCBcZjBcZnMyMCBIZWxsbyBIZWxtdXQsXHBhcg0K
XHBhcg0KWW91IGFyZSByaWdodCwgY29tcGlsaW5nIHRoZSBkZXByZWNhdGVkIHNvdXJjZXMgaW4g
MS42IGlzIGEgYmFkIGlkZWEuIEkganVzdCB3YW50ZWQgdG8gc2hvdyBSb2JlcnRccGFyDQpob3cg
aGUgY291bGQgZ2V0IGEgcmVhZGFibGUgY29weSBvZiBLRVJORUwzMi5ccGFyDQpccGFyDQpCcmdk
cyxccGFyDQpLb2VuLlxwYXINClxwYXINCk9uIEZyaSwgNCBNYXkgMjAwNyAxNDozMzozNiArMDIw
MCwgeW91IHdyb3RlOlxwYXINClxwYXINCj5EZWFyIEtvZW4sXHBhcg0KPlxwYXINCj50aGF0cyBu
b3QgYSBnb29kIGlkZWFyLiBZb3UgbW92ZSB0aGUgcHJvYmxlbXMgdG8gYSBsYXRlciB0aW1lLiBc
cGFyDQo+XHBhcg0KPlRoZSBiZXN0IHdheSBpcyB0byBjaGFuZ2UgdGhlIHNvdXJjZSBhbmQgdXNl
IHRoZSBrbm93bGVkZ2Ugb2YgT00uIFxwYXINCj5ccGFyDQo+SG93P1xwYXINCj5ccGFyDQo+VGhh
dCdzIHRoZSB3YXk6XHBhcg0KPlxwYXINCj4xLiBXcml0ZSBLRVJORUwzMiBpbnRvIExvZyB3aW5k
b3cgYW5kIHNlbGVjdCB0aGF0IHdvcmRccGFyDQo+Mi4gU2VhcmNoIGZvciBLRVJORUwzMiB0aHJ1
IHRoZSBzb3VyY2Ugb2YgQkIgMS41IFxwYXINCj5cdGFiIHZpYSBNZW51cyBJbmZvIC0+IFNlYXJj
aCBJbiBzb3VyY2VccGFyDQo+Mi4gT3BlbiB0aGUgZmlsZSB3aGljaCB5b3UgZm91bmQgZm9ybSBC
QiAxLjVccGFyDQo+My4gT3BlbiB0aGUgc2FtZSBmaWxlIGZyb20gQkIgMS42XHBhcg0KPjQuIGNv
bXBhcmUgYm90aCBmaWxlcyBhbmQgeW91IHNlZSB3aGF0IHlvdSBoYXZlIHRvIGNoYW5nZS5ccGFy
DQo+XHBhcg0KPlRoYXQncyB0aGUgd2F5IEkgZ2V0IENwY01lbnVzIHJ1bm5pbmcganVzdCBhIG1p
bnV0ZSBhZ28uXHBhcg0KPlxwYXINCj5IZXJlIGFyZSB0aGUgY2hhbmdlcyBmb3IgQ3BjTWVudXM6
XHBhcg0KPlxwYXINCj5QUk9DRURVUkUgRXhpc3QgKElOIHBhdGgsIG5hbWU6IEFSUkFZIE9GIENI
QVIpOiBCT09MRUFOO1xwYXINCj5WQVIgZnVsbG5hbWU6IEFSUkFZIDI2MCBPRiBDSEFSOyByZWY6
IFdpbkFwaS5IQU5ETEU7IGZvdW5kOiBCT0xFQU47IHJlczogSU5URUdFUjtccGFyDQo+QkVHSU5c
cGFyDQo+XHRhYiBmdWxsbmFtZSA6PSBwYXRoICsgJy8nICsgbmFtZTtccGFyDQo+XHRhYiByZWYg
Oj0gV2luQXBpLkNyZWF0ZUZpbGVXKGZ1bGxuYW1lLCBXaW5BcGkuR0VORVJJQ19SRUFEICsgV2lu
QXBpLkZJTEVfU0hBUkVfUkVBRCxccGFyDQo+XHRhYiBce1x9LCBOSUwsIFdpbkFwaS5PUEVOX0VY
SVNUSU5HLCBce1x9LCAwKTtccGFyDQo+XHRhYiBmb3VuZCA6PSByZWYgIyBXaW5BcGkuSU5WQUxJ
RF9IQU5ETEVfVkFMVUU7XHBhcg0KPlx0YWIgcmVzIDo9IFdpbkFwaS5DbG9zZUhhbmRsZShyZWYp
O1xwYXINCj5cdGFiIFJFVFVSTiBmb3VuZDtccGFyDQo+RU5EIEV4aXN0O1xwYXINCj5ccGFyDQo+
UmVnYXJkcyBccGFyDQo+XHBhcg0KPkhlbG11dFxwYXINCj5ccGFyDQo+XHBhcg0KPlxwYXINCj4t
LS0tLVVyc3ByXCdmY25nbGljaGUgTmFjaHJpY2h0LS0tLS1ccGFyDQo+Vm9uOiBibGFja2JveEBv
YmVyb24uY2ggW21haWx0bzpibGFja2JveEBvYmVyb24uY2hdIEltIEF1ZnRyYWcgdm9uIEtvZW4g
RGVzYWVnZXJccGFyDQo+R2VzZW5kZXQ6IEZyZWl0YWcsIDQuIE1haSAyMDA3IDEwOjIxXHBhcg0K
PkFuOiBCbGFja0JveCBNYWlsaW5nIExpc3RccGFyDQo+QmV0cmVmZjogW0JsYWNrQm94XSAtIENv
bXBvbmVudC1QYXNjYWwgQ29sbGVjdGlvbiAmIEJsYWNrQm94IDEuNlxwYXINCj5ccGFyDQo+SGVs
bG8gUm9iZXJ0LFxwYXINCj5ccGFyDQo+VGhlc2UgZGVwcmVjYXRlZCBtb2R1bGVzIGFyZSBhdmFp
bGFibGUgYXMgc3ltYm9sIGZpbGVzIGluIHRoZSAxLjUgcmVsZWFzZSwgc28gb25lIGNvdWxkIHNh
dmUgdGhlbWVccGFyDQo+YXMgdGV4dCBpbiAxLjUgYW5kIHRyYW5zZmVyIHRoZW0gdG8gMS42Llxw
YXINCj5ccGFyDQo+QnJnZHMsXHBhcg0KPktvZW4uXHBhcg0KPlxwYXINCj5ccGFyDQo+T24gRnJp
LCA0IE1heSAyMDA3IDA5OjAwOjA4ICswMTAwLCB5b3Ugd3JvdGU6XHBhcg0KPlxwYXINCj5ccGFy
DQo+PlxwYXINCj4+XHBhcg0KPj5PbXMsIGFsbFxwYXINCj4+XHBhcg0KPj5NYW55IHllYXJzIGFn
byBJIHdyb3RlIHNvbWUgY29kZSB1c2luZyBVU0VSMzIgKGFuZCBwcm9iYWJseVxwYXINCj4+c29t
ZSBvdGhlciBkZXByZWNhdGVkIE1vZHVsZXMpLiBJIG5vdyBmb3JnZXQgdGhlIGRldGFpbGVkIGRl
c2lnblxwYXINCj4+dGhpbmtpbmcuXHBhcg0KPj5ccGFyDQo+PlRvIHRyYW5zbGF0ZSB0aGlzIHRv
IGJlIDEuNiBjb21wYXRpYmxlIEkgdGhpbmsgaXQgd291bGQgYmUgaGVscGZ1bFxwYXINCj4+dG8g
YmUgYWJsZSB0byByZWFkIHRoZSBVU0VSMzIgc291cmNlIHNvIHRoYXQgSSBjYW4gZGlyZWN0bHkg
Y2FsbFxwYXINCj4+dGhlIGNvcnJlc3BvbmRpbmcgV2luQXBpIGZ1bmN0aW9ucyBpbiB0aGUgc2Ft
ZSB3YXkuXHBhcg0KPj5ccGFyDQo+PkFtIEkgY29ycmVjdCwgYW5kIGNhbiB0aGVzZSBzb3VyY2Vz
IGJlIG1hZGUgYXZhaWxhYmxlIGZvciB0aGlzIHB1cnBvc2U/XHBhcg0KPj5ccGFyDQo+PlxwYXIN
Cj4+XHBhcg0KPj5SZWdhcmRzXHBhcg0KPj4gXHBhcg0KPj5Sb2JlcnRccGFyDQo+PlxwYXINCj4+
U0VMRVggU2Vuc29ycyBhbmQgQWlyYm9ybmUgU3lzdGVtcyBMaW1pdGVkXHBhcg0KPj5SZWdpc3Rl
cmVkIE9mZmljZTogU2lnbWEgSG91c2UsIENocmlzdG9waGVyIE1hcnRpbiBSb2FkLCBCYXNpbGRv
biwgRXNzZXggU1MxNCAzRUxccGFyDQo+PkEgY29tcGFueSByZWdpc3RlcmVkIGluIEVuZ2xhbmQg
JiBXYWxlcy4gIENvbXBhbnkgbm8uIDAyNDI2MTMyXHBhcg0KPj4qKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKlxwYXINCj4+
VGhpcyBlbWFpbCBhbmQgYW55IGF0dGFjaG1lbnRzIGFyZSBjb25maWRlbnRpYWwgdG8gdGhlIGlu
dGVuZGVkXHBhcg0KPj5yZWNpcGllbnQgYW5kIG1heSBhbHNvIGJlIHByaXZpbGVnZWQuIElmIHlv
dSBhcmUgbm90IHRoZSBpbnRlbmRlZFxwYXINCj4+cmVjaXBpZW50IHBsZWFzZSBkZWxldGUgaXQg
ZnJvbSB5b3VyIHN5c3RlbSBhbmQgbm90aWZ5IHRoZSBzZW5kZXIuXHBhcg0KPj5Zb3Ugc2hvdWxk
IG5vdCBjb3B5IGl0IG9yIHVzZSBpdCBmb3IgYW55IHB1cnBvc2Ugbm9yIGRpc2Nsb3NlIG9yXHBh
cg0KPj5kaXN0cmlidXRlIGl0cyBjb250ZW50cyB0byBhbnkgb3RoZXIgcGVyc29uLlxwYXINCj4+
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKipccGFyDQo+PlxwYXINCj4+LS0tIEJsYWNrQm94XHBhcg0KPj4tLS0gc2VuZCBz
dWJqZWN0IEhFTFAgb3IgVU5TVUJTQ1JJQkUgdG8gYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KPj5c
cGFyDQo+XHBhcg0KPi0tLSBCbGFja0JveFxwYXINCj4tLS0gc2VuZCBzdWJqZWN0IEhFTFAgb3Ig
VU5TVUJTQ1JJQkUgdG8gYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KPlxwYXINCj4tLS0gQmxhY2tC
b3hccGFyDQo+LS0tIHNlbmQgc3ViamVjdCBIRUxQIG9yIFVOU1VCU0NSSUJFIHRvIGJsYWNrYm94
QG9iZXJvbi5jaFxwYXINCj5ccGFyDQpccGFyDQotLS0gQmxhY2tCb3hccGFyDQotLS0gc2VuZCBz
dWJqZWN0IEhFTFAgb3IgVU5TVUJTQ1JJQkUgdG8gYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KfX0A
YmUgcA=
----boundary-LibPST-iamunique-483531520_-_---
Received on Sun May 06 2007 - 17:41:52 UTC