Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Картинки в KOL & ещё два вопроса. (Str2Int...) [Delphi, Windows]

AZCRC © (2004-04-10 17:39:00)
Здраствуйте!
Есть вопросы: 1)Случайно добавил VCL, потом убрал, а прога так и осталась 400Кб (Хотя кода там - совсем ничего). Как нибудь можно вернуть это на своё место? Или заново проект переделовать?
2) Str2Int всегда вместо сбоя даёт значение = 0 при введённом "зю". Это так задумано, чтобу try......Except не вводить?
3) Как проще всего разместить картинку на форме в KOL?
Зарание спасибо.

SPeller (2004-04-12 03:27:00) [1]

> ЗЫ а если форма не создана, тогда как её подгрузить?

NewForm2( Form2, Applet );

Где NewForm2 - это функция, которая создаёт форму. Найти её можно в файле <имя модуля формы>.inc. Ну а Form2 - это переменная, в которой эта форма будет храниться.

AZCRC (2004-04-11 21:33:00) [2]
program MyApp; uses Windows, ... ; var header:HWND; ......... header:=GetForegroundWindow; SetWindowText(header, 'Новый заголовок окна');
Как заставить работать. На VCL вроде всё работало...
И на KOL что-то не выходит скрыть прогу от CtrAltDel... Посто странно...

AZCRC (2004-04-11 18:28:00) [3]
2SPeller ©
Так и сделал, толmко при вызове формы:
1-й раз - всё ОК!
2-й раз - Появляется, но только прозрачная (хотя альфа бленда нету).
2-й раз - Отказываеца появляться (и последующие вызовы).
ЗЫ а если форма не создана, тогда как её подгрузить?

SPeller (2004-04-11 16:39:00) [4]

> Тепреь буду компилить нужные ресурсы в Билдере и подключать
> к проекту

Я так всегда делаю. Только я использую Restorator + ResHacker. Хватает за глаза — любые ресурсы можно сделать.

SPeller (2004-04-11 14:30:00) [5]

> Она будет грузится при старте ехе проекта?

Да. Уберите из Autocreate forms - тогда не должна.

> А вызвать её как?

Если уже создана, то Form1.Form.Show;

AZCRC (2004-04-11 12:15:00) [6]
2SPeller ©
Огромное спасибо! Тепреь буду компилить нужные ресурсы в Билдере и подключать к проекту. Так ИМХО лучше всего.
>>В инспекторе объектов Visible = False
Она будет грузится при старте ехе проекта? ...
А вызвать её как? Стандартным способом не получается.

SPeller (2004-04-11 09:40:00) [7]

> Создал я 2-ю форму - так всё круто, только вот она появляется
> сразу при запуске...

В инспекторе объектов Visible = False

Delphi5.01 (2004-04-11 09:35:00) [8]
>> Линк нашол, он с http://kol.mastak.ru/sprav.htmА линк на
>> sprav.htm - на http://kol.mastak.ru
BUG :-D

SPeller (2004-04-11 09:08:00) [9]
Чтобы добавить иконку можно просто создать ресурс с нужной иконкой и подключить его к проекту. А то Дельфи кроме иконки ещё мусора в ресурсы напичкает.

AZCRC (2004-04-10 23:34:00) [10]
Так, с uses разобрался методом тыка.(Вырезал наугад, пока размер не умеьшился) А куда именно вставть KOLProject1.dprResource:=True? ФАКи то я читал.
Есть трабла в ФАКах вроде небыло:
1)Создал я 2-ю форму - так всё круто, только вот она появляется сразу при запуске... Мне так не надо.
2)Form2.show; - а таким макаром её когда надо - не вызвать?
Тяжело в учении... очень.
Линк нашол, он с http://kol.mastak.ru/sprav.htmА линк на sprav.htm - на http://kol.mastak.ru

Gandalf (2004-04-10 23:15:00) [11]
1) RTFM! FAQ!!! Ужас! ;(
2) Я называю VCL все , что прямо или косвено использует библиотеку SysUtils. Потому как на этой либе как на чудо-юдо-рыбо-ките лежит весь VCL, и этот кит добаляет веса прогам не слабо.
3) ExtCtrls - не API, а еще та жирна туша (заметь - и тут SysUtils) - убирай ее после первого ENDIF в uses.
4) Я хоче понять где ты нашел линк на http://kol.mastak.ru/lessonsind.htm- на какой странице?

AZCRC (2004-04-10 22:25:00) [12]
Я вот тут озадачился... иконку прилепить к ехе. ?
>> Можно, снимаем блок с формы
Что за блок?
То, что SysUtils is not WinAPI это я знаю, просто пример привёл. Только как ТОЧНО узнать, что VCL, а что нет?
uses Windows, ShellAPI,
KOL {$IFNDEF KOL_MCK}, mirror,
Classes, Controls, mckControls,
mckObjs, Graphics, mckCtrls {$ENDIF},
ExtCtrls;
{$ELSE}
{$I uses.inc}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, mirror;
{$ENDIF}
>>а если че-то и нет можно просто выдернуть этот код из SysUtils
Т.е. прямо из SysUtils.pas?
>> Раскажите мне большую тайну - как вы до http://kol.mastak.ru/lessonsind.htm добираетесь?!
Есть линки. Тут html не рулит. ато-бы коротко выложил. <a href=" http://kol.mastak.ru/lessonsind.htm";>линк_тест</a>

AZCRC (2004-04-10 22:16:00) [13]
Спасибо за ответы! <html> <a href=" http://kol.mastak.ru/lessonsind.htm";>Тест линков на этом движке</a> </html>

Gandalf (2004-04-10 20:15:00) [14]
1) Можно, снимаем блок с формы - вычищаем uses от VCL барахла
2) Это так задумано. Используй свои проверки на "битые" числа.
3) Я обычно делаю так.
FormCreate
...
Bmp:=NewBitmap(0,0); Bmp.LoadFromFile('BG.bmp');

FormPaint
...
Bmp.Draw(Form.Canvas.handle,0,0);

FormClose

Bmp.Free;

4) API можно - но мой друг, SysUtils - это VCL, а не API. Classes тоже не API. API - це хедеры - константы, перемнные, экспорт, функции - никаких классов - это API.

5) Раскажите мне большую тайну - как вы до http://kol.mastak.ru/lessonsind.htm добираетесь?! Есть же http://kol.mastak.ru/articles.htm- тоже самое, но лучше. Там есть и Урок 6 и остальные - правда, немного битые, но я же сказал - в эти выходные исправлю. И обновлюсь.

Avenger[NhT] (2004-04-10 20:13:00) [15]
черт...цитировать не удобно тут :(

Avenger[NhT] (2004-04-10 20:10:00) [16]
//1)Случайно добавил VCL, потом убрал, а прога так и осталась //400Кб (Хотя кода там - совсем ничего). Как нибудь можно вернуть //это на своё место? Или заново проект переделовать?
Просмотри Uses на наличие VCL модулей
//2) Str2Int всегда вместо сбоя даёт значение = 0 при введённом //"зю". Это так задумано, чтобу try......Except не вводить?
да, там Result = 0 в самом начале кода, Except выводить это увеличивать размер программы ;) к томуже придется err цеплять чтоб обработать это исключение
//3) Как проще всего разместить картинку на форме в KOL?
//Зарание спасибо.
Обработай событие OnPaint для формы и нарисуй там битмап методом Draw, и посмотри статьи там была про то как выводит графику

//Совсм забыл: в uses можно добавить ВинАПИ например, или //SysUtils? Ну, ессно чтоб размер не вырос.
добавить можно, тока размер подскочет в разы...
к томуже в кол есть все что надо чтоб обойтись без SysUtils,
а если че-то и нет можно просто выдернуть этот код из SysUtils

AZCRC (2004-04-10 17:53:00) [17]
Совсм забыл: в usesможно добавить ВинАПИ например, или SysUtils? Ну, ессно чтоб размер не вырос.
PS просьба на мыло не отвечать, лучше здесь.
2admin
http://kol.mastak.ru/lessonsind.htm- не работает почти весь раздел. Не выложено, или убито?
http://kol.mastak.ru/lessons%206.htm- тоже самое.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »