Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Newcomers DBPro Corner / Underline

Author

Message

The horror expert

18

Years of Service

User Offline

Joined: 30th Aug 2006

Location: hidding in my closet!

Posted: 17th Apr 2007 10:50

Is it possible to underline text i DBP. i can't seem to find the command!

Check the closet an extra time, i might be in there!

Back to top

Profile PM Email Website

Milkman

18

Years of Service

User Offline

Joined: 30th Nov 2005

Location: United States

Posted: 17th Apr 2007 10:54 Edited at: 17th Apr 2007 10:56

I don't think there is a command, you might have to write a function for it.

Who needs a signature?

Back to top

Profile PM Email

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 17th Apr 2007 16:10

SYNC ON:SYNC RATE 0:BACKDROP ON

DISABLE SYSTEMKEYS:WHILE ESCAPEKEY() = 0
   UNDERLINE_TEXT(10,10,"HELLO WORLD")
   SYNC
ENDWHILE:END

FUNCTION underline_text(x,y,string$)
   TEXT x,y,string$
   FOR u = 1 TO LEN(string$)
      u$ = u$ + "_"
   NEXT u
   TEXT x,y,u$
ENDFUNCTION

>> Gibble Blops - free, online, playable!

Back to top

Profile PM Email Website

Aaron Miller

18

Years of Service

User Offline

Joined: 25th Feb 2006

Playing: osu!

Posted: 18th Apr 2007 08:41 Edited at: 18th Apr 2007 08:45

I prefer this code here.

underline_text(5, 5, "Hello World!")

suspend for key

end

function underline_text(x as integer, y as integer, text$ as string)
   text x, y, text$
   line x,y+text height(text$),x+text width(text$),y+text height(text$)
endfunction

function underline_centertext(x as integer, y as integer, text$ as string)
   x=x-text width(text$)/2
   text x, y, text$
   line x,y+text height(text$),x+text width(text$),y+text height(text$)
endfunction

Cheers,

-db

Albert Einstein believed that imagination is more important than knowledge.

Back to top

Profile PM Email Website

Back to top

Login to post a reply

Server time is: 2024-11-25 19:47:03
Your offset time is: 2024-11-25 19:47:03