VPF::Хостинг кода - "Copy and Paste" - Форум программистов

awilum

Дата 2.1.2010, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Open Source Evangeli

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 5.10.2008

Репутация: нет
Всего: нет

Всех с наступившим Новым годом!

И так теперь собствено о проекте. Рабочие название "Copy&Paste", потому что копипастим код)

Идея о подобном ресурсе у меня появилась еще до того как мне сообщили о существующих аналогах как everfall.
Думаю каждому из нас приходилось обмениваться кодом в аське. А читать его там крайне не удобно, особенно
когда смайлы распознаются и в человек видит такое

user posted image

Поэтому проще будет передавать ссылку, по которой можно перейти и нормально прочитать и распечатать исходный код.
Пример: http://code.pascalgames.net/code.php?id=1

Значит сделал такой вот мини ресурс: http://code.pascalgames.net/
Обмениваться кодом легче, плюс код на пожизненном хранении (пока админ,модераторы не удалят его )) )
Так что это как бы и архив от функций до листингов программ )
На главной страничке можно увидеть кнопку "Добавить копипаст" и разделы с количеством копипастов (кодов)

кнопки управления
user posted image

Это пока еще альфа версия. С названием еще толком не определился.
Тестим, высказываем предложения и замечания.

upd:
В IE вроде как глюков не обнаружено. Правда все версии IE не поддерживают text-shadow

DEER

Дата 3.1.2010, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: нет
Всего: 13

Скопировал аш пример http://code.pascalgames.net/code.php?id=1
и вставил

Код


function WindowProc(h_wnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM):LRESULT; stdcall;
begin
 case uMsg of
 &nbsp; WM_CREATE : begin end;
 &nbsp; &nbsp;WM_KEYDOWN: &nbsp; &nbsp; &nbsp; // Set the pressed key (wparam) to equal true so we can check if its pressed
 &nbsp; &nbsp; &nbsp;begin
 &nbsp; &nbsp; &nbsp; &nbsp;keys[wParam] := True;
 &nbsp; &nbsp; &nbsp; &nbsp;Result := 0;
 &nbsp; &nbsp; &nbsp;end;
 &nbsp; &nbsp;WM_KEYUP: &nbsp; &nbsp; &nbsp; &nbsp; // Set the released key (wparam) to equal false so we can check if its pressed
 &nbsp; &nbsp; &nbsp;begin
 &nbsp; &nbsp; &nbsp; &nbsp;keys[wParam] := False;
 &nbsp; &nbsp; &nbsp; &nbsp;Result := 0;
 &nbsp; &nbsp; &nbsp;end;
 &nbsp; WM_CLOSE &nbsp;: begin
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; glDestroy(FullScreen);
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PostQuitMessage(0);
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Result := 0;
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit;
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end;
 &nbsp; WM_SIZE &nbsp; : begin
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Resize(LOWORD(lParam), HIWORD(lParam));
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Result := 0;
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end
 else
 &nbsp; Result := DefWindowProc(h_wnd, uMsg, wParam, lParam);
 end;
end;

Это действительно удобнее, чем в аське смотреть? smile

--------------------

awilum

Дата 3.1.2010, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Open Source Evangeli

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 5.10.2008

Репутация: нет
Всего: нет

DEER
то был баг. первая(ые) запись добавилась с багом и поэтому вот такой вид имеет. Это дело уже поправлено smile

теперь норм копируется, вот: http://code.pascalgames.net/code.php?id=35

Код


type 
    PFindWindowStruct = ^TFindWindowStruct; 
    TFindWindowStruct = record 
    Caption : string; 
    ClassName : string; 
    WindowHandle : THandle; 
end; 

function EnumWindowsProc(hWindow : hWnd; 
    lParam  : LongInt) : Bool 
    {$IFDEF Win32} stdcall; {$ELSE} ; export; {$ENDIF} 
    var 
    lpBuffer : PChar; 
    WindowCaptionFound : bool; 
    ClassNameFound : bool; 
begin 
    GetMem(lpBuffer, 255); 
    Result := True; 
    WindowCaptionFound := False; 
    ClassNameFound := False; 

    try
        if GetWindowText(hWindow, lpBuffer, 255) > 0 then 
        if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer)) > 0 
            then WindowCaptionFound := true; 
        if PFindWindowStruct(lParam).ClassName = '' then 
            ClassNameFound := True else 
        if GetClassName(hWindow, lpBuffer, 255) > 0 then 
        if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer)) > 0 then
            ClassNameFound := True; 

        if (WindowCaptionFound and ClassNameFound) then 
        begin 
            PFindWindowStruct(lParam).WindowHandle := hWindow; 
            Result := False; 
        end; 
    finally
        FreeMem(lpBuffer, sizeof(lpBuffer^)); 
    end; 
end; 

function FindAWindow(Caption : string; ClassName : string) : THandle; 
var 
    WindowInfo : TFindWindowStruct; 
begin 
    with WindowInfo do begin 
        Caption := Caption; 
        ClassName := ClassName; 
        WindowHandle := 0; 
        EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo)); 
        FindAWindow := WindowHandle; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    TheWindowHandle : THandle; 
begin 
    TheWindowHandle := FindAWindow('Netscape - ', ''); 
    if TheWindowHandle = 0 then 
        ShowMessage('Window Not Found!') else 
    BringWindowToTop(TheWindowHandle); 
end;

да и смысл в том что бы не кидать в аське целый код что бы человек на том конце аське мучался прочитать увиденую интерпритацию кода, а
скинуть ссылочку где этот код можно удобно прочитать,скопировать и распечатать. smile

Это не законченый вариант, еще работаю smile

в это теме я уже отписал @todo лист можете ознакомится пока там http://pascalgames.net/index.php?topic=460.0
здесь тоже могу добавить @todo лист smile

awilum

Дата 10.1.2010, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Open Source Evangeli

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 5.10.2008

Репутация: нет
Всего: нет

И так новые новости о проекте

Сайт проекта Copy&Paste

user posted image

Предыдущая версия обсуждалась в этой теме http://pascalgames.net/index.php?topic=460.0
Были рассмотрены различные предложения, но в этой версии не все пока они реализованы, но все же
эта версия более расширенная чем предыдущая)
Возможности:
+26 языков программирования + TXT
+Добавление копипастов
+Каталог добавленных кодов по языкам программирования
+Редактирование (версии по датам)
+Комментирование размещенных кодов
+Авторский комментарий
+Статистика копипастов

p.s.
В этом движке на котором сейчас работает "Сopy&Paste" еще будут вносится улучшения и дополнения.
Основной функционал для легкого обмена кодом есть.
Поле "автор" я не делал потому что авторы все равно пока не регистрируются как и комментаторы, так что о своем
авторстве можно писать в поле авторского комментария.

p.s.2
О найденных багах и новых предложениях пишите в этой теме.

Предпосылками к созданию подобного ресурса было:
+ надоело в аське видеть смайлы вместо кода
+ хранить различные полезные кусочки кода и что бы всегда можно было их посмотреть
+ практика php,mysql,html,css Мне интересно по практиковаться в этих областях smile

Скрины предыдущей версии:
http://img30.imageshack.us/img30/1570/cp5.png
http://img130.imageshack.us/img130/1/cp3.png
http://img63.imageshack.us/img63/5778/cp4.png

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Стартапы, проекты, идеи \| Следующая тема »