paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 19:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added more images to the resource.

Browse Source 
Shane

git-svn-id: trunk@81 -
This commit is contained in:
lazarus 2000-12-29 15:04:07 +00:00
parent 94237dcca2
commit f691b58971
8 changed files with 127 additions and 24 deletions

87
designer/lazarus_control_images.lrs
View File

@ -226,6 +226,20 @@
+'. . . . . . . . . . . . . ",'#10'". . . . . . . . . . . . . . . . . . . '
+'. . . . . . "};'#10
);
LazarusResources.Add('tgroupbox','XPM',
'/* XPM */'#10'static char * tgroupbox_xpm[] = {'#10'"23 21 5 1",'#10'" '#9
+'c None",'#10'".'#9'c #C0C0C0",'#10'"+'#9'c #AE0013",'#10'"@'#9'c #808080'
+'",'#10'"#'#9'c #FFFFFF",'#10'" ",'#10'" +++++++'
+'+ ",'#10'" @@.++++++++.@@@@@@@ ",'#10'" @#.++++++++.######.#'
+' ",'#10'" @#................@# ",'#10'" @#................@# ",'#10'"'
+' @#................@# ",'#10'" @#................@# ",'#10'" @#.......'
+'.........@# ",'#10'" @#................@# ",'#10'" @#................@'
+'# ",'#10'" @#................@# ",'#10'" @#................@# ",'#10
+'" @#................@# ",'#10'" @#................@# ",'#10'" @#......'
+'..........@# ",'#10'" @#................@# ",'#10'" @#................'
+'@# ",'#10'" @.@@@@@@@@@@@@@@@@@# ",'#10'" ################### ",'#10
+'" "};'#10
);
LazarusResources.Add('tlabel','XPM',
'/* XPM */'#10'static char * label_xpm[] = {'#10'"25 25 37 1",'#10'" '#9'c'
+' None",'#10'". '#9'c #C8C8C8",'#10'"+'#9'c #000000",'#10'"@'#9'c #030303'
@ -675,6 +689,34 @@
+'. . . . . . . . . . . . . . . . . . . . ",'#10'". . . . . . . . . . . . '
+'. . . . . . . . . . . . . "};'#10
);
LazarusResources.Add('tradiogroup','XPM',
'/* XPM */'#10'static char * tradiogroup_xpm[] = {'#10'"25 25 7 1",'#10'" '
+#9'c None",'#10'".'#9'c #C0C0C0",'#10'"+'#9'c #D30013",'#10'"@'#9'c #8080'
+'80",'#10'"#'#9'c #FFFFFF",'#10'"$'#9'c #000000",'#10'"%'#9'c #870013",'
+#10'" ",'#10'" ",'#10'" '
+' ",'#10'" ++++++++ ",'#10'" @@.++'
+'++++++.@@@@@@@ ",'#10'" @#.++++++++.######.# ",'#10'" @#.........'
+'.......@# ",'#10'" @#................@# ",'#10'" @#..@............'
+'.@# ",'#10'" @#.@$@.%%%%%%%%%..@# ",'#10'" @#..@.............@# "'
+','#10'" @#................@# ",'#10'" @#..@.............@# ",'#10
+'" @#.@$@.%%%%%%%%...@# ",'#10'" @#..@.............@# ",'#10'" @#'
+'................@# ",'#10'" @#..@.............@# ",'#10'" @#.@$@.%'
+'%%%%%%%%..@# ",'#10'" @#..@.............@# ",'#10'" @#............'
+'....@# ",'#10'" @.@@@@@@@@@@@@@@@@@# ",'#10'" ###################'
+' ",'#10'" ",'#10'" ",'
+#10'" "};'#10
);
LazarusResources.Add('tscrollbar','XPM',
'/* XPM */'#10'static char * tscrollbar_xpm[] = {'#10'"25 14 5 1",'#10'" '
+#9'c None",'#10'".'#9'c #C0C0C0",'#10'"+'#9'c #808080",'#10'"@'#9'c #0000'
+'00",'#10'"#'#9'c #FFFFFF",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" +###.@###.@.#.#.@###.@ ",'#10'" +#@@.@#...@#.#.#@#@@.@ '
+'",'#10'" +#++.@#...@.#.#.@#++.@ ",'#10'" +....@....@#.#.#@....@ ",'#10
+'" @@@@@@@@@@@@@@@@@@@@@@ ",'#10'" ",'#10'" '
+' ",'#10'" "};'#10
);
LazarusResources.Add('tspeedbutton','XPM',
'/* XPM */'#10'static char * speedbutton_xpm[] = {'#10'"25 25 7 1",'#10'" '
+#9'c None",'#10'".'#9'c #FFFFFF",'#10'"+'#9'c #BEBEBE",'#10'"@'#9'c #0000'
@ -747,14 +789,45 @@
+' ",'#10'" '
+' "};'#10
);
LazarusResources.Add('ttimer','XPM',
'/* XPM */'#10'static char * ttimer_xpm[] = {'#10'"25 25 10 1",'#10'" '#9
+'c None",'#10'".'#9'c #C0C0C0",'#10'"+'#9'c #000000",'#10'"@'#9'c #FFFFFF'
+'",'#10'"#'#9'c #800000",'#10'"$'#9'c #F8F8F8",'#10'"%'#9'c #030303",'#10
+'"&'#9'c #F4F4F4",'#10'"*'#9'c #FEFEFE",'#10'"='#9'c #C3C3C3",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" +++++ '
+' ",'#10'" ++@@@@@++ ",'#10'" +@@@@+@@@@+ '
+' ",'#10'" +@@#@@+.@#@@+ ",'#10'" +@@@@@@+.@@@@@+. ",'
+#10'" +@#@@@@+.@@@#@+. ",'#10'" +@@@@@@@+.@@@@@@+ ",'#10'" '
+' +@@@@@@@+.@@@@@@+ ",'#10'" +@#@@@@@++++@@#@+ ",'#10'" +@@@'
+'@@@@@....@@@+ ",'#10'" +@@@@@@@@@@@@@@@+ ",'#10'" +@#@@@@@@'
+'@@@#@+ ",'#10'" +@@@@@@@@@@@@@+ ",'#10'" +@@#@@@@@#@@+ '
+' ",'#10'" +@@@@#@@@@+ ",'#10'" ++@@@@@++ "'
+','#10'" +++++ ",'#10'" ",'#10
+'" ",'#10'" ",'#10'" '
+' "};'#10
);
LazarusResources.Add('ttogglebox','XPM',
'/* XPM */'#10'static char * ttogglebox_xpm[] = {'#10'"21 17 7 1",'#10'" '
+#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #FFFFFF",'#10'"@'#9'c #8080'
+'80",'#10'"#'#9'c #C1C1C1",'#10'"$'#9'c #C0C0C0",'#10'"%'#9'c #C4C4C4",'
+#10'" ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" ",'
+#10'" ..................+",'#10'" .@@@@@@@@@@@@@@@@@+",'#10'" .@######'
+'##########+",'#10'" .@################+",'#10'" .@####$#######$###+",'
+#10'" .@################+",'#10'" .@############$###+",'#10'" .@######'
+'######%###+",'#10'" .@################+",'#10'" .@################+",'
+#10'" +++++++++++++++++++",'#10'" "};'#10
);
LazarusResources.Add('default','XPM',
'/* XPM */'#10'static char * default_xpm[] = {'#10'"15 14 9 1",'#10'" '#9
'/* XPM */'#10'static char * default_xpm[] = {'#10'"19 17 9 1",'#10'" '#9
+'c None",'#10'".'#9'c #D11B76",'#10'"+'#9'c #770D46",'#10'"@'#9'c #B21A75'
+'",'#10'"#'#9'c #14BC2D",'#10'"$'#9'c #09F41D",'#10'"%'#9'c #99155F",'#10
+'"&'#9'c #17D323",'#10'"*'#9'c #127C1F",'#10'" . ",'#10'" +'
+'.@ ",'#10'" +.@ ",'#10'" ++.@@ ",'#10'" ++.@@'
+' # ",'#10'" +++.@@@ #### ",'#10'" +++.@@@ #$$$##",'#10'"+++%.@@@@#'
+'$$#&#",'#10'"+++%.@@@#*##&&#",'#10'"++%%.@@@#**#&&#",'#10'"..%%....#**#&'
+'&#",'#10'" #*### ",'#10'" ### ",'#10'" "'
+'};'#10
+'"&'#9'c #17D323",'#10'"*'#9'c #127C1F",'#10'" ",'#10'"'
+' ",'#10'" ",'#10'" . '
+' ",'#10'" +.@ ",'#10'" +.@ ",'#10'" ++.'
+'@@ ",'#10'" ++.@@ # ",'#10'" +++.@@@ #### ",'#10'"'
+' +++.@@@ #$$$##",'#10'" +++%.@@@@#$$#&#",'#10'" +++%.@@@#*##&&'
+'#",'#10'" +++%%.@@@#**#&&#",'#10'" ....%%....#**#&&#",'#10'" '
+' #*### ",'#10'" ### ",'#10'" "};'#10
);

3
ide/idecomp.pp
View File

@ -247,12 +247,13 @@ begin
RegisterComponents('Standard','StdCtrls',[TEdit,TLabel,TMemo,TCheckBox
,TListBox,TRadioButton,TComboBox,TScrollBar,TGroupBox,TToggleBox]);
RegisterComponents('Standard','Buttons',[TButton,TBitBtn,TSpeedButton]);
RegisterComponents('Additional','ExtCtrls',[TNoteBook,TTimer,TPaintBox
RegisterComponents('Additional','ExtCtrls',[TNoteBook,TPaintBox
,TBevel,TRadioGroup]);
RegisterComponents('Additional','ComCtrls',[TStatusBar,TListView,TProgressBar
,TToolBar,TToolButton,TTrackBar]);
RegisterComponents('Samples','Spin',[TSpinEdit]);
RegisterComponents('System','ExtCtrls',[TTimer]);
RegisterComponentsProc:=nil;

33
images/default.xpm
View File

@ -1,6 +1,6 @@
/* XPM */
static char * default_xpm[] = {
"15 14 9 1",
"19 17 9 1",
" c None",
". c #D11B76",
"+ c #770D46",
@ -10,17 +10,20 @@ static char * default_xpm[] = {
"% c #99155F",
"& c #17D323",
"* c #127C1F",
" . ",
" +.@ ",
" +.@ ",
" ++.@@ ",
" ++.@@ # ",
" +++.@@@ #### ",
" +++.@@@ #$$$##",
"+++%.@@@@#$$#&#",
"+++%.@@@#*##&&#",
"++%%.@@@#**#&&#",
"..%%....#**#&&#",
" #*### ",
" ### ",
" "};
" ",
" ",
" ",
" . ",
" +.@ ",
" +.@ ",
" ++.@@ ",
" ++.@@ # ",
" +++.@@@ #### ",
" +++.@@@ #$$$##",
" +++%.@@@@#$$#&#",
" +++%.@@@#*##&&#",
" +++%%.@@@#**#&&#",
" ....%%....#**#&&#",
" #*### ",
" ### ",
" "};

6
lcl/extctrls.pp
View File

@ -293,9 +293,11 @@ type
public
constructor Create (AOwner : TComponent); override;
published
property Enabled;
property ItemIndex;
property Items;
property Columns;
property Visible;
end;
const
@ -319,6 +321,10 @@ end.
{
$Log$
Revision 1.2 2000/12/29 15:04:07 lazarus
Added more images to the resource.
Shane
Revision 1.1 2000/07/13 10:28:23 michael
+ Initial import

1
lcl/forms.pp
View File

@ -175,6 +175,7 @@ type
property ClientWidth;
property Enabled;
property FormStyle;
property PopupMenu;
property Position;
property Visible;
// property WindowState;

6
lcl/include/customradiogroup.inc
View File

@ -58,6 +58,8 @@ begin
FItemIndex := -1;
FButtonList := TList.Create;
FColumns := 1;
Width:= 250;
Height := 200;
end;
{------------------------------------------------------------------------------
@ -241,6 +243,10 @@ end;
{
$Log$
Revision 1.2 2000/12/29 15:04:07 lazarus
Added more images to the resource.
Shane
Revision 1.1 2000/07/13 10:28:25 michael
+ Initial import

9
lcl/spin.pp
View File

@ -43,10 +43,17 @@ type
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
published
property Align;
property Decimal_Places : Integer read fDecimals write SetDecimals;
property Enabled;
property Value : Single read GetValue write SetValue;
property Climb_Rate : Single read fClimbRate write SetClimbRate;
property Visible;
property OnEnter;
property OnExit;
property PopupMenu;
property ShowHint;
end;
Implementation

6
lcl/stdctrls.pp
View File

@ -53,6 +53,7 @@ type
TGroupBox = class(TCustomGroupBox)
published
property Caption;
property Visible;
end;
TComboBoxStyle = (csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable);
@ -215,6 +216,7 @@ type
property OnClick;
property DragMode;
property Text;
property Visible;
end;
@ -477,6 +479,10 @@ end.
{ =============================================================================
$Log$
Revision 1.5 2000/12/29 15:04:07 lazarus
Added more images to the resource.
Shane
Revision 1.4 2000/12/01 15:50:39 lazarus
changed the TCOmponentInterface SetPropByName. It works for a few properties, but not all.
Shane